求指导，有一个数据框和一个向量,要根据向量中的数据与数据框中的属性列ID(有重复)对比，然后把数据分类

lean

有一个数据框，数据框里面有ID(有重复)等属性列，有一向量A存储有people中ID属性列的某些ID，现在要根据向量A，与people的属性PtID对比，把数据框中ID相同的所在行的数据筛选出来。

尝试过循环for{subset}，但是得不到结果，求助大神给个思路

部分类似的数据如下

[data]

#People

PtID CD4Date CD4Count_VLoad

23424 0 32.363636

23424 4 58.461538

23424 8 26.808511

23424 25 42.750000

23424 40 19.800000

23425 0 2.641509

23425 4 25.833333

23425 9 29.729730

23425 23 46.923077

23426 0 22.444444

23426 4 88.823529

23426 8 67.647059

23426 26 53.214286

23426 46 35.294118

23427 0 1.886792

23427 4 4.074074

23427 7 11.538462

23427 24 68.500000

#A

23424 23427

[/data]

itellin

<br />
library(data.table)</p>
<p>People = as.data.table(dat)<br />
setkey(People,PtID)</p>
<p>A = data.table(ID = c(23424,23427))<br />
setkey(A,ID)</p>
<p>People[A]</p>
<p>    PtID CD4Date CD4Count_VLoad<br />
1: 23424       0      32.363636<br />
2: 23424       4      58.461538<br />
3: 23424       8      26.808511<br />
4: 23424      25      42.750000<br />
5: 23424      40      19.800000<br />
6: 23427       0       1.886792<br />
7: 23427       4       4.074074<br />
8: 23427       7      11.538462<br />
9: 23427      24      68.500000<br />

</p>

lean

回复第2楼的 itellin：非常感谢，但是有个疑问，为什么我用for循环subset得不出结果呢，下面是我写的代码(思想还停留在C++,)，

<br />
classify <- function(ACTG320_,Patient)<br />
{<br />
  PatientID <- c(0)<br />
  Date <- c(0)<br />
  CD4_VLoad <- c(0)<br />
PatientAll <- data.frame(PatientID,Date,CD4_VLoad)<br />
print(PatientAll)<br />
for(i in 1:length(Patient))<br />
{<br />
for(j in 1:length(ACTG320_$PtID))<br />
{<br />
if(Patient[i] == ACTG320_$PtID[j])<br />
{<br />
rbind(PatientAll,list(ACTG320_$PtID[j],ACTG320_$CD4Date[j],ACTG320_$CD4Count_VLoad[j]))<br />
}<br />
}<br />
}<br />
return(PatientAll)<br />
}<br />

</p>

itellin

回复第3楼的 lean：

看见for，眼睛就发晕。

libingfei

1、使用R做这类链接只需要：

<br />
People[People$PtID%in%A,]<br />

即可。

2、你非要写循环你的循环可以改为

<br />
classify <- function(ACTG320_,Patient)<br />
{<br />
  PatientID <- c(0)<br />
  Date <- c(0)<br />
  CD4_VLoad <- c(0)<br />
  #PatientAll <- matrix(0,3,)<br />
  flag=0<br />
  #print(PatientAll)<br />
  for(i in 1:length(Patient))<br />
  {<br />
    for(j in 1:length(ACTG320_$PtID))<br />
    {<br />
      if(Patient[i] == ACTG320_$PtID[j])<br />
      {<br />
        if(flag==0) {<br />
          PatientAll<-ACTG320_[j,]<br />
          flag=1<br />
        }else{<br />
          PatientAll<-rbind(PatientAll,ACTG320_[j,])<br />
        }<br />
      }<br />
    }<br />
  }<br />
  PatientAll<br />
}<br />

</p>

lean

回复第4楼的 itellin：刚接触R没几天~~[s:12]，发现for的效率确实不高，谢谢指导了

lean

回复第5楼的 libingfei：大神呐，看了改进的，豁然开朗，非常感谢