R Studio中的重复数据删除

Question

这是我的第一个R代码，它是一个非常简单的重复数据删除，但它工作得如此之慢，我简直不敢相信！我的问题是：它工作如此缓慢或者我的代码很糟糕是否正常？ 这就是：

file1=c(read.delim("file.txt", header=TRUE)) 

dedupes<-0 
i<-1 
n<-1 
while (i<=100) { 

    while (n<=100) { 

    if (file1$email[i]==file1$email[n] && i!=n) { 

    #Remember amount of deduces 
     dedupes=dedupes+1 
    #Show dedupes 
     print(file1$email[i])    } 

    n<-n+1 

    } 

    n<-1 
    i<-i+1 

} 

#Show amount of dedupes 
cat("There are ", dedupes/2, " deduces") 

很多感谢， Saitam

Answer 1

叠瓦状循环是众所周知的是缓慢R.您需要向量化你的结石或利用现有的优化功能，如在建议BondedDust