寻找有关格式化 Rmarkdown 数据透视表的建议

Question

我有一些数据，例如下面的示例，其中我使用了基本包“表”创建了一个包含三个对象的数据透视表。该表作为值列表打印了我希望如何查看它，但它不是格式化的演示质量。我想要一个 pack_row（如果我可以让它工作），其中标题是“国家”，而“轨道”、“频率”和“类型”在 2 列和 1 行中。如果我从中制作一个数据框，我会打印出 6 次“国家”，而我宁愿只有一个标题。

这里有一些可重现的代码。我的作品有大约 60 个“国家”，这是一个最小的例子：

{r initial}
library(knitr)
library(kableExtra)
#####
df <- data.frame(Country = c("AUS", "AUS", "GER","GER"),
                 Orbit = c("GEO","LEO","GEO","LEO"),
                 Type = c("TBD","Payload","Debris","Payload"),
                 Freq = c(1,2,4,8)
                 )
tbl <- table(df$Type, df$Orbit, df$Country, exclude = NA)
output <- as.data.frame(table(df$Type, df$Orbit, df$Country, exclude = NA) )
colnames(output) <- c("Type","Orbit","Country","Frequency")
output
kable(output)

关于如何将其很好地格式化为 RMarkdown html 输出的任何想法？ 谢谢！

Answer 1

有很多 HTML 表格格式，一个简单的 HTML 表格有很多自定义是DT 包。这是您使用DataTable() 发布的示例，它内置了简单的上升/下降功能。

---
title: "Untitled"
author: "SO Answer"
date: "11/10/2020"
output: html_document
---

```{r}
library(knitr)
library(kableExtra)
library(DT)
#####
df <- data.frame(Country = c("AUS", "AUS", "GER","GER"),
                 Orbit = c("GEO","LEO","GEO","LEO"),
                 Type = c("TBD","Payload","Debris","Payload"),
                 Freq = c(1,2,4,8)
                 )
tbl <- table(df$Type, df$Orbit, df$Country, exclude = NA)
output <- as.data.frame(table(df$Type, df$Orbit, df$Country, exclude = NA)     )
colnames(output) <- c("Type","Orbit","Country","Frequency")
output
datatable(output)
```