r - 使用网格表拆分列名

Question

我想生成格式化的表格 witt 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"))
))

这是期望的结果（名称列分成两行）：

我怎样才能做到这一点？

标签： rdatagrid

Answer 1

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

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