求问用R如何根据特定的条件筛选需要的数据

第二点要做到的只有一个办法就是，新增加一行标识行（也就是和哪个ID相邻的结果，这一行的标识就是该ID）

1. setwd("D:/")
   
2. library(stringr)
   
3. da<-read.csv("E:/data/R/name1.csv")
   
4. da<-da[which(da[,3]=="A"),]
   
5. n<-dim(da)[1]
   
6. da1<-da
   
7. #把数据中的“ＩＤ＝”去掉
   
8. da1[,9]<-sapply(da[,9],function(x){substr(x,6,7)})
   
9. ID=rep("NA",dim(da)[1])
   
10. da<-data.frame(da,ID)
    
11. ##第四列
    
12. for (i in 1:n)
    
13. {
    
14.   dis<-abs(da[,4]-da[i,4])
    
15.   re<-da[which(dis<=100),]
    
16.   re[,10]<-da1[i,9]
    
17.   write.table(re,file="start.csv",row.names = F,col.names = F,append=T,sep=",")
    
18.   #新增加第10行，表示了该行是和哪个ID 相邻
    
19. }
    
20. #同理可得到第5列

复制代码

colinxf 发表于 2017-7-22 14:34
第二点要做到的只有一个办法就是，新增加一行标识行（也就是和哪个ID相邻的结果，这一行的标识就是该ID）

谢谢，问题已经解决了