# apply()を使わない手を考えようとしたが無理だった。

a1 <- c("a","b","d","f")
a2 <- c("b","a","f","c")
a3 <- c("z","m","f","a")
dat <- cbind(a1,a2,a3)
dat
dat == "a"

margin.table(dat == "a", margin = 1)

apply(dat == "a", MARGIN = 1, FUN = sum)