0

因子レベルの問題があります。stringAsFactors=FALSE で解決するかと思ったのですが、うまくいきません。

これpLは 290 要素のリストです。を使用して埋めるよりも、空の data.frame を定義したいと思いますrbind。

ttable <- data.frame(ID_REF=c(1,2,3,4,5,6), IDENTIFIER=c("ERN2", "HTR5A", "ACPP", "GNAO1", "HTR1F", "DNAH1"), GSM11708=c("<NA>", 1.994, "<NA>","<NA>","<NA>","<NA>"), GSM11735=c(0.18, "<NA>","<NA>","<NA>","<NA>","<NA>"))
pL <- list("GSTT4", "AHRR", "HAX1", "DNM1L", "MEIS1", "SLC17A3", "CES2", "MLL2", "IKBKB", "GSTA4")

gn <- data.frame(gn = character(0), stringsAsFactors=FALSE)

for(i in pL){
  n <- nrow(subset(ttable, IDENTIFIER==i))
  if (n < 1){
    gn <- rbind(gn, i)
  }
  else{
    for(j in 1:n){
      gn <- rbind(gn, i)
    }
  }
}
4

1 に答える 1

0

再現可能な例がなければ、助けるのは難しいです。しかし、これはうまくいくはずです：

gn1 <- unlist(lapply(pL,function(i){
  n <- nrow(subset(ttable, IDENTIFIER==i))
  gn <- if (n < 1) i  else seq(n)
}))

z コードを実行すると、gndata.frame が取得されます。あなたは私のものを実行すると、gn1ベクトルが得られます。私cbindは比較のために2。

    cbind(as.data.frame(gn1),gn)
       gn1 X.GSTT4.
1    GSTT4    GSTT4
2     AHRR     AHRR
3     HAX1     HAX1
4    DNM1L    DNM1L
5    MEIS1    MEIS1
6  SLC17A3  SLC17A3
7     CES2     CES2
8     MLL2     MLL2
9    IKBKB    IKBKB
10   GSTA4    GSTA4

シードすると、2 つの列は同一になります。

于 2013-07-17T10:59:15.853 に答える