而不作爲R

Question

環路發現值I有一個向量v，其中c（）創建的，具有這樣的數據：

v[a,b,d,z,e,f], it must be unordered 

我必須跟形式的txt文件：

 label  1   2   3  .... 
     b  100  2000   15 
     z  123   14   12 
     a   55   565   55 
    ..... 

我已經提取的txt文件，即分隔與卡口與strplit

 ext_data<-strsplit(file,"\t") 

我想要做的就是看是否矢量V的元素相匹配的Elemen之一它可以在那裏沒有，然後提取txt文件的第1列的相應元素，然後是第2列的元素等等

我已經使用for循環做了匹配，但是正在太多的時間，因爲txt文件中包含太多的數據，這樣的（算法）

 for i=1 to length(v) 
      for pos=2 to ext_data  #I put pos=2 because I start in the second row 
        if match(vector) and ext_data(pos,1) 
         retrieve data from column C  

什麼建議嗎？

粗略地說，我想知道是否有一種方法可以使用匹配，但是對於列，也許可以將列標籤在一行中轉換？

Answer 1

只創建一些測試數據來說明我的解決方案：

testdata <- data.frame(namecol=c("b","r","a","j","z","l","s","n","t"), 
         v1=sample(1:1000,9), 
         v2=sample(1:1000,9), 
         v3=sample(1:1000,9)) 
vecfind <- c("a","b","d","z","e","f") 

使用[[]]或$，可以選擇一個數據幀的第一個元素作爲載體，然後使用which和%in%功能，則可以獲取數字行索引，然後提取元素，如下所示：

v1_elements <- testdata[which(testdata[[1]] %in% vecfind),2] 
v2_elements <- testdata[which(testdata[[1]] %in% vecfind),3] 
v3_elements <- testdata[which(testdata[[1]] %in% vecfind),4]