grid.table中列之间的行

Question

当我使用gridExtra grid.table打印表格时，我无法消除列之间的白线。 我试图使用bg_params：

library(gridExtra)
library(grid)
n=5
d <- data.frame(x=rnorm(n),y=rnorm(n),z=rnorm(n))


mytheme <- ttheme_default(colhead = list(bg_params=list(fill="#DDEBF7", col="#DDEBF7",lwd=0))
)
grid.table(d, theme = mytheme)

但我仍然在列之间得到白线

Answer 1

您可以设置核心表区域的线条颜色以匹配两种默认填充颜色：

mytheme <- ttheme_default(colhead = list(bg_params=list(fill="#DDEBF7", col="#DDEBF7",lwd=0)),
                          core = list(bg_params = list(col = c("grey95", "grey90")))
)
grid.table(d, theme = mytheme)