DT:：R中的数据表，flexdashboard

我有上面的数据框，其中“卧室”是列上的标签

我正在尝试将其更改为一个数据表，然后可以在rmarkdown中使用它来添加到flexdashboard中。当我使用以下代码时：

 Household Size    0       1          2        3        4        5+
                 Bedrooms Bedrooms Bedrooms Bedrooms Bedrooms Bedrooms
       1          253   4486        2033     930        105      8
       2          10    666         3703     947        85       7
       3           4    68          1972     1621       52       5
       4           1    12           680     1835       164      11
      5+           0    6            147     1230       721      122

我得到输出：

DT::datatable(df, rownames = FALSE, extensions = 'FixedColumns', escape=TRUE,options= list(bPaginate = FALSE))

我对此有一些问题：

标有“卧室”的标签没有显示出来，因此无法知道这些列中的数字到底是什么意思。我想包括标签，或者在列名的顶部有一行，上面写着“卧室数量”，涵盖所有的行

列Househouse Size和5+的宽度比其他列宽，我希望它们要么相同，要么家庭大小略大于其他列

我认为值得注意的是，第5行+和第5列+都是一个新的行/列，可以计算5以上的任何值

---

此外，这只是一个额外的功能，但我想将左下角的单元格涂成红色，右上角的单元格涂成绿色，这可能吗？

我已经想出了如何在专栏标题中保留“卧室”的方法。可以使用下面的代码在DT:：datatable中设置列名

Household Size         0    1      2       3     4        5+
1                    253    4486  2033    930   105       8
2                     10    666   3703    947   85        7
3                      4    68    1972    1621  52        5
4                      1    12     680    1835  164       11
5+                     0    6      147    1230  721       122

---

这将提供所需的输出。

我们无法运行您的代码。你能让它重现吗？@MLavoie我不明白你为什么需要代码？对不起，我不习惯张贴问题，如果我错了，请纠正我。但从描述中，我想很清楚我想要做什么？看到代码重现这一点不会改变这一点，是吗？这将需要一段时间，我为这个创建代码，因为我读取的数据，作为一个csv的时刻。提前谢谢。@MLavoie我现在明白了，谢谢你的评论。我很难理解为什么有时需要一个可复制的代码。如果有人问我如何在图表上获得标题，我就不需要他们的确切数据来帮助查询了？这有意义吗？对不起，我希望将来能更好地询问有关堆栈溢出的问题。谢谢@哦，对不起！我现在就这么做：）

DT::datatable(HS_BED_ALL, rownames = FALSE, colnames=c('Household Size','0 Bedrooms','1 Bedroom','2 Bedrooms','3 Bedrooms','4 Bedrooms','5+ Bedrooms'), extensions = 'FixedColumns', escape=TRUE, options= list(bPaginate = FALSE, dom = 't',buttons = c('excel')))%>%formatStyle(1:7,fontSize = '14px')