-1

我对以下数据框有疑问：

genes <- matrix(c("chr1","chr2","chr2","chr2","chr2","chr2",
              "uc001upw.2","uc001upw.2","uc001upw.2","uc001upx.1","uc001upy.1","uc001upz.1",
              "188001308","188001308","188001308","188037202","188037202","188037202",
              "188021266","188021266","188021266","188086618","188127464","188127464",
              "-","-","-","-","-","-",
              "CARCRL","CALCRL","CALCRL","TFPI","TFPI","TFPI", 
              "uc001upx.1","uc00upy.1","uc001upz.1","uc001upw.2","uc001upw.2","uc001upw.2",
              "188037202","188037202","188037202","188001308","188001308","188001308",
              "188086618","188127464","188127464","188021266","188021266","188021266",
              "-","-","-","-","-","-",
              "TFPI","TFPI","TFPI","CALCRL","CALCRL","CALCRL",
              "35894","35894","35894","35894","35894","35894"), nrow=6)

colnames(genes)<- c("chr","names.x","start.x","stop.x","strand.x","alias.x","name.y","start.y","stop.y","strand.y", "alias.y", "distance_startsite")
genes<-as.data.frame(genes)

在数据框中，您可以看到前三行是 names.x 和 names.y 唯一的。第 4、5 和 6 行不是唯一的，它们只是以相反的方式显示。我的问题是：有没有办法过滤这个？

谢谢！萨曼莎

4

1 回答 1

1

我敢肯定，这不是最漂亮的方法，但它可以完成工作：

genes[!duplicated(t(apply(genes[,c('names.x','name.y')],1,sort))),]
于 2011-05-18T14:47:20.593 回答