> a <- c(2,3,4,2,3,4,2,2,4)
> b <- as.data.frame(table(a))
> b
  a Freq
1 2    4
2 3    2
3 4    3