在cro_cpct中添加合计

Question

dataa<-data.frame(
  aa = c("q","r","y","v","g","y","d","s","n","k","y","d","s","t","n","u","l","h","x","c","q","r","y","v","g","y","d","s","n","k","y","d","s","t","n","u","l","h","x","c"),
col1=c(1,2,3,2,1,2,3,4,4,4,5,3,4,2,1,2,5,3,2,1,2,4,2,1,3,2,1,2,3,1,2,2,4,4,4,1,2,5,3,5),
col2=c(2,1,1,7,4,1,2,7,5,7,2,6,2,2,6,3,4,3,2,5,7,5,6,4,4,6,5,6,4,1,7,3,2,7,7,2,3,7,2,4)
)

我们是否有可以在cro_cpct汇总中为所有变量添加总比率的解决方案

  df <- database %>% select(!!var1,!!var2)
  tab1 <- expss::cro_cpct(df[[1]],df[[2]])

Answer 1

我已经做了其他数据帧，然后与表连接，我们有其他的解决方案吗，最简单和容易的…？？

tab1 <- as.data.frame(tab1)
  overall <- as.data.frame(table(dat1[[1]])) %>% adorn_totals()
  overall <- overall %>% mutate(Freq_pct = (Freq / last(Freq))*100) %>% select(1,3)
  overall[[2]] <- format(round(overall[[2]],digits = 1),nsmall = 1)
  #overall[nrow(overall),2] <- colSums(as.data.frame(dat1[[1]]))
  tab1 <- left_join(tab1,overall,by=c("row_labels"="Var1")) %>% select(c("row_labels","Total"=Freq_pct,everything()))
  tab1 <- as.data.frame(tab1)