Question

我有一张桌子：

    +-----------+----------------+----------+  
    |           |     Type 1     | Type 2   |
    +-----------+----------------+----------+     
    |    Mean   |     31,2       |    16,0  |
    |   Median  |     51,3       |    16,0  |
    |    Max    |     40,4       |    6,0   |
    |    Min    |     100,0      |    16,0  |
    |    Q1     |     34,6       |    16,0  |
    |    Q3     |     16,0       |    16,0  |
    +---+------------+-----------+----------+

如何为其添加标题，因此它变为：

    +-----------+----------------+----------+  
    |        INSERT TABLE TITLE HERE        |   
    +-----------+----------------+----------+  
    |           |     Type 1     | Type 2   |
    +-----------+----------------+----------+     
    |    Mean   |     31,2       |    16,0  |
    |   Median  |     51,3       |    16,0  |
    |    Max    |     40,4       |    6,0   |
    |    Min    |     100,0      |    16,0  |
    |    Q1     |     34,6       |    16,0  |
    |    Q3     |     16,0       |    16,0  |
    +---+------------+-----------+----------+

Answer 1

您可以使用套餐tableGrob中的gridExtra 查看这篇文章： Merging Table Header Cells Using tableGrob

Answer 2

如果您正在讨论LaTeX，HTML或Word的输出表，那么您希望使用包来实现此目的。有可能包here的列表。（免责声明：我写了huxtable，这是其中一个选项。）或者您可以使用knitr内置的kable。

在huxtable中，有以下方法：

library(huxtable)
# sample data:
tbl <- table(sample(letters[1:5], 20, replace = TRUE), 
      sample(LETTERS[11:15], 20, replace = TRUE))
huxtbl <- as_hux(tbl, add_rownames = FALSE)
huxtbl <- rbind(rep('', 5), huxtbl)
colspan(huxtbl)[1, 1] <- 5
huxtbl[1, 1] <- 'Table title goes here'
huxtbl

产生类似的东西：

  V1   V2   V3   V4   V5   
   Table title goes here    
   K    L    M    N    O    
   0    0    1    1    1    
   0    1    3    1    0    
   1    0    2    0    0    
   1    2    1    1    1    
   0    1    0    2    0

在屏幕上，并将表格导出为markdown，HTML或LaTeX。

为表名创建一行

2 个答案: