R语言中apply函数的用法

 

001、

dat <- data.frame(a = c(3, 8, 2, 1),
                  b = c(8, 4, 2, 6),
                  c = c(2, 7, 6, 9))                  ## 测试数据狂
dat
apply(dat, 2, function(x) sum(x > 2))                 ## 统计每一列中大于2的总个数

 

 

002、

dat <- data.frame(a = c(3, 8, 2, 1),
                  b = c(8, 4, 2, 6),
                  c = c(2, 7, 6, 9))
dat
apply(dat, 1, function(x) sum(x %% 2 == 0))                  ## 统计每一行偶数的个数