Question

过去我问了一个关于如何create cross tables from a list view的问题。我被建议使用xtabs来做这件事，效果很好。今天，我一直在寻找相反的方法，并从交叉表中创建一个列表视图表。我希望找到一个反向的公式，但没有成功。我相信这有一个预定义的功能，但无法找到它。

我有下表：

# load table     
crosstable <- structure(list(col1 = c(0, 0, 1, 0, 0, 0, 0, 0, 0), col2 = c(0, 1, 0, 0, 0, 0, 0, 0, 0), col3 = c(0, 0, 0, 0, 0, 0, 0, 0, 1), col4 = c(1, 0, 0, 0, 0, 0, 0, 0, 0), col5 = c(0, 0, 0, 0, 0, 0, 0, 1, 0), col6 = c(0, 0, 0, 0, 0, 1, 0, 0, 0), col7 = c(0, 0, 0, 0, 1, 0, 0, 0, 0), col8 = c(0, 0, 0, 0, 0, 0, 1, 0, 0)), .Names = c("col1", "col2", "col3", "col4", "col5", "col6", "col7", "col8"), row.names = c("row1", "row2", "row3", "row4", "row5", "row6", "row7", "row8", "row9"), class = "data.frame")

#display table
crosstable

     col1 col2 col3 col4 col5 col6 col7 col8
row1    0    0    0    1    0    0    0    0
row2    0    1    0    0    0    0    0    0
row3    1    0    0    0    0    0    0    0
row4    0    0    0    0    0    0    0    0
row5    0    0    0    0    0    0    1    0
row6    0    0    0    0    0    1    0    0
row7    0    0    0    0    0    0    0    1
row8    0    0    0    0    1    0    0    0
row9    0    0    1    0    0    0    0    0

我想将其转换为一个表格，显示如下内容：

row1 col1 0
row1 col2 0
row1 col3 0
row1 col4 1
row1 col5 0
...

任何人都能指出我将有助于实现这一目标的功能吗？

Answer 1

坚持使用基础R，您可以使用stack：

CTLong <- data.frame(rows = rownames(crosstable), stack(crosstable))
CTLong <- CTLong[order(CTLong$rows), ]
head(CTLong)
   rows values  ind
1  row1      0 col1
10 row1      0 col2
19 row1      0 col3
28 row1      1 col4
37 row1      0 col5
46 row1      0 col6

Answer 2

您可以使用reshape2::melt获取：

library(reshape2)
melt(cbind(rownames(crosstable),crosstable))
# Using rownames(crosstable) as id variables
#    rownames(crosstable) variable value
# 1                  row1     col1     0
# 2                  row2     col1     0
# 3                  row3     col1     1
# 4                  row4     col1     0
# 5                  row5     col1     0
# 6                  row6     col1     0
# 7                  row7     col1     0
# ...

将（交叉）表转换为列表视图

2 个答案: