R中字符串的类字典匹配

【问题标题】：Dictionary-like matching on string in RR中字符串的类字典匹配
【发布时间】：2019-10-06 23:48:11
【问题描述】：

我有一个数据框，其中的字符串变量是元素的非正式列表，可以在符号上拆分。我想在另一个数据集的基础上对这些元素进行操作。

例如任务：计算元素的总和

df_1 <- data.frame(element=c(1:2),groups=c("A,B,C","A,D"))
df_2 <- data.frame(groups=c("A","B","C","D"), values=c(1:4))

desired <- data.frame(element=c(1:2),groups=c("A,B,C","A,D"),sum=c(6,5))

【问题讨论】：

现在已修复，谢谢

标签： r dplyr strsplit vocabulary

【解决方案1】：

一个选项是通过分隔符, 拆分“组”以扩展具有separate_rows 的行，与键/val 数据集（“df_2”）进行连接，以“元素”为基础，得到'values' 的sum

library(tidyverse)
df_1 %>% 
  separate_rows(groups) %>% 
  left_join(df_2) %>% 
  group_by(element) %>%
  summarise(groups = toString(groups), sum = sum(values))
# A tibble: 2 x 3
#  element groups    sum
#    <int> <chr>   <int>
#1       1 A, B, C     6
#2       2 A, D        5

或者base R 的另一个选项是使用命名键/值vector 'nm1') 来更改拆分后的list 元素sum 中的值并将其分配给'df_1 中的新列'

nm1 <- setNames(df_2$values, df_2$groups)
df_1$sum <- sapply(strsplit(as.character(df_1$groups), ","), function(x) sum(nm1[x]))

【讨论】：