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

我有一些数据，例如下面的例子，我使用基本包“table”创建了一个包含三个对象的透视。该表作为一个值列表，以我希望看到的方式打印，但它不是格式化的表示质量。我想要一个pack_行（如果我能让它工作的话），其中标题是“国家”，而“轨道”、“频率”和“类型”在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)

{r initial}
图书馆（knitr）
图书馆（kableExtra）
#####
df有很多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)
```

---
标题：“无标题”
作者：“所以回答”
日期：“2020年10月11日”
输出：html\u文档
---
```{r}
图书馆（knitr）
图书馆（kableExtra）
图书馆（DT）
#####
df谢谢Daniel，我真的很喜欢R和学习RMarkdown，因为它是一种更现代的文档交付方式。问题是我必须学习CSS和所有这些东西！