vote <- c("a", "b", "c", "d", "e")
votes = sample(vote, 100, replace = T)
a = length(which(votes=="a"))

a = length(which(votes=="a"))
b = length(which(votes=="b"))
c = length(which(votes=="c"))
d = length(which(votes=="d"))
e = length(which(votes=="e"))

message("kategoria-1(a+b): ", a+b)
message("kategoria-2(c+d): ", c+d)
message("kategoria-3(e): ", e)