R，flexdashboard中的DT :: datatable

Question

 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

我有上面的數據框，其中“卧室”是列上的標簽。

我試圖將其更改為數據表，然后可以在rmarkdown中使用它添加到flexdashboard中。 當我使用以下代碼時：

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

我得到的輸出：

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

我對此有一些問題：

1. 沒有顯示“卧室”的標簽，因此無法知道列中的這些數字的實際含義。 我要添加標簽，還是在列名稱的頂部添加一個“行數”來覆蓋所有行？
2. “家庭大小”和“ 5+”列的寬度比其余各列寬，我希望這些寬度相同或“家庭大小”比其余各列稍大

我認為值得注意的是，第5+行和第5+列都是新的行/列，其值大於5。

另外，這只是一個額外的功能，但是我想將左下方的單元格塗成紅色，將右上方的單元格塗成綠色，這可能嗎？

Answer 1

我已經弄清楚了如何在列標題中保留“卧室”。 可以使用以下代碼在DT :: datatable中設置列名；

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

給出所需的輸出。