8

次のようなデータフレーム df があります。

    type    V1    V2
1    A    bla    bla
2    A    bla    bla
3    B    bloo    bla
4    B    bloo    bla
5    C    moo    bloo
6    C    moo    bloo

現在、私はこれを得るために溶解/キャストしています:

type    bla    bloo    moo
A    4    0    0
B    2    2    0
C    0    2    2

次のコマンドを使用します。

library(reshape)
melted <- melt(df, id='type')
count <- function(x) { 
  length(na.omit(x))
}
casted <- cast(melted, type~value, count)

ただし、カウント/合計する代わりに、元の行名のリストを取得したいと考えています。このようなもの：

type    bla    bloo    moo
A    1,2    0    0
B    3,4    3,4    0
C    0    5,6    5,6

ここで、bla、bloo、および moo の各値は、元のデータ フレームからの一意の行名のリストです。

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

4

1 に答える 1

11 
library(reshape2)
df <- read.table(text="type    V1    V2
1    A    bla    bla
2    A    bla    bla
3    B    bloo    bla
4    B    bloo    bla
5    C    moo    bloo
6    C    moo    bloo")

df$id <- rownames(df)

melted <- melt(df, id=c('type','id'),measure.vars=c("V1","V2"))

fun <- function(x) paste(unique(x),collapse=",") 

dcast(melted,type~value,fun,value.var="id",fill="0")

#  type bla bloo moo
#1    A 1,2    0   0
#2    B 3,4  3,4   0
#3    C   0  5,6 5,6
于 2013-03-08T17:01:49.900 に答える