使 ggplot 面板背景像在 gtable 中一样答案

【问题标题】：make ggplot panel-background like in gtable使 ggplot 面板背景像在 gtable 中一样
【发布时间】：2017-09-20 14:16:53
【问题描述】：

我正在尝试制作这样的图形：

Optimal/efficient plotting of survival/regression analysis results

hier 是我的示例代码：

library(gtable)
library(grid)
library(gridExtra)
library(ggplot2)

tg <- tableGrob(iris[1:5,1:3], rows = NULL, cols=NULL)
tg$heights <- unit(rep(1,nrow(tg)), "null")

p <- qplot(1:5,1:5) + ggtitle("Title", subtitle = "another line") + 
theme_grey(12) +
scale_y_continuous(expand=c(0,0.5))
g <- ggplotGrob(p)
g <- gtable::gtable_add_cols(g, widths = sum(tg$widths), pos = 0)
g <- gtable::gtable_add_cols(g, widths = sum(tg$widths), pos = -1)
g <- gtable::gtable_add_grob(g, list(tg, tg), t = 6, l=c(1,ncol(g)), r=c(1,ncol(g)))
grid.newpage()
grid.draw(g)

ggplot 和 gtable 是否可以更改 ggplot 面板的背景颜色并将 Zebra 样式设置为与其他两个 gtable 类似的第一个示例？

谢谢，

【问题讨论】：

使用 ggplot 您可能希望将背景全部关闭（或将其设置为白色）并自己绘制灰色矩形作为点下方的图层。背景条带没有内置选项。
但是如何设置 min-x max-x 和 min-y max-y 使其具有与其他 gtables 矩形相同的高度？

标签： r ggplot2 gridextra gtable

【解决方案1】：

正如@MrFlick 所说，您必须在背景中添加某种几何图层。这是我的方法：
创建两个数据框，一个用于点，一个用于段，并调整段大小以匹配表行。

tg <- tableGrob(iris[1:5,1:3], rows = NULL, cols=NULL)
tg$heights <- unit(rep(1,nrow(tg)), "null")
dSegment <- data.frame(X = 0, XE = 6, Y = 1:5, YE = 1:5)
dPoint <- data.frame(X = 1:5, Y = 1:5)

p <- ggplot() + 
    geom_segment(data = dSegment, 
                 aes(x = X, xend = XE, y = Y, yend = YE, color = factor(Y %% 2)),
                 size = 40) +
    geom_point(data = dPoint, aes(X, Y)) +
    ggtitle("Title", subtitle = "another line") + 
    scale_y_continuous(expand = c(0, 0.5)) +
    scale_x_continuous(breaks = c(1:5)) +
    scale_color_manual(values = c("#dbdbdb", "#e9e9e9")) +
    theme_grey(12) +
    theme(panel.grid.major = element_blank(), 
          panel.grid.minor = element_blank(),
          panel.background = element_blank(),
          legend.position = "none")
g <- ggplotGrob(p)
g <- gtable::gtable_add_cols(g, widths = sum(tg$widths), pos = 0)
g <- gtable::gtable_add_cols(g, widths = sum(tg$widths), pos = -1)
g <- gtable::gtable_add_grob(g, list(tg, tg), t = 6, l=c(1,ncol(g)), r=c(1,ncol(g)))
grid.newpage()
grid.draw(g)

【讨论】：