我有一个数据表,该数据表由3列和从R生成的1000+行组成。前两列是字符串,最后一些字符在某些列中相似(它们表示单元格类型)。我只想从非相似行中过滤掉信息。
AAA.aa BBB.aa 0.9
AAA.aa BBB.bb 0.8
CCC.cc DDD.cc 0.7
CCC.cc BBB.bb 0.8
我希望我的输出为:
AAA.aa BBB.bb 0.8
CCC.cc BBB.bb 0.8
任何帮助将不胜感激。
这应该工作
filter <- apply(Z,MARGIN = 1,function(x){
paste(x,collapse = "")
}) %>% duplicated
Z[filter,]
仅保留要比较的字符串部分,并使用!=
删除
subset(df, sub('.*\\.', '', V1) != sub('.*\\.', '', V2))
# V1 V2 V3
#2 AAA.aa BBB.bb 0.8
#4 CCC.cc BBB.bb 0.8
数据
df <- structure(list(V1 = c("AAA.aa", "AAA.aa", "CCC.cc", "CCC.cc"),
V2 = c("BBB.aa", "BBB.bb", "DDD.cc", "BBB.bb"), V3 = c(0.9,
0.8, 0.7, 0.8)), class = "data.frame", row.names = c(NA, -4L))