行列からTRUE値を引き出す方法

Question

行列の各列からTRUE値を持つ遺伝子を取り出し、それぞれの対比（列）のためのリストを作成する必要があります。それをどうやって行うのですか？ここで

gcQVals=qvalue(eBgcData$p.value) 
print(sum(gcQVals$qvalues<=0.01)) 
gcQs2=gcQVals$qvalues<=0.01 
print(gcQs2[1:5,1:6]) 

が出力されます。

[1] 17969 
       Contrasts 
      KOInfvsKOUnInf WTInfvsWTUnInf KOInfvsWTInf KOInfvsWTUnInf 
    1415670_at   FALSE   FALSE  FALSE   FALSE 
    1415671_at   FALSE   FALSE  FALSE   FALSE 
    1415672_at    TRUE   FALSE  FALSE   TRUE 
    1415673_at   FALSE   FALSE  FALSE   FALSE 
    1415674_a_at   FALSE   FALSE  FALSE   FALSE 
      Contrasts 
      KOUnInfvsWTInf KOUnInfvsWTUnInf 
    1415670_at   FALSE   FALSE 
    1415671_at   FALSE   FALSE 
    1415672_at   FALSE   FALSE 
    1415673_at   FALSE   FALSE 
    1415674_a_at   FALSE   FALSE 

Answer 1

私はあなたが言ってこのMWEを建設されたかを把握することを試みた：

# build the example 
a <- matrix(runif(9), 3, 3)>0.5 
dimnames(a) <- list(letters[1:3], LETTERS[1:3]) 

# solution to your supposed problem 
lapply(colnames(a), function(name) rownames(a)[a[,name]]) 

> a 
     A  B  C 
a FALSE TRUE FALSE 
b FALSE FALSE TRUE 
c FALSE FALSE FALSE 

res <- lapply(colnames(a), function(name) rownames(a)[a[,name]]) 
names(res) <- colnames(a) 
> res 
$A 
character(0) 

$B 
[1] "a" 

$C 
[1] "b"