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)) ## 统计每一行偶数的个数
