[英]Simple function does not work for `dcast` - reshape2
假设我有以下数据:
c1 c2 c3
A A AA
A B BB
A C CC
B A DD
B B EE
B C FF
C A GG
C B HH
C C II
A A JJ
我想使用dcast
使用此功能来重塑它们:
dcast(data,c1~c2,value.var="c3",function(x)x)
但是我得到这个错误:
Error in vapply(indices, fun, .default) : values must be length 0,
but FUN(X[[1]]) result is length 1
如何在dcast
使用新功能(用户定义功能)。
我想得到:
A B C
A AA BB CC
B DD EE FF
C GG HH II
A JJ NA NA
这是使用data.table
sv 1.9.5+新的rleid
函数的可能解决方案,该函数将为c1
列创建索引(如果需要,可以在以后删除indx
)
library(data.table) # v 1.9.5+
dcast(setDT(stocksm)[, indx := rleid(c1)], indx + c1 ~ c2, value.var = "c3")
# indx c1 A B C
# 1: 1 A AA BB CC
# 2: 2 B DD EE FF
# 3: 3 C GG HH II
# 4: 4 A JJ NA NA
### installing the development version
# library(devtools)
# install_github("Rdatatable/data.table", build_vignettes = FALSE)
因此,基本上,在c1
上创建索引后,我们像以前一样或多或少地分布了数据,同时在内部包含了indx
或者,如果您坚持tidyr
,这是一个选择
library(tidyr)
stocksm$indx <- with(rle(as.character(stocksm$c1)), rep(seq_along(lengths), lengths))
spread(stocksm, c2, c3)
# c1 indx A B C
# 1 A 1 AA BB CC
# 2 A 4 JJ <NA> <NA>
# 3 B 2 DD EE FF
# 4 C 3 GG HH II
用另一种方式dcast
是创建唯一标识符cumsum
。 如果未创建,则该函数将不知道要为AA
重复项填充哪个值。
data$ids <- cumsum(c(T,diff(as.numeric(data$c1)) != 0L))
dcast(data, ids+c1~c2, value.var="c3")[-1]
# c1 A B C
# 1 A AA BB CC
# 2 B DD EE FF
# 3 C GG HH II
# 4 A JJ <NA> <NA>
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.