html - 如何在 R tidyverse 中将 Tibble 转换为 HTML 表？

Question

我想要一种将管道操作的结果转换为表格的方法，以便它可以在 R Markdown 中呈现为 HTML 表格。

示例数据:

Category <- sample(1:6, 394400) 
Category <- sample(1:6, 394400, replace=TRUE)
Category <- factor(Category,
                    levels = c(1,2,3,4,5,6),
                    labels = c("First",
                               "Second",
                               "Third",
                               "Fourth",
                               "Fifth",
                               "Sixth"))
data <- data.frame(Category)

然后我使用管道构建频率表:

Table <- data %>%
             group_by(Category) %>%
             summarise(N= n(), Percent = n()/NROW(data)*100) %>%
             mutate(C.Percent = cumsum(Percent))

这给了我这个漂亮的小总结表:

# A tibble: 6 × 4
  Category     N  Percent C.Percent
    <fctr> <int>    <dbl>     <dbl>
1    First 65853 16.69701  16.69701
2   Second 66208 16.78702  33.48403
3    Third 65730 16.66582  50.14985
4   Fourth 65480 16.60243  66.75228
5    Fifth 65674 16.65162  83.40390
6    Sixth 65455 16.59610 100.00000

但是，如果我尝试将其转换为表格，然后再转换为 HTML，它告诉我它不能将 Table 强制转换为表格。数据框也是如此。

有没有人知道一种方法，因为我很想自定义输出的外观？

Answer 1

有几个包可以做到这一点。这里有一些:

knitr::kable(Table)

htmlTable::htmlTable(Table)

ztable::ztable(as.data.frame(Table))

DT::datatable(Table)

stargazer::stargazer(Table, type = "html")

其中每一个都有不同的自定义选项。