1、
a <- c(2, 4, 1, 7, 6, 8, 3, 4) b <- letters[1:8] c <- rep(letters[1:4], each = 2) dat <- data.frame(a, b, c) dat tapply(dat$a, dat$c, sum) ## 对a列按照b列进行拆分，然后应用于函数（求和） split(dat$a, dat$c) ## 拆分验证
