从不同的数据框向交叉表 table 添加一列

Question

我想用 table 和 addmargins 创建一个交叉表 table，然后将另一个数据框中的一列添加到 table.

示例数据：

df <- data.frame(country = c("B", "A", "C", "C", "A", "A", "B", "C", "C"), year = c(2005, 2006, 2005, 2007, 2005, 2005, 2007, 2006, 2006))

df2 <- data.frame(country = c("C", "B", "A", "C", "A", "B", "C", "A", "A", "A", "B", "C", "B", "A", "C"))

我要合并：

addmargins(table(df$country, df$year), FUN = list(Total = sum))

addmargins(table(df2$country), FUN = list(Total = sum))

这样我得到

        2005 2006 2007 Total df2
A        2    1    0     3   6
B        1    0    1     2   4
C        1    2    1     4   5
Total    4    3    2     9   15

Answer 1

tmp <- addmargins(table(df$country, df$year), FUN = list(Total = sum))
tmp2 <- addmargins(table(df2$country), FUN = list(Total = sum))

res <- cbind(as.matrix(tmp), as.matrix(tmp2))
colnames(res)[5] <- "df2"
res
#       2005 2006 2007 Total df2
# A        2    1    0     3   6
# B        1    0    1     2   4
# C        1    2    1     4   5
# Total    4    3    2     9  15

Answer 2

我们可以使用cbind:

cbind(
  addmargins(table(df[ c("country", "year") ]), FUN = list(Total = sum), quiet = TRUE),
  df2 = addmargins(table(df2[ "country"] ), FUN = list(Total = sum)))


#       2005 2006 2007 Total df2
# A        2    1    0     3   6
# B        1    0    1     2   4
# C        1    2    1     4   5
# Total    4    3    2     9  15

Answer 3

使用 tidyverse 和 janitor 包：

library(tidyverse)
library(janitor)
#> 
#> Attaching package: 'janitor'
#> The following objects are masked from 'package:stats':
#> 
#>     chisq.test, fisher.test

df <- data.frame(country = c("B", "A", "C", "C", "A", "A", "B", "C", "C"), year = c(2005, 2006, 2005, 2007, 2005, 2005, 2007, 2006, 2006))

df2 <- data.frame(country = c("C", "B", "A", "C", "A", "B", "C", "A", "A", "A", "B", "C", "B", "A", "C"))

df %>%
  tabyl(country, year) %>%
  adorn_totals(c("row", "col")) %>%
  inner_join(df2 %>%
               count(country, name = "df2") %>%
               adorn_totals("row"))
#> Joining, by = "country"
#>  country 2005 2006 2007 Total df2
#>        A    2    1    0     3   6
#>        B    1    0    1     2   4
#>        C    1    2    1     4   5
#>    Total    4    3    2     9  15

^{由 reprex package (v2.0.1)}

于 2022-05-31 创建

从不同的数据框向交叉表 table 添加一列

Add a column to a cross tabulation table from a different data frame

r

append

margins