2

で終わらないすべての単語を大きなファイルにサブセット化しようとしています"_at"。

例: ファイル「myfile」は、次のように構成された data.frame です (具体的には、50 列と 1000 行のファイルがあります)。

myfile <- read.table( text = '"G1"            "G2"  
    SEP11          ABCC1   
    205772_s_at    FMO2   
    214223_at      ADAM19     
    ANK2           215742_at 
    COPS4          BIK 
    214808_at      DCP1A
    ACE            ALG3
    BAD            215369_at
    EMP3           215385_at
    CARD8          217579_x_at
', header = TRUE, stringsAsFactors = FALSE)

次の出力が必要です。

  "G1"           "G2"  
 SEP11          ABCC1  
 ANK2           FMO2  
 COPS4          ADAM19     
 ACE            BIK   
 BAD            DCP1A
 EMP3           ALG3 
 CARD8

次の文字列を使用しましたが、おそらく何か間違ったことをしているために機能しません。

sub <- myfile[-grep("\\_at", names(myfile)), ]

誰でも私を助けることができますか？

4

1 に答える 1

6

次のコードは、リストを提供します。リストの各要素は、正規表現でフィルタリングされた列のサブセットです_at$。を参照してください?grep。

lapply( myfile, 
   function(column) grep( "_at$", column, invert = TRUE, value = TRUE )
)
于 2012-11-13T09:56:12.027 に答える