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)) ## 统计每一行偶数的个数
标签：语言,##,用法,dat,apply,函数 From： https://www.cnblogs.com/liujiaxin2018/p/16629502.html