用网格表拆分列名称

Question

我想生成格式为grid.table的表格。那就是我所做的：

library(grid)
d <- head(iris, 3)
colnames(d) <- c("A very long colname", "Sepal Width",  "Petal Length", "Petal Width",  "Species")
grid.table(d, rows=NULL,theme=ttheme_minimal(
  colhead=list(fg_params=list(col="white",fontface=4L),
               bg_params=list(fill="#1bb600"))
))

这是所需的结果（名称列分为两行）：

我该如何实现？

Answer 1

您必须重命名指定要在其中分割名称的部分的行，并在各部分之间使用\n：

library(grid)
d <- head(iris, 3)
colnames(d) <- c("A very\nlong colname", "Sepal\nWidth",  "Petal\nLength", "Petal\nWidth",  "Species")
grid.table(d, rows=NULL,theme=ttheme_minimal(
  colhead=list(fg_params=list(col="white",fontface=4L),
               bg_params=list(fill="#1bb600")), 
  core
))