如何将2x2列联表转换为长格式数据帧？ [重复]

Question

这个问题在这里已有答案：

• 复制data.frame的每一行并指定每行 7个答案 的复制数

如何将2x2列联表转换为长格式数据帧？ 我试过这个：

library(reshape2)
Table <- matrix(c(7,67,19,71), 2, 2, byrow=TRUE)
rownames(Table) <- c('Drug', 'No_Drug')
colnames(Table) <- c('Comp', 'No_Comp')
melt(Table)

我得到的不是由Drug vs. No_Drug分类的164行数据框

  Var1    Var2 value
1    Drug    Comp     7
2 No_Drug    Comp    19
3    Drug No_Comp    67
4 No_Drug No_Comp    71

Answer 1

根据我的理解，您正在尝试将4x3熔化的data.frame转换为164x2 data.frame。 您可以尝试使用splitstackshape包中的expandRows() ：

扩展（复制）data.frame或data.table的行，可以是固定数字，指定向量，也可以是源data.frame或data.table中其中一列中包含的值。

在您的情况下，只需：

library(splitstackshape)
m <- melt(Table)
expandRows(m, "value") 

注意：这是基本R的方便包装：

out <- m[rep(sequence(nrow(m)), m[["value"]]), ]
out[["value"]] <- NULL