请问怎么删除三个文件中的相同行

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

例如有三个文件：

A.txt
A       a       1
j       s       a
c       d       a
b      j        2


B.txt
a       j       a
b       j       2
A       a       1


C.txt
b       j       2
A       a       1


删除三个文件中都有的行，最后产生的三个文件如下：
1.txt
j       s       a
c       d       a


2.txt
a       j       a

3.txt
None

请问有什么简单一点方法可以办到吗？难道要循环三个文件？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：none txt CAT

我觉得没什么简单的办法。
读三个数据框，相互join 一下，再写入到文件，大概就这么个思路吧，其实也不算很麻烦吧。 如果文件非常大的话肯定是成本大一些

###############################
ibrary(dityverse)
# 三种数据集分别为Ada,Bda ,Cda ,三数据集的变量名应相同
################################
  myda<-bind_rows(Ada,Bda,Cda)
   xv<-names(myda)
  yda<-myda%>%distinct()%>%add_column(gp=1L:NROW(.), gf=1L)
xda<- myda%>%left_join(yda)%>%group_by(gp)%>%summarise(gf=sum(gf))%>%filter(gf<3)%>%
                           ungroup()%>%selelect(-gp,-gf)
### 用xda 依次获得三个新数据集Anda,Bnda,Cnda

  Anda<-semi_join(xda,Ada)
  Bnda<-semi_join(xda,Bda)
  Cnda<-semi_join(xda,Cda)
##################################
##  以上 *_join 中用了参数 by 缺失设置的特性。。
### 中间数据删除
rm(xda,yda,myda)
#####################
## 不知是否可行，请一试。。。。。
         

jgchen1966 发表于 2018-8-7 17:09
###############################
ibrary(dityverse)
# 三种数据集分别为Ada,Bda ,Cda ,三数据集的变量名 ...

xv<-names(myda)   ## 多余了，前认为有用，后又没用它，可删除！！

此问题，是一个不错的，巧用 一系列 tidyr::*_join函数的案例。。 尤其巧用 参数 by =NULL  缺失设置。。。