如何将标题添加到formattable？

我正在做下面的表格。由于我的数据包括多个组（不包括在样本数据中），我将多次对完整数据框进行子集设置，以便为

组

列中的每个因子组创建一个表。我想知道如何在表的顶部添加一个标题，以便查看表所指的子集。对于这些表，我希望标题只是

组

列中的值。所以下表的标题应该是“1”

---

ex这是怎么回事？下面的代码将
组1
添加为标题。如果您想让它只显示
1
，请更改以下
标题=

库（magrittr）
图书馆（knitr）
库（格式化表）
ex%
kable（“html”，escape=F，caption=“Group 1”，align=c（“l”、“r”、“r”、“r”、“r”））


或

按字面意思将
组中的第一个值作为标题应用。在本例中，标题应为
1
，正如您在问题主体中所提到的那样

formattable（ex）%>%
kable（“html”，escape=F，caption=ex$Group[1]，align=c（“l”、“r”、“r”、“r”、“r”））


故障排除


图书馆（magrittr）
图书馆（knitr）
库（格式化表）
图书馆（kableExtra）
ex%
kable（“html”，escape=F，caption=“Group 1”，align=c（“l”，“r”，“r”，“r”，“r”）））%>%
kable_造型（）
一次一个问题：就是这样。看见也没有TIA消息。我猜你真的有一个例子，有多个组和一些子集操作。关于子集的细节只是提供上下文，并解释为什么我希望标题反映组列中的值。我不需要任何关于如何子集数据的指导。提供的数据准确地表示了我的数据在分组后的样子。因此，作为书面问题，我需要的正是我所需要的（而且已经足够回答了）。为我的无知道歉，我对
knitr
——当我尝试复制您的代码时，我在控制台中得到以下文本：
1 Group Var1 Var2 1 A X'
等等。我遗漏了什么吗？你到底是如何复制代码的？单击RStudio中的“针织”按钮？单击代码块上的“运行”按钮？和会话信息（xfun：：会话信息（'rmarkdown'）？
R版本4.0.3（2020-10-10）软件包版本：base64enc\u 0.1.3 digest\u 0.6.27 evaluate\u 0.14 glue\u 1.4.2 graphics\u 4.0.3 grDevices\u 4.0.3 highr\u 0.8 htmltools\u 0.5.0 jsonlite\u 1.7.1 knitr\u 1.31 magrittr\u 1.5 markdown\u 1.1.1方法\u 4.0.3 mime\u 0.9 rlang\u 0.8 rlang\u 0.8 rmarkdown\u 2.3 stats\u 4.0.0.3 stringi\utools_4.0.3 utils_4.0.3 xfun_0.22 yaml_2.2.1 Pandoc版本：2.7.3
尝试安装
库（kableExtra）
然后将结果导入
kable_Styleing（）函数中。我在解决方案的底部添加了一个疑难解答部分。在你的机器上应该是这样的。
ex <- structure(list(Group = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), Var1 = c("A", "A", 
"A", "A", "A", "A", "B", "B", "B", "B", "B", "B", "B", "B", "C", 
"C", "C", "C", "C", "C"), Var2 = c("X", "X", "X", "X", "X", "X", 
"X", "X", "X", "Y", "Y", "Y", "Y", "Y", "Y", "Y", "Y", "Y", "Y", 
"Y")), class = "data.frame", row.names = c(NA, -20L))

library(formattable)
formatex <- formattable(ex)