a <- c("b", "a", "b")
b <- c("c", "b", "a")
c <- c("x", "a", "d")

d <- data.frame(a, b, c)
d

e <- unlist(d)
e
sum(e == "b")      ## 统计b出现的次数
sum(e == "d")      ## 统计d出现的次数