如何反轉列聯表得到R中的數據

Question

如果我提供了列聯表，如何逆向工程獲取數據。

例子：

library(MASS)
table(Cars93$Type, Cars93$Origin) # this gives the contingency table

現在我只想要 dataframe 和列聯表中的兩列 Cars93$Type 和 Cars93$Origin。

我嘗試在線搜索但找不到任何相關內容。

有人可以幫忙嗎？

Answer 1

您可以使用tidyr::uncount ：

tab <- table(Cars93$Type, Cars93$Origin)

setNames(tidyr::uncount(as.data.frame(tab), Freq), c("Type", "Origin"))
#>          Type  Origin
#> 1     Compact     USA
#> 1.1   Compact     USA
#> 1.2   Compact     USA
#> 1.3   Compact     USA
#> 1.4   Compact     USA
#> 1.5   Compact     USA
#> 1.6   Compact     USA
#> 2       Large     USA
#> 2.1     Large     USA
#> 2.2     Large     USA
#> 2.3     Large     USA
#> 2.4     Large     USA
#> 2.5     Large     USA
#> 2.6     Large     USA
#> 2.7     Large     USA
#> 2.8     Large     USA
#> 2.9     Large     USA
#> 2.10    Large     USA
#> 3     Midsize     USA
#> 3.1   Midsize     USA
#> 3.2   Midsize     USA
#> 3.3   Midsize     USA
#> 3.4   Midsize     USA
#> 3.5   Midsize     USA
#> 3.6   Midsize     USA
#> 3.7   Midsize     USA
#> 3.8   Midsize     USA
#> 3.9   Midsize     USA
#> 4       Small     USA
#> 4.1     Small     USA
#> 4.2     Small     USA
#> 4.3     Small     USA
#> 4.4     Small     USA
#> 4.5     Small     USA
#> 4.6     Small     USA
#> 5      Sporty     USA
#> 5.1    Sporty     USA
#> 5.2    Sporty     USA
#> 5.3    Sporty     USA
#> 5.4    Sporty     USA
#> 5.5    Sporty     USA
#> 5.6    Sporty     USA
#> 5.7    Sporty     USA
#> 6         Van     USA
#> 6.1       Van     USA
#> 6.2       Van     USA
#> 6.3       Van     USA
#> 6.4       Van     USA
#> 7     Compact non-USA
#> 7.1   Compact non-USA
#> 7.2   Compact non-USA
#> 7.3   Compact non-USA
#> 7.4   Compact non-USA
#> 7.5   Compact non-USA
#> 7.6   Compact non-USA
#> 7.7   Compact non-USA
#> 7.8   Compact non-USA
#> 9     Midsize non-USA
#> 9.1   Midsize non-USA
#> 9.2   Midsize non-USA
#> 9.3   Midsize non-USA
#> 9.4   Midsize non-USA
#> 9.5   Midsize non-USA
#> 9.6   Midsize non-USA
#> 9.7   Midsize non-USA
#> 9.8   Midsize non-USA
#> 9.9   Midsize non-USA
#> 9.10  Midsize non-USA
#> 9.11  Midsize non-USA
#> 10      Small non-USA
#> 10.1    Small non-USA
#> 10.2    Small non-USA
#> 10.3    Small non-USA
#> 10.4    Small non-USA
#> 10.5    Small non-USA
#> 10.6    Small non-USA
#> 10.7    Small non-USA
#> 10.8    Small non-USA
#> 10.9    Small non-USA
#> 10.10   Small non-USA
#> 10.11   Small non-USA
#> 10.12   Small non-USA
#> 10.13   Small non-USA
#> 11     Sporty non-USA
#> 11.1   Sporty non-USA
#> 11.2   Sporty non-USA
#> 11.3   Sporty non-USA
#> 11.4   Sporty non-USA
#> 11.5   Sporty non-USA
#> 12        Van non-USA
#> 12.1      Van non-USA
#> 12.2      Van non-USA
#> 12.3      Van non-USA