r - 如何在r中的白色背景表格中添加网格

Question

我想用 gridExtra-Package 制作一个表格。此表应具有带网格图案的白色背景。下表有白色背景，但没有网格。

y<-iris[1:4,1:5]

hj <- matrix(c(0.90,  0.90, 0.90, 0.90, 0.90), ncol=ncol(y), nrow=nrow(y), byrow=TRUE)
x <- matrix(c( 0.90, 0.90, 0.90, 0.90, 0.90), ncol=ncol(y), nrow=nrow(y), byrow=TRUE)
colours <- matrix("white", nrow(y), ncol(y))
colours[1:nrow(colours), 1] <- "#e9f1e9"

tt1 <- ttheme_default(core=list(fg_params=list(hjust = as.vector(hj),
            x = as.vector(x), fontface=c(rep("plain",ncol(y)))), bg_params = list(fill =colours , col=NA)))
tab<-tableGrob(y, rows = NULL, theme = tt1)
grid.newpage()
grid.draw(tab)

相比之下，该表具有所需的网格但没有白色背景色。

g <- tableGrob(iris[1:4, 1:3])
grid.newpage()
grid.draw(g)

如何连接这两个表以同时拥有这两个表？

Answer 1

这是你要找的吗？更改 col=在 bg_params列表到 "black" .

编辑

现在使用交换的背景颜色。根据您的评论。

library(grid)
library(gridExtra)
y<-iris[1:4,1:5]
hj <- matrix(c(0.90,  0.90, 0.90, 0.90, 0.90), ncol=ncol(y), nrow=nrow(y), byrow=TRUE)
x <- matrix(c( 0.90, 0.90, 0.90, 0.90, 0.90), ncol=ncol(y), nrow=nrow(y), byrow=TRUE)
colours <- matrix("#e9f1e9", nrow(y), ncol(y))
colours[1:nrow(colours), 1] <- "white"
tt1 <- ttheme_default(core=list(fg_params=list(hjust = as.vector(hj),
            x = as.vector(x), fontface=c(rep("plain",ncol(y)))), bg_params = list(fill =colours , col="black")))
tab<-tableGrob(y, rows = NULL, theme = tt1)
grid.newpage()
grid.draw(tab)