我有一个数据框,并希望根据第一列中的名称与向量中的名称的部分匹配来对其进行过滤。
nam <- c('mmu_mir-1-3p','mmu_mir-1-5p','mmu-mir-3-5p','mir-4','mmu-mir-6-3p') #factor
aa <- c('12854','36','5489','54485','2563') #numeric
df <- data.frame(nam,aa)
vector <- c('mir-1','mir-3','mir-6')
我需要在新数据帧中包含df$nam
中的名称与vector
中的名称部分匹配的行。因此new_df
应该看起来像这样。
new_nam <- c('mmu_mir-1-3p','mmu_mir-1-5p','mmu-mir-3-5p','mmu-mir-6-3p') #factor
new_aa <- c('12854','36','5489','2563') #numeric
new_df <- data.frame(new_nam,new_aa)
我们可以将'vector'的元素paste
分解成单个字符串,并用|
折叠起来,并在grepl
或str_detect
至filter
中使用行
library(dplyr)
library(stringr)
df %>%
filter(str_detect(nam, str_c(vector, collapse="|")))
# nam aa
#1 mmu_mir-1-3p 12854
#2 mmu_mir-1-5p 36
#3 mmu-mir-3-5p 5489
#4 mmu-mir-6-3p 2563
在base R
中,可以用subset/grepl
来完成>
subset(df, grepl(paste(vector, collapse= "|"), nam))