r - 对 r 中具有特定条件的行求和

Question

我的数据为

               function  person
1                hr       1
2                sls      5
3                mktg     3
4                qlt      7
5                rev      5

我想使用 r 编程创建一行，其中“function”列中的值之和为“sls”和“mktg”

期望的输出是:

            Person     function
1             1         hr
2             8         sls & mktg
3             7         qlt
4             5         rev 

Answer 1

基础 R 解决方案:

merg <- c("sls", "mktg")
dat$func[dat$func %in% merg] <- paste(merg, collapse = " & ")
aggregate(person ~ func, dat, sum)
        func person
1         hr      1
2        qlt      7
3        rev      5
4 sls & mktg      8

数据

dat <- data.frame(
  func = c("hr", "sls", "mktg", "qlt", "rev"), 
  person = c(1, 5, 3, 7, 5),
  stringsAsFactors = FALSE
)

请注意，这假设 dat$func 是一个字符...如果它不是首先使用 as.character() 转换为字符