改善烟叶的重复生产和合并

由 发布于

请帮助我改善代码。下面的代码正是我想要的-生成带有频率和百分比的表格。但是，毫无疑问，上半年可以提高效率。注意：“全部”组不仅仅是我分别显示的四个州。

All.Q1<-data2 %>% tabyl(`Q1 - Position`, show_na=F) %>%  adorn_pct_formatting()
NSW.Q1<-data2 %>% filter(State=="NSW") %>% tabyl(`Q1 - Position`, show_na=F) %>%  adorn_pct_formatting()
QLD.Q1<-data2 %>% filter(State=="QLD") %>% tabyl(`Q1 - Position`, show_na=F) %>%  adorn_pct_formatting()
VIC.Q1<-data2 %>% filter(State=="VIC") %>% tabyl(`Q1 - Position`, show_na=F) %>%  adorn_pct_formatting()
WA.Q1<-data2 %>% filter(State=="WA") %>% tabyl(`Q1 - Position`, show_na=F) %>%  adorn_pct_formatting()

tab.Q1<-Reduce(function(...) merge(..., all = TRUE, by = "Q1 - Position"),
       list(All.Q1, NSW.Q1, QLD.Q1, VIC.Q1, WA.Q1))

tab.Q1 %>% kable(digits=2, col.names = c("Position", col.au)) %>% kable_styling(bootstrap_options = c("striped", "hover"))