r - R中的条件交叉表
问题描述
寻找使用“expss”包完成以下任务的最快方法。
有了一个很棒的“expss”包,我们可以轻松地进行交叉制表(它具有交叉制表的其他优点和有用的功能。),我们可以轻松地对多个变量进行交叉制表,如下所示。
#install.packages("expss")
library("expss")
data(mtcars)
var1 <- "vs, am, gear, carb"
var_names = trimws(unlist(strsplit(var1, split = ",")))
mtcars %>%
tab_prepend_values %>%
tab_cols(total(), ..[(var_names)]) %>%
tab_cells(cyl) %>%
tab_stat_cpct() %>%
tab_pivot()
上面给出的输出为:(列 %)
#Total vs am gear carb
0 1 0 1 3 4 5 1 2 3 4 6 8
cyl 4 34.4 5.6 71.4 15.8 61.5 6.7 66.7 40 71.4 60
6 21.9 16.7 28.6 21.1 23.1 13.3 33.3 20 28.6 40 100
8 43.8 77.8 63.2 15.4 80.0 40 40 100 60 100
#Total cases 32.0 18.0 14.0 19.0 13.0 15.0 12.0 5 7.0 10 3 10 1 1
但是,正在寻找一种方法来创建如下表:
CYL | VS = 0 | AM = 1 | Gear = 4 or Gear = 5 | Carb (All)
4 5.56 61.54 58.82 34.38
6 16.67 23.08 29.41 21.88
8 77.78 15.38 11.76 43.75
Total(col%) 100.00 100.00 100.00 100.00
虽然我可以使用 dplyr 和 join 函数来实现这一点,但这太复杂了,因为我们必须在运行时或动态地传递变量。
任何帮助都将是可观的。谢谢!!
解决方案
你可以试试这个:
1)制作一个可以从总和中创建比例的函数。
myprop_tbl <- function(x){
return(round(x*100/sum(x),2))
}
2) 使用 purrr 的地图,在您的数据框上应用该函数,然后绑定结果。
library(tidyverse)
tab <- mtcars %>%
group_by(cyl) %>%
summarise(vs_sum = sum(vs==0), am_sum = sum(am==1),
gear_sum = sum(gear == 4|gear==5), carb_sum= n())
finaltab <- bind_cols(tab[,1],map_df(tab[,2:length(tab)], myprop_tbl))
输出:
# * cyl vs_sum am_sum gear_sum carb_sum
# <dbl> <dbl> <dbl> <dbl> <dbl>
#1 4.00 5.56 61.5 58.8 34.4
#2 6.00 16.7 23.1 29.4 21.9
#3 8.00 77.8 15.4 11.8 43.8**
编辑:
在和OP讨论之后,他似乎也想传递一串函数,
我在这里使用一个包seplyr
tab <- mtcars %>%
group_by(cyl) %>%
summarise_se(c("vs_sum = sum(vs==0)",
"am_sum = sum(am==1)",
"gear_sum = sum(gear == 4|gear==5)",
"carb_sum = n()"))
它也有效,但你会得到奇怪的名字,要解决这个问题,你可以这样做:
这完全可以作为我发布的原始答案:
tab <- mtcars %>%
group_by(cyl) %>%
summarise_se(c("vs_sum" := "sum(vs==0)",
"am_sum" := "sum(am==1)",
"gear_sum" := "sum(gear == 4|gear==5)",
"carb_sum" := "n()"))
你可以在这里阅读这个@这个链接
推荐阅读
- reactjs - 状态已正确更新和记录,但 HTML 中的值仍然错误
- laravel - Laravel 分页从 ?page=1 更改为 /page/1
- amazon-web-services - 使用安全组中的入站规则为 ec2 实例上的本地计算机添加 IP 白名单
- excel - 如何在不使用代号作为限定符的情况下访问另一个(引用的)VBA 项目的公共变量
- arrays - 无法从数组中获取字符串值
- postgresql - debezium 错误:“选项“include-unchanged-toast”=“0”未知”
- java - Spring boot 不运行,但服务 UTest 运行良好
- python - 如何在 Python 中正确创建和写入文件
- sql - 正确“加入”两个交叉应用
- javascript - ReactJS:使用反应路由器 dom 转到 HTML 中的锚链接