从广泛到长的嵌套重塑

当试图将对象重塑为长方向时，我总是收到各种错误消息。玩具数据：从广泛到长的嵌套重塑

d <- structure(c(0.204, 0.036, 0.015, 0.013, 0.208, 0.037, 0.015, 
0.006, 0.186, 0.044, 0.016, 0.023, 0.251, 0.044, 0.02, 0.01, 
0.268, 0.04, 0.007, 0.007, 0.208, 0.062, 0.027, 0.036, 0.272, 
0.054, 0.006, 0.01, 0.274, 0.05, 0.011, 0.006, 0.28, 0.039, 0.007, 
0.019, 1.93, 0.345, 0.087, 0.094, 2.007, 0.341, 0.064, 0.061, 
1.733, 0.39, 0.131, 0.201, 0.094, 0.01, 0.004, 0, 0.096, 0.014, 
0, 0.001, 0.081, 0.016, 0.002, 0.016, 0.062, 0.007, 0.011, 0.001, 
0.07, 0.003, 0.005, 0.002, 0.043, 0.033, 0, 0.007, 0.081, 0.039, 
0.007, 0, 0.085, 0.033, 0.008, 0, 0.086, 0.023, 0.007, 0.007, 
0.083, 0.015, 0, 0, 0.09, 0.009, 0, 0, 0.049, 0.052, 0, 0.025, 
2.779, 0.203, 0.098, 0.016, 2.801, 0.242, 0.135, 0.01, 2.12, 
0.466, 0.177, 0.121, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 0, 1, 
2, 3, 0, 1, 2, 3, 0, 1, 2, 3), .Dim = c(12L, 11L), .Dimnames = list(
    c("0", "1", "2", "3", "0", "1", "2", "3", "0", "1", "2", 
    "3"), c("age_77", "age_78", "age_79", "age_80", "age_81", 
    "age_82", "age_83", "age_84", "age_85", "item", "k")))

基本上我有不同的年龄，其中3个项目已报告与四个响应类别每个。我想获得的长形物体与colnames = age, item, k, proportion，像这样：

structure(c(77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 77, 78, 
78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 78, 1, 1, 1, 1, 2, 2, 
2, 2, 3, 3, 3, 3, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 0, 1, 2, 
3, 0, 1, 2, 3, 0, 1, 2, 3, 0, 1, 2, 3, 0, 1, 2, 3, 0, 1, 2, 3, 
0.204, 0.036, 0.015, 0.013, 0.208, 0.037, 0.015, 0.006, 0.186, 
0.044, 0.016, 0.023, 0.251, 0.044, 0.02, 0.01, 0.268, 0.04, 0.007, 
0.007, 0.208, 0.062, 0.027, 0.036), .Dim = c(24L, 4L), .Dimnames = list(
    c("0", "1", "2", "3", "0", "1", "2", "3", "0", "1", "2", 
    "3", "0", "1", "2", "3", "0", "1", "2", "3", "0", "1", "2", 
    "3"), c("age", "item", "k", "proportion")))

我尝试的一个例子：

reshape(as.data.frame(d), varying =1:9, sep = "_", direction = "long", 
         times = "k", idvar = "item") 
Error in `row.names<-.data.frame`(`*tmp*`, value = paste(ids, times[i], :

复制“row.names”不允许

任何线索我的错误在哪里？事先感谢！

来源

2017-08-31 Gina Zetkin

能否请您添加预期输出和你使用任何包（'％>％'）没有基础R – Sotos

'reshape'需要data.frame作为输入，但'D'是一个矩阵。另外，行名并不唯一。 – Uwe

比例是包含在'age' colums中的值 –

如由OP提供的对象d不是data.frame但导致该错误的矩阵：

str(d)

num [1:12, 1:11] 0.204 0.036 0.015 0.013 0.208 0.037 0.015 0.006 0.186 0.044 ... 
- attr(*, "dimnames")=List of 2 
    ..$ : chr [1:12] "0" "1" "2" "3" ... 
    ..$ : chr [1:11] "age_77" "age_78" "age_79" "age_80" ...

此外，行号不是唯一的，其会导致错误以及将d强制为data.frame。

使用data.table，d可以强制转换为data.table对象，并使用melt()将其重新整形为长格式。最后，从列名中提取age，并按照OP请求的整数值存储。

library(data.table) 
melt(as.data.table(d), measure.vars = patterns("^age_"), 
    variable.name = "age", value.name = "proportion")[ 
    , age := as.integer(stringr::str_replace(age, "age_", ""))][]

 item k age proportion 
    1: 1 0 77  0.204 
    2: 1 1 77  0.036 
    3: 1 2 77  0.015 
    4: 1 3 77  0.013 
    5: 2 0 77  0.208 
---      
104: 2 3 85  0.010 
105: 3 0 85  2.120 
106: 3 1 85  0.466 
107: 3 2 85  0.177 
108: 3 3 85  0.121

来源

2017-08-31 13:21:08 Uwe

从广泛到长的嵌套重塑

回答

相关问题