r - R中矩阵中的元音

Question

我有一个由随机字母组成的 25x25 矩阵，我想计算每列中元音的数量。我设法做到了

    count <- function(x) {
      return(sum(x %in% c("a","e","i","o","u")))}

并将函数写入apply()。有没有不使用循环或 %in% 的另一种方法？

Answer 1

数据

set.seed(1L)
mat <- matrix( sample(letters, size = 625, replace = TRUE), nrow = 25)
vowels <- c('a', 'e', 'i', 'o', 'u')

代码

apply(mat, 2, function(x) length(na.omit(match(x, vowels))))
# [1] 4 8 4 4 2 4 6 5 6 1 5 7 2 5 3 6 6 1 4 5 5 7 5 3 4

# another way without using apply()
mat[] <- match(mat, vowels)
colSums(!is.na(mat))
# [1] 4 8 4 4 2 4 6 5 6 1 5 7 2 5 3 6 6 1 4 5 5 7 5 3 4