r - 如果字符串包含 R 中的特定文本，则聚合

Question

我已经看过很多关于这个主题的帖子，如果这是重复的，我很抱歉，但我无法弄清楚我的问题。

我有

df <- data.frame(name = c('bike+ride','shoe+store','ride','mountian%20bike','ride+along'),
             count = c(2,5,8,7,6))

并想对每个求和 count如果它 name包含一个字符串 group

group <- data.frame(group = c('ride','bike'))

所以最终结果如下:

Group   Count
bike      9
ride     16

任何人都可以帮忙吗？

Answer 1

一个基本的 R 想法，

sapply(sapply(as.character(group$group), function(i) grep(i, df$name)), function(i) sum(df$count[i]))


#or make it a function

aggr1 <- function(var1, grp, cnt){
  m1 <- sapply(as.character(grp), function(i) grep(i, var1))
  final_d <- sapply(m1, function(i) sum(cnt[i]))
  return(data.frame(Group = names(final_d), 
                    Count = as.integer(final_d), stringsAsFactors = FALSE)
         )
}

aggr1(df$name, group$group, df$count)

#  Group Count
#1  ride    16
#2  bike     9