R 分类变量统计摘要-学术论文

我正在为R中的分类变量准备一个汇总统计数据，以便在学术论文中发表。我正在寻找这样的输出：

但是，我找不到用于分类变量的函数

以下是我的小例子：

library(dplyr)
library(stargazer)

mtcars %>%
  mutate(mpg_cat = ifelse(mpg > mean(mpg), 1,0)) %>%
  mutate(mpg_cat= as.factor(mpg_cat)) %>%
  mutate(cyl_cat= as.factor(cyl)) %>%
  select(cyl_cat, mpg_cat ) %>%
  function() %>% ##???
  stargazer(summary=FALSE, rownames=FALSE,
            #note you have to specify type
            type = "html",
            #note that the argument is "out" not "file"
            out="temp.doc")

以下是我脑海中的输出：

---

假设您有数据来填充这样的模板，请使用库

kableExtra

：

（见第14-20页）

---

您最好学习如何处理表，而且此库使用您熟悉的

%%>%%

符号。

我提出了以下代码：

mtcars %>%
  mutate(mpg_cat = ifelse(mpg > mean(mpg), "Yes","No")) %>%
  mutate(mpg_cat= as.factor(mpg_cat)) %>%
  mutate(cyl_cat= as.factor(cyl)) %>%
  select(cyl_cat, mpg_cat ) %>%

  summary() %>%
  as.data.frame() %>%
  select(-Var1) %>%
  rename(Variable=Var2) %>%
  filter(! is.na(Freq) ) %>%
  separate(Freq, c("Level", "Freq."),sep=":" ) %>%
  mutate(Freq. = as.integer(Freq.)) %>%
  mutate(Total = nrow(mtcars)) %>%
  mutate(Perc. = Freq.*100/Total)  %>%
  select (-Total)  %>%

  stargazer(summary=FALSE, rownames=FALSE,
            #note you have to specify type
            type = "html",
            #note that the argument is "out" not "file"
            out="mtcars.doc")

---

您是否尝试过共享链接中给出的答案？是。没有一个函数适用于分类变量。还有几个问题：（i）为什么注释

function（）%>%##？

？；（ii）您需要的最终输出是什么？比如什么样的汇总统计数据，你需要什么格式？@adam