基于不同子网合并数据框

Question

DF <- mtcars

## subsets

df1 <- subset(DF, carb == 1)
df2 <- subset(DF, am == 1)

## table

table1 <- prop.table(with(df1, table(cyl, gear)), margin = 1)
table2 <- prop.table(with(df2, table(cyl, vs)), margin = 1)

## total

total <- cbind(table1 , table2)

这将导致：

Error in cbind(B5A2, B5A3) : 
  number of rows of matrices must match (see arg 2)

我正在尝试基于MTCARS数据集的两个不同子网（DF1，DF2）合并这两个数据帧（Table1，Table2）。到目前代码>两者都无法使用。有办法解决这个问题吗？

首选的输出应该看起来像这样：

cyl   3   4     0     1
  4 0.2 0.8 0,125 0.875
  6 1.0 0.0 1.000 0.000
  8         1.000 0.000

谢谢！

Answer 1

您可以从gdata软件包中使用cbindx函数：

cbindx列界带有不同数量的行。

代码：

DF <- mtcars
df1 <- subset(DF, carb == 1)
df2 <- subset(DF, am == 1)

table1 <- prop.table(with(df1, table(cyl, gear)), margin = 1)
table2 <- prop.table(with(df2, table(cyl, vs)), margin = 1)

library(gdata)
cbindX(table2, table1)
#>       0     1   3   4
#> 4 0.125 0.875 0.2 0.8
#> 6 1.000 0.000 1.0 0.0
#> 8 1.000 0.000  NA  NA

^{在2022-07-05创建的 reprex软件包（v2.0.1）}

Answer 2

您也可以用作实际tibbles /data.frames*（我正在使用Janitor's tabyl在此处使用），然后做一个完整的加入（我正在使用dplyr）。

library(dplyr)
library(janitor)

table1 <- df1 |> tabyl(cyl, gear) |> adorn_percentages()
table2 <- df2 |> tabyl(cyl, vs) |> adorn_percentages()

table1 |> full_join(table2)

输出：

 cyl   3   4     0     1
   4 0.2 0.8 0.125 0.875
   6 1.0 0.0 1.000 0.000
   8  NA  NA 1.000 0.000

（*）当您编写“ 2个数据帧（Table1，Table2）”时，您并不完全正确。您的表是表，而不是数据帧，这不是相同的。使用as.dataframe（表）将为您提供table以另一种格式组织的数据，更适合其他类型的分析。