워라밸 중독자

[R] 행 이름으로 데이터프레임 필터링하기 본문

코딩, 딱 지금이 시작할때! (코딱지)

[R] 행 이름으로 데이터프레임 필터링하기

Ufungi 2024. 4. 25. 14:14

 

filter(data.frame, row.names(.) 비교연산)

> head(tax_table)
              Kingdom            Phylum                  Class              Order               Family               Genus
ASV_64083 k__Bacteria p__Proteobacteria  c__Betaproteobacteria o__Burkholderiales  f__Burkholderiaceae g__Paraburkholderia
ASV_14222 k__Bacteria p__Proteobacteria c__Alphaproteobacteria     o__Rhizobiales f__Bradyrhizobiaceae   g__Bradyrhizobium
ASV_36444 k__Bacteria p__Proteobacteria c__Alphaproteobacteria     o__Rhizobiales f__Bradyrhizobiaceae   g__Bradyrhizobium
ASV_25333 k__Bacteria p__Proteobacteria c__Alphaproteobacteria     o__Rhizobiales      f__Brucellaceae     g__Ochrobactrum
ASV_2041  k__Bacteria p__Proteobacteria  c__Betaproteobacteria o__Burkholderiales       f__Ralstonia_f      g__Cupriavidus
ASV_46306 k__Bacteria p__Proteobacteria  c__Betaproteobacteria o__Burkholderiales  f__Burkholderiaceae g__Paraburkholderia
                                   Species
ASV_64083 s__Paraburkholderia_sediminicola
ASV_14222         s__Bradyrhizobium_AXAI_s
ASV_36444      s__Bradyrhizobium_mercantei
ASV_25333  s__Ochrobactrum_thiophenivorans
ASV_2041        s__Cupriavidus_campinensis
ASV_46306   s__Paraburkholderia_caledonica

> vec
  [1] "ASV_1767"  "ASV_132"   "ASV_2130"  "ASV_2234"  "ASV_366"   "ASV_109"   "ASV_79423" "ASV_2318"  "ASV_224"   "ASV_79251" "ASV_2114" 
 [12] "ASV_2042"  "ASV_141"   "ASV_694"   "ASV_1397"  "ASV_78893" "ASV_736"   "ASV_4"     "ASV_312"   "ASV_79921" "ASV_1927"  "ASV_79427"
 [23] "ASV_582"   "ASV_872"   "ASV_79125" "ASV_79495" "ASV_1304"  "ASV_259"   "ASV_258"   "ASV_79762" "ASV_78923" "ASV_79110" "ASV_79285"
 [34] "ASV_198"   "ASV_595"   "ASV_53"    "ASV_78892" "ASV_1047"  "ASV_1554"  "ASV_2155"  "ASV_79302" "ASV_79673" "ASV_79167" "ASV_80019"
 [45] "ASV_79540" "ASV_1605"  "ASV_79353" "ASV_78870" "ASV_79969" "ASV_817"   "ASV_1170"  "ASV_378"   "ASV_2013"  "ASV_79956" "ASV_1764" 
 [56] "ASV_586"   "ASV_79187" "ASV_79477" "ASV_79127" "ASV_79817" "ASV_992"   "ASV_241"   "ASV_79122" "ASV_1837"  "ASV_79105" "ASV_1824" 
 [67] "ASV_78759" "ASV_1723"  "ASV_1399"  "ASV_80008" "ASV_1623"  "ASV_2134"  "ASV_79763" "ASV_80004" "ASV_1015"  "ASV_1207"  "ASV_1359" 
 [78] "ASV_2071"  "ASV_2317"  "ASV_78917" "ASV_2025"  "ASV_1889"  "ASV_2216"  "ASV_831"   "ASV_710"   "ASV_471"   "ASV_79372" "ASV_1931" 
 [89] "ASV_79528" "ASV_1664"  "ASV_79389" "ASV_79156" "ASV_481"   "ASV_909"   "ASV_178"   "ASV_1982"  "ASV_706"   "ASV_79571" "ASV_2056" 
[100] "ASV_79617" "ASV_1166"  "ASV_2086"  "ASV_2027"  "ASV_1542"  "ASV_1430"  "ASV_79346" "ASV_103"   "ASV_79980" "ASV_615"   "ASV_79260"
[111] "ASV_654"   "ASV_1382"  "ASV_1745"  "ASV_78777" "ASV_503"   "ASV_1080"  "ASV_2153"  "ASV_1002"  "ASV_78689" "ASV_79030" "ASV_1884" 
[122] "ASV_79557" "ASV_2047"  "ASV_79759" "ASV_2242"  "ASV_1892"  "ASV_78834" "ASV_79543" "ASV_78698" "ASV_78820" "ASV_72"    "ASV_811"  
[133] "ASV_292"   "ASV_2087"  "ASV_150"   "ASV_1052"  "ASV_79493" "ASV_79051" "ASV_79798" "ASV_1313"  "ASV_78857" "ASV_1076"  "ASV_610"  
[144] "ASV_79075" "ASV_2337"  "ASV_896"   "ASV_2125"  "ASV_384"  

> tax_table %>% filter(row.names(.) %in% vec) %>% head()
             Kingdom            Phylum                  Class                 Order                 Family               Genus
ASV_1767 k__Bacteria  p__Bacteroidetes    c__Sphingobacteriia o__Sphingobacteriales f__Sphingobacteriaceae       g__Pedobacter
ASV_132  k__Bacteria  p__Bacteroidetes       c__Flavobacteria   o__Flavobacteriales   f__Flavobacteriaceae   g__Flavobacterium
ASV_2130 k__Bacteria p__Actinobacteria    c__Actinobacteria_c      o__Micrococcales   f__Microbacteriaceae       g__Mycetocola
ASV_2234 k__Bacteria  p__Bacteroidetes    c__Sphingobacteriia o__Sphingobacteriales f__Sphingobacteriaceae       g__Pedobacter
ASV_366  k__Bacteria  p__Bacteroidetes    c__Sphingobacteriia o__Sphingobacteriales f__Sphingobacteriaceae g__Sphingobacterium
ASV_109  k__Bacteria p__Proteobacteria c__Gammaproteobacteria    o__Pseudomonadales    f__Pseudomonadaceae      g__Pseudomonas
                             Species
ASV_1767          s__Pedobacter_pt_8
ASV_132     s__Flavobacterium_MLFK_s
ASV_2130       s__Mycetocola_lacteus
ASV_2234  s__Pedobacter_himalayensis
ASV_366  s__Sphingobacterium_faecium
ASV_109      s__Pseudomonas_japonica