我有一个像这样的数据帧:
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)
然而,我想获得原始rownames的列表而不是计数/求和.像这样的东西:
type bla bloo moo A 1,2 0 0 B 3,4 3,4 0 C 0 5,6 5,6
其中bla,bloo和moo的每个值都是原始数据框中唯一的rownames列表.
有人可以帮忙吗?
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,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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。