Question

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

示例数据：

sys-date

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

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))

但是，如果我尝试将其转换为表格然后转换为HTML，它会告诉我它不能强制# 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到表格。这与数据帧也是一样的。

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

Answer 1

有几个包。以下是一些：

knitr::kable(Table)

htmlTable::htmlTable(Table)

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

DT::datatable(Table)

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

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

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

1 个答案: