R 为表名创建行

我有一张这样的桌子：

    +-----------+----------------+----------+  
    |           |     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  |
    +---+------------+-----------+----------+ 

---

您可以从package

gridExtra

查看此帖子：

---

如果您谈论的是LaTeX、HTML或Word的输出表，那么您需要使用一个包来实现这一目的。有一份可能的包裹清单。（免责声明：我编写了

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

---

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

r不是excel…您能解释一下您的情况吗。。我是说。。还有一点吗？要将表格输出到文档中，请查看

knitr

包的

kable

函数或

xtable

包。

  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