2

文字データを含むdata.frameがあり、同じ列見出しで各値のカウントを持つマトリックスになりたいです。これまでのところ、必要なディメンションの空行列を取得できますが、myMatrixカウントを入力しようとすると、機能しません。

myData <- data.frame(a=LETTERS[5:8], b=LETTERS[6:9], c=rep(LETTERS[5:6],2), d=rep(LETTERS[7],4))
#   a b c d
# 1 E F E G
# 2 F G F G
# 3 G H E G
# 4 H I F G
myValues <- sort(unique(unlist(myData))) # E F G H I
myList <- lapply(myData, table)
myMatrix <- matrix(nrow=length(myValues), ncol=length(myList), dimnames=list(myValues,names(myList)))
#    a  b  c  d
# E NA NA NA NA
# F NA NA NA NA
# G NA NA NA NA
# H NA NA NA NA
# I NA NA NA NA

ここまでは順調ですね。これは私が期待することをしない部分です：

lapply(seq_along(myList), function(i) {myMatrix[names(myList[[i]]),names(myList[i])] <- myList[[i]]})

正しい値を返しますが、myMatrixそれでもNAでいっぱいです。奇妙なことに、これは機能します：

myMatrix[names(myList[[2]]),names(myList[2])] <- myList[[2]]
#    a  b  c  d
# E NA NA NA NA
# F NA  1 NA NA
# G NA  1 NA NA
# H NA  1 NA NA
# I NA  1 NA NA

失敗への割り当てがmyMatrix失敗するのはなぜですか？また、（ループlapplyなしで）それを機能させるにはどうすればよいですか？for

4

3 に答える 3

5

これがdata.frameを返すアプローチです

# create table, convert to data.frames then give appropriate column names
myList <- Map(setNames, lapply(lapply(myData, table), data.frame),  Map(c, 'Var', names(myList)))
# merge recursively
Reduce(function(...) merge(..., by = 'Var', all = T), myList)
  Var  a  b  c  d
1   E  1 NA  2 NA
2   F  1  1  2 NA
3   G  1  1 NA  4
4   H  1  1 NA NA
5   I NA  1 NA NA
于 2012-12-06T01:42:24.047 に答える
2

@orizo​​nは、の使用がlapply期待どおりに機能しない理由について正しいです。<-それが機能するためにはを置き換える必要がありますが、関数がそのような副作用を持つ<<-ことは一般的に悪い習慣と考えられています。*apply

代わりに、

sapply(lapply(myData, factor, unique(unlist(myData))), table)

#   a b c d
# E 1 0 2 0
# F 1 1 2 0
# G 1 1 0 4
# H 1 1 0 0
# I 0 1 0 0
于 2012-12-06T01:59:30.707 に答える
1

tableすべてを2つのベクトルに折りたたむと、を1回呼び出すだけで目的の結果を得ることができます。の値にdata.frame1つのベクトル、列識別子に1つのベクトルを使用col：

table(unlist(myData), colnames(myData)[col(myData)])

結果：

  a b c d
E 1 0 2 0
F 1 1 2 0
G 1 1 0 4
H 1 1 0 0
I 0 1 0 0
于 2012-12-06T01:48:50.407 に答える