R语言删除重复值
>test <- data.frame(
x1 = c(1,2,3,4,5,1,3,5),
x2 = c("a","b","c","d","e","a","b","e"),
x3 = c("a","b","c","d","e","a","c","e"))
> test
x1 x2 x3
1 1 a a
2 2 b b
3 3 c c
4 4 d d
5 5 e e
6 1 a a
7 3 b c
8 5 e e
> test[!duplicated(test),] #删掉所有列上都重复的
x1 x2 x3
1 1 a a
2 2 b b
3 3 c c
4 4 d d
5 5 e e
7 3 b c
选择性的删除重复的
> test[!duplicated(test[,c(2,3)]),]
x1 x2 x3
1 1 a a
2 2 b b
3 3 c c
4 4 d d
5 5 e e
7 3 b c
————————————————
版权声明：本文为CSDN博主「茁壮小草」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/xxzhangx/article/details/52369174
示例：setwd("/Users/zhongyue/Desktop/胶囊/07.Venn")
rt=read.table("drug.txt",header=F)
x=rt[!duplicated(rt),]
write.table(x,file="删减drug.txt",sep="\t",quote=F,row.names=F)#输出删减的数据
