從廣泛到長的嵌套重塑

當試圖將對象重塑爲長方向時，我總是收到各種錯誤消息。玩具數據：從廣泛到長的嵌套重塑

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

從廣泛到長的嵌套重塑

回答

相關問題