表格和制表变量

Question

我正在尝试在下面重现此表。 我有一个分类变量（pol_group），我试图将其与定量变量（教育、收入和支出）一起制表，这样我就可以看到这些变量对于 pol_group 的每个值的汇总统计数据。

pol_group           education   income     expense
1             mean  12.67519    29155.54   20710
1             sd    2.916582    22031.51   18321.69
1             min   2           700        700
1             max   25          91952      98242
2             mean  11.26422    21922.08   16254.64
2             sd    3.19276     20088.66   14930.75
2             min   0           700        700
2             max   25          91952      98242 

这是我的数据示例：

pol_group       education   income     expense
1               16          29258.71   29615
2               14          24062.49   26348.60
1               8           19281.74   23023
1               16          27224      26481
2               18          30102.65   29178.63
2               19          29873.44   27145
1               11          21435.11   24076.55
1               17          28453.99   28312 

有谁知道如何创建以这种方式结构化的表？ 谢谢你的帮助。

Answer 1

在 R 中有几种方法可以做你想做的事。 我写了一个 package 称为tables ，可以做到这一点。 它主要针对要包含在出版物中的表格，但如果您想要的只是数字以便您可以使用它们进行计算，它也可以做到这一点。

它的想法是您将一个描述行（左侧）和列（右侧）的公式放在一起。 你想要的桌子是

    vals <- structure(list(pol_group = c(1, 2, 1, 1, 2, 2, 1, 1), education = c(16, 
    14, 8, 16, 18, 19, 11, 17), income = c(29258.71, 24062.49, 19281.74, 
    27224, 30102.65, 29873.44, 21435.11, 28453.99), expense = c(29615, 
    26348.6, 23023, 26481, 29178.63, 27145, 24076.55, 28312)), class = "data.frame", row.names = c(NA, 
    -8L))

    library(tables)
    tabular( Factor(pol_group)*(mean + sd + min + max) ~ 
             education + income + expense, data = vals)
#>                                         
#>  pol_group      education income expense
#>  1         mean 13.600    25131  26302  
#>            sd    3.912     4481   2773  
#>            min   8.000    19282  23023  
#>            max  17.000    29259  29615  
#>  2         mean 17.000    28013  27557  
#>            sd    2.646     3423   1459  
#>            min  14.000    24062  26349  
#>            max  19.000    30103  29179

^{由reprex package (v2.0.1) 于 2021 年 12 月 3 日创建}

如果要计算，可以将tabular()调用的结果保存在变量中，例如tab ，然后执行类似的操作

tab <- tabular( Factor(pol_group)*(mean + sd + min + max) ~ 
                  education + income + expense, data = vals)
as.matrix(tab, format = as.numeric)
#>           [,1]      [,2]      [,3]
#> [1,] 13.600000 25130.710 26301.510
#> [2,]  3.911521  4481.471  2772.750
#> [3,]  8.000000 19281.740 23023.000
#> [4,] 17.000000 29258.710 29615.000
#> [5,] 17.000000 28012.860 27557.410
#> [6,]  2.645751  3423.040  1459.393
#> [7,] 14.000000 24062.490 26348.600
#> [8,] 19.000000 30102.650 29178.630