如果列包含在另一列文本，添加新列索引文本

1數據幀：

Placement <- c('B-dghealpha', 'B-deAlpha', 'B-edfBeta', 'B-edgesg', 'B-edghe', 
'B-polard', 'B-plotter', 'C-wertw', 'OPLTWE', 'optional') 

This_Month <- c(2000,4000,4000,5000,5400,9000,1222,1424,2222,1908) 

Last_Month <- c(21000, 23400, 26800, 1234, 1245, 4593, 4958, 1223, 1111, 2222) 

df1 <- data.frame(Placement, This_Month, Last_Month) 

df1 

    Placement This_Month Last_Month 
1 B-dghealpha  2000  21000 
2 B-deAlpha  4000  23400 
3 B-edfBeta  4000  26800 
4  B-edgesg  5000  1234 
5  B-edghe  5400  1245 
6  B-polard  9000  4593 
7 B-plotter  1222  4958 
8  C-wertw  1424  1223 
9  OPLTWE  2222  1111 
10 optional  1908  2222

第二個數據幀：

Family <- c('ALPHA', 'BETA', 'PLOT', 'OPTION') 

df2<-as.data.frame(Family) 

df2 

    Family 
1 ALPHA 
2 BETA 
3 PLOT 
4 OPTION

如何添加df1的另一列名爲：Family，其中df2中的值與df1的展示位列中包含的文字相匹配？

最終輸出需要：

 Placement This_Month Last_Month Family 
1 B-dghealpha  2000  21000 ALPHA 
2 B-deAlpha  4000  23400 ALPHA 
3 B-edfBeta  4000  26800 BETA 
4  B-edgesg  5000  1234  NA 
5  B-edghe  5400  1245  NA 
6  B-polard  9000  4593  NA 
7 B-plotter  1222  4958 PLOT 
8  C-wertw  1424  1223  NA 
9  OPLTWE  2222  1111  NA 
10 optional  1908  2222 OPTION

謝謝！

來源

2016-11-28 Nick Knauer

這對你有幫助嗎？

df1$Family = NA_character_ 
p = tolower(Placement) 
f = tolower(Family) 
sapply(seq_along(f),function(i) df1$Family[grepl(f[i],p)] <<- Family[i])

來源

2016-11-28 22:29:24 jamieRowen

這很好，謝謝！ –

如果列包含在另一列文本，添加新列索引文本

回答

相關問題