4# junuylia

不好意思，数数错了，应该是保留2,3行，删除4,5行

如果第6行为BR是删除还是保留
即后面行的元素是否可以添加至你的匹配集合
还是匹配集合永远以第一行为准

7# soporaeternus

多谢多谢，第6行是BR就删除，如果是DR就保留，按有没有包含关系为准

9# soporaeternus

灰常感谢，但是我没学过SQL，我想问的是，如果我的数据里面，A,B,C,D,E...都是以变量的形式存在的呢？我刚才试图该过您的程序，但是好像不行，就是说在t1里面我没有str，但是有id和kw，谢谢

10# hopewell

灰常感谢！！！
我还是有个问题，A,B,C,D...在这里都是一个简化的形式，实际上他们从5000个字符变量中任何数量个的组合，能不能将您的方法尽量扩展到一般的方法，谢谢

9# soporaeternus

好像我还是没有把问题说清楚，换个问法，我的数据就长的像t1一样，有id和kw。但是就是没有str，而且不可能把同一id的东西拼在一起，因为kw可能取值太多太长了，您看可以怎么办

9# soporaeternus

搞定啦，多谢多谢，怎么给您转账呢？！

变量id等价于str
呵呵......

比较关注，看看你们的答案

路过，，，，，，，，，，

路过，顶一下啊

期待高手答案。。。

好厉害啊
学习中

如果只是删除重复的行，在R中可以按照这样的思路做。
比如:有两行，第一行为A,B,C,D,E,第二行为C,D;
> fun=function(x,y)
+ { n1=length(x)
+   n2=length(y)
+   t=0;
+   if(n1>n2)
+   { for(i in 1:n2){ if(any(x==y)) s=1 else s=0; t=t+s }
+     if(t==n2) list(x)  else list(x,y)     #如果t=n2说明x包含y，输出x,否则,x和y都输出
+   }else
+    { for(i in 1:n1){ if(any(y==x)) s=1 else s=0; t=t+s }
+      if(t==n1) list(y)  else list(x,y)    #如果t=n1说明y包含x，输出y,否则，x和y都输出
+    }
+ }

> x=c('A','B','C','D','E')
> y=c('C','D')
> fun(x,y)
[[1]]
[1] "A" "B" "C" "D" "E"
比如:有两行，第一行为A,B,C,D,E,第二行为C,D,R;
> x=c('A','B','C','D','E')
> y=y=c('C','D','R')
> fun(x,y)
[[1]]
[1] "A" "B" "C" "D" "E"

[[2]]
[1] "C" "D" "R"

其实还可以用which语句来做