使用gtable_add_grob时，RectGrob / TextGrob未出现在图上

Question

我正在使用网格图形，以便在类似于facet_grid的facet_wrap上定位条标签-wrap-like-in-in-facet-Grid“> this 问题），并且正在使用

# Base plot:

  occPlot_all <- ggplot(data= occpred_all) +
  geom_ribbon(aes(x= occ_cov, ymin= lower, ymax= upper), fill= "gray80") +
  geom_line(aes(x= occ_cov, y= Predicted),color= "seagreen4") +
  labs(x="Percent Landcover Type", y="Probability of Site Occupancy") +
  theme(panel.border=element_rect(color="black",fill="transparent"), panel.background = element_rect(fill="white"))

g1 <- occPlot_all +
  facet_wrap(c("CovariateName", "Ecoregion"), scales = "free") +
  theme(strip.background = element_blank(),
        strip.text = element_blank())

g2 <- occPlot_all +
  facet_grid(c("CovariateName", "Ecoregion"), scales = "free") 

gt1 <- ggplot_gtable(ggplot_build(g1))

gt2 <- ggplot_gtable(ggplot_build(g2))

# Add space above plots
gt1 <- gtable_add_rows(gt1, heights = unit(0.5, 'cm'), pos = 2)

# Try making top labels the same way as side labels so I can change font size
gt.top1 <- gtable_filter(gt2, 'strip-t-1')
gt.top2 <- gtable_filter(gt2, 'strip-t-2')
gt.top3 <- gtable_filter(gt2, 'strip-t-3')
gt.top4 <- gtable_filter(gt2, 'strip-t-4')
gt.top5 <- gtable_filter(gt2, 'strip-t-5')
gt.top6 <- gtable_filter(gt2, 'strip-t-6')
# instead, make my own so I can change font size
nwfm_grob <- grobTree(rectGrob(height = gt.top1$heights[1],  
                                   gp = gpar(fill = "grey82", col = "grey82")),
                          textGrob(expression("Northwestern Forested Mountains"),
                                   gp = gpar(col = "black", fontsize = 6)))

panel_id_top <- gt1$layout[grep('strip-t.+1$', gt1$layout$name),]

# Add top labels
gt1 <- gtable_add_grob(gt1, gt.top1, t = 2, l = panel_id_top$l[1])
gt1 <- gtable_add_grob(gt1, gt.top2, t = 2, l = panel_id_top$l[2])
gt1 <- gtable_add_grob(gt1, gt.top3, t = 2, l = panel_id_top$l[3])
gt1 <- gtable_add_grob(gt1, gt.top4, t = 2, l = panel_id_top$l[4])
gt1 <- gtable_add_grob(gt1, gt.top5, t = 2, l = panel_id_top$l[5])
gt1 <- gtable_add_grob(gt1, gt.top6, t = 2, l = panel_id_top$l[6])
# nwfm grob -- THE ONE THAT'S NOT APPEARING
gt1 <- gtable_add_grob(gt1, nwfm_grob, t = 2, l = panel_id_top$l[7]) 

### right side labels ###

gt.side1 <- gtable_filter(gt2, 'strip-r-1')
gt.side2 <- gtable_filter(gt2, 'strip-r-2')
gt.side3 <- gtable_filter(gt2, 'strip-r-3')
gt.side4 <- gtable_filter(gt2, 'strip-r-4')
gt.side5 <- gtable_filter(gt2, 'strip-r-5')
gt.side6 <- gtable_filter(gt2, 'strip-r-6')
gt.side7 <- gtable_filter(gt2, 'strip-r-7')

# Add column for right hand strip labels
gt1 = gtable_add_cols(gt1, widths=gt.side1$widths[1], pos = -1)

panel_id <- gt1$layout[grep('panel-.+1$', gt1$layout$name),]

# Make different grob to replace gt.side1 so I can change font size to make woody savanna fit 
woodysav_grob <- grobTree(rectGrob(width = gt.side1$widths[1],
                                   gp = gpar(fill = "grey82", col = "grey82")),
  textGrob(expression("Woody Savanna"), rot = -90,
    gp = gpar(col = "black", fontsize = 6)))

# Add land cover type labels
gt1 <- gtable_add_grob(gt1, woodysav_grob, t = panel_id$t[1], l = ncol(gt1)) # this one works fine
gt1 <- gtable_add_grob(gt1, gt.side2, t = panel_id$t[2], l = ncol(gt1))
gt1 <- gtable_add_grob(gt1, gt.side3, t = panel_id$t[3], l = ncol(gt1))
gt1 <- gtable_add_grob(gt1, gt.side4, t = panel_id$t[4], l = ncol(gt1))
gt1 <- gtable_add_grob(gt1, gt.side5, t = panel_id$t[5], l = ncol(gt1))
gt1 <- gtable_add_grob(gt1, gt.side6, t = panel_id$t[6], l = ncol(gt1))
gt1 <- gtable_add_grob(gt1, gt.side7, t = panel_id$t[7], l = ncol(gt1))


# New page
grid.newpage()

# Print
grid.draw(gt1)

这是我能够执行此操作的最佳方法，它适用于右侧标签，但是当我使用顶部标签执行此操作时，它不会出现在图上（应该在最后一栏的顶部，毗邻北部森林 -

这里请参见我的数据

在 仅查看我制作的grob，看起来不错 -

请参阅此处的grob

，这里是reprex -

reprex_all <- ggplot(data= iris) +
  geom_line(aes(x= Petal.Width, y= Petal.Length)) +
  theme(panel.border=element_rect(color="black",fill="transparent"), 
        panel.background = element_rect(fill="white"))

g1_r <- reprex_all +
  facet_wrap(~Species, scales = "free") +
  theme(strip.background = element_blank(),
        strip.text = element_blank())

g2_r <- reprex_all +
  facet_grid(~Species, scales = "free") 

gt1_r <- ggplot_gtable(ggplot_build(g1_r))

gt2_r <- ggplot_gtable(ggplot_build(g2_r))

# Add space above plots
gt1_r <- gtable_add_rows(gt1_r, heights = unit(0.5, 'cm'), pos = 2)

# Try making top labels the same way as side labels so I can change font size
gt_top1_r <- gtable_filter(gt2_r, 'strip-t-1')
gt_top2_r <- gtable_filter(gt2_r, 'strip-t-2')
# instead, make my own so I can change font size
virg_grob <- grobTree(rectGrob(height = gt.top1$heights[1],  
                               gp = gpar(fill = "grey82", col = "grey82")),
                      textGrob(expression("virginica"),
                               gp = gpar(col = "black", fontsize = 6)))

panel_id_top_r <- gt1_r$layout[grep('strip-t.+1$', gt1_r$layout$name),]

# Add top labels
gt1_r <- gtable_add_grob(gt1_r, gt_top1_r, t = 2, l = panel_id_top_r$l[1])
gt1_r <- gtable_add_grob(gt1_r, gt_top2_r, t = 2, l = panel_id_top_r$l[2])
gt1_r <- gtable_add_grob(gt1_r, virg_grob, t = 2, l = panel_id_top_r$l[3])


# New page
grid.newpage()

# Print
grid.draw(gt1_r)

有人知道为什么最后一列标签不出现吗？

Answer 1

原始图

为什么它不起作用？

正如我们在上面看到的那样，原始情节缺少正确的grob。这似乎发生了，因为它认为其中的某些部分是脱离情节的范围。因此，它完全忽略了它。因此，为了解决此问题，我们可以更改将标签从图的边界移开的任何设置。另一个解决方案是直接编辑由facet_wrap创建的grobs。

解决方案1：

如果使用t的值将grobs添加到gtable时，请更改t，如果使用gtable_add_grob将grobs添加到gtable时，则会显示标签。但是，它似乎与情节有些重叠，看起来有些尴尬。

reprex_all <- ggplot(data= iris) +
  geom_line(aes(x= Petal.Width, y= Petal.Length)) +
  theme(panel.border=element_rect(color="black",fill="transparent"), 
        panel.background = element_rect(fill="white"))

g1_r <- reprex_all +
  facet_wrap(~Species, scales = "free") +
  theme(strip.background = element_blank(),
        strip.text = element_blank())

g2_r <- reprex_all +
  facet_grid(~Species, scales = "free") 

gt1_r <- ggplot_gtable(ggplot_build(g1_r))

gt2_r <- ggplot_gtable(ggplot_build(g2_r))

# Add space above plots
gt1_r <- gtable_add_rows(gt1_r, heights = unit(0.5, 'cm'), pos = 2)

# Try making top labels the same way as side labels so I can change font size
gt_top1_r <- gtable_filter(gt2_r, 'strip-t-1')
gt_top2_r <- gtable_filter(gt2_r, 'strip-t-2')
# instead, make my own so I can change font size
virg_grob <- grobTree(rectGrob(height = gt_top1_r$heights[1],  
                               gp = gpar(fill = "grey82", col = "grey82")),
                      textGrob(expression("virginica"),
                               gp = gpar(col = "black", fontsize = 6)))

panel_id_top_r <- gt1_r$layout[grep('strip-t.+1
解决方案2：或者创建一个边框
，我们可以在图周围添加边框。您已经尝试使用 gtable_add_rows 来执行此操作。但是，由于您设置了 pos = 2 它与标签所在的位置重叠，因此它实际上从未创建边框。另外，您可以设置 pos = 1 ，然后它将在图周围创建一个边框并显示标签，或者如果您想将标签与绘图分开，则可以离开 pos pos = 2 并添加一个额外的 gtable_add_rows ，其中具有 pos = 1 ，如下所示。
reprex_all <- ggplot(data= iris) +
  geom_line(aes(x= Petal.Width, y= Petal.Length)) +
  theme(panel.border=element_rect(color="black",fill="transparent"), 
        panel.background = element_rect(fill="white"))

g1_r <- reprex_all +
  facet_wrap(~Species, scales = "free") +
  theme(strip.background = element_blank(),
        strip.text = element_blank())

g2_r <- reprex_all +
  facet_grid(~Species, scales = "free") 

gt1_r <- ggplot_gtable(ggplot_build(g1_r))

gt2_r <- ggplot_gtable(ggplot_build(g2_r))

# Add space above plots
gt1_r <- gtable_add_rows(gt1_r, heights = unit(0.5, 'cm'), pos = 1)
gt1_r <- gtable_add_rows(gt1_r, heights = unit(0.5, 'cm'), pos = 2)

# Try making top labels the same way as side labels so I can change font size
gt_top1_r <- gtable_filter(gt2_r, 'strip-t-1')
gt_top2_r <- gtable_filter(gt2_r, 'strip-t-2')
# instead, make my own so I can change font size
virg_grob <- grobTree(rectGrob(height = gt_top1_r$heights[1],  
                               gp = gpar(fill = "grey82", col = "grey82")),
                      textGrob(expression("virginica"),
                               gp = gpar(col = "black", fontsize = 6)))

panel_id_top_r <- gt1_r$layout[grep('strip-t.+1
解决方案3：剪辑的转弯
也许使用此方法最简单的解决方案就是关闭剪辑。这告诉R即使标签已经超出了界限，也要绘制标签。可以通过在 gtable_add_grob 中添加 clip =“ off” 来轻松完成此操作。
reprex_all <- ggplot(data= iris) +
  geom_line(aes(x= Petal.Width, y= Petal.Length)) +
  theme(panel.border=element_rect(color="black",fill="transparent"), 
        panel.background = element_rect(fill="white"))

g1_r <- reprex_all +
  facet_wrap(~Species, scales = "free") +
  theme(strip.background = element_blank(),
        strip.text = element_blank())

g2_r <- reprex_all +
  facet_grid(~Species, scales = "free") 

gt1_r <- ggplot_gtable(ggplot_build(g1_r))

gt2_r <- ggplot_gtable(ggplot_build(g2_r))

# Add space above plots
gt1_r <- gtable_add_rows(gt1_r, heights = unit(0.5, 'cm'), pos = 2)

# Try making top labels the same way as side labels so I can change font size
gt_top1_r <- gtable_filter(gt2_r, 'strip-t-1')
gt_top2_r <- gtable_filter(gt2_r, 'strip-t-2')
# instead, make my own so I can change font size
virg_grob <- grobTree(rectGrob(height = gt_top1_r$heights[1],  
                               gp = gpar(fill = "grey82", col = "grey82")),
                      textGrob(expression("virginica"),
                               gp = gpar(col = "black", fontsize = 6)))

panel_id_top_r <- gt1_r$layout[grep('strip-t.+1
解决方案4：编辑 facet_wrap 值（最简单）
到目前为止最简单的解决方案就是简单地编辑由 faceet_wrap 创建的grobs。这可以使用以下功能完成。当然，这可以进一步简化，但我想使用您的原始代码中的结构，以使其更容易理解。
where <- function(x){c(1:length(x))[x]}
change_font <- function(plot, label, font_size){
  plot$grobs[[where(grepl(label, .subset2(plot$layout, "name")))]]$
    grobs[[1]]$
    children[[2]]$
    children[[1]]$
    gp$
    fontsize <- font_size
  return(plot)
}

reprex_all <- ggplot(data= iris) +
  geom_line(aes(x= Petal.Width, y= Petal.Length)) +
  theme(panel.border=element_rect(color="black",fill="transparent"), 
        panel.background = element_rect(fill="white"))

g2_r <- reprex_all +
  facet_grid(~Species, scales = "free")

gt2_r <- ggplot_gtable(ggplot_build(g2_r))

# Change font size
gt2_r <- change_font(gt2_r, 'strip-t-3', 6)

# New page
grid.newpage()

# Print
grid.draw(gt2_r)

, gt1_r$layout$name),]

# Add top labels
gt1_r <- gtable_add_grob(gt1_r, gt_top1_r, t = 3, l = panel_id_top_r$l[1])
gt1_r <- gtable_add_grob(gt1_r, gt_top2_r, t = 3, l = panel_id_top_r$l[2])
gt1_r <- gtable_add_grob(gt1_r, virg_grob, t = 3, l = panel_id_top_r$l[3])


# New page
grid.newpage()

# Print
grid.draw(gt1_r)

解决方案2：或者创建一个边框
，我们可以在图周围添加边框。您已经尝试使用 gtable_add_rows 来执行此操作。但是，由于您设置了 pos = 2 它与标签所在的位置重叠，因此它实际上从未创建边框。另外，您可以设置 pos = 1 ，然后它将在图周围创建一个边框并显示标签，或者如果您想将标签与绘图分开，则可以离开 pos pos = 2 并添加一个额外的 gtable_add_rows ，其中具有 pos = 1 ，如下所示。

解决方案3：剪辑的转弯
也许使用此方法最简单的解决方案就是关闭剪辑。这告诉R即使标签已经超出了界限，也要绘制标签。可以通过在 gtable_add_grob 中添加 clip =“ off” 来轻松完成此操作。

解决方案4：编辑 facet_wrap 值（最简单）
到目前为止最简单的解决方案就是简单地编辑由 faceet_wrap 创建的grobs。这可以使用以下功能完成。当然，这可以进一步简化，但我想使用您的原始代码中的结构，以使其更容易理解。

, gt1_r$layout$name),]

# Add top labels
gt1_r <- gtable_add_grob(gt1_r, gt_top1_r, t = 2, l = panel_id_top_r$l[1])
gt1_r <- gtable_add_grob(gt1_r, gt_top2_r, t = 2, l = panel_id_top_r$l[2])
gt1_r <- gtable_add_grob(gt1_r, virg_grob, t = 2, l = panel_id_top_r$l[3])


# New page
grid.newpage()

# Print
grid.draw(gt1_r)

解决方案3：剪辑的转弯
也许使用此方法最简单的解决方案就是关闭剪辑。这告诉R即使标签已经超出了界限，也要绘制标签。可以通过在 gtable_add_grob 中添加 clip =“ off” 来轻松完成此操作。

解决方案4：编辑 facet_wrap 值（最简单）
到目前为止最简单的解决方案就是简单地编辑由 faceet_wrap 创建的grobs。这可以使用以下功能完成。当然，这可以进一步简化，但我想使用您的原始代码中的结构，以使其更容易理解。

, gt1_r$layout$name),]

# Add top labels
gt1_r <- gtable_add_grob(gt1_r, gt_top1_r, t = 3, l = panel_id_top_r$l[1])
gt1_r <- gtable_add_grob(gt1_r, gt_top2_r, t = 3, l = panel_id_top_r$l[2])
gt1_r <- gtable_add_grob(gt1_r, virg_grob, t = 3, l = panel_id_top_r$l[3])


# New page
grid.newpage()

# Print
grid.draw(gt1_r)

解决方案2：或者创建一个边框

，我们可以在图周围添加边框。您已经尝试使用gtable_add_rows来执行此操作。但是，由于您设置了pos = 2它与标签所在的位置重叠，因此它实际上从未创建边框。另外，您可以设置pos = 1，然后它将在图周围创建一个边框并显示标签，或者如果您想将标签与绘图分开，则可以离开pos pos = 2并添加一个额外的gtable_add_rows，其中具有pos = 1，如下所示。

解决方案3：剪辑的转弯

也许使用此方法最简单的解决方案就是关闭剪辑。这告诉R即使标签已经超出了界限，也要绘制标签。可以通过在gtable_add_grob中添加clip =“ off”来轻松完成此操作。

解决方案4：编辑facet_wrap值（最简单）

到目前为止最简单的解决方案就是简单地编辑由faceet_wrap创建的grobs。这可以使用以下功能完成。当然，这可以进一步简化，但我想使用您的原始代码中的结构，以使其更容易理解。

, gt1_r$layout$name),] # Add top labels gt1_r <- gtable_add_grob(gt1_r, gt_top1_r, t = 2, l = panel_id_top_r$l[1]) gt1_r <- gtable_add_grob(gt1_r, gt_top2_r, t = 2, l = panel_id_top_r$l[2]) gt1_r <- gtable_add_grob(gt1_r, virg_grob, t = 2, l = panel_id_top_r$l[3], clip = "off") # New page grid.newpage() # Print grid.draw(gt1_r)

解决方案4：编辑facet_wrap值（最简单）

到目前为止最简单的解决方案就是简单地编辑由faceet_wrap创建的grobs。这可以使用以下功能完成。当然，这可以进一步简化，但我想使用您的原始代码中的结构，以使其更容易理解。

, gt1_r$layout$name),] # Add top labels gt1_r <- gtable_add_grob(gt1_r, gt_top1_r, t = 3, l = panel_id_top_r$l[1]) gt1_r <- gtable_add_grob(gt1_r, gt_top2_r, t = 3, l = panel_id_top_r$l[2]) gt1_r <- gtable_add_grob(gt1_r, virg_grob, t = 3, l = panel_id_top_r$l[3]) # New page grid.newpage() # Print grid.draw(gt1_r)

解决方案2：或者创建一个边框

，我们可以在图周围添加边框。您已经尝试使用gtable_add_rows来执行此操作。但是，由于您设置了pos = 2它与标签所在的位置重叠，因此它实际上从未创建边框。另外，您可以设置pos = 1，然后它将在图周围创建一个边框并显示标签，或者如果您想将标签与绘图分开，则可以离开pos pos = 2并添加一个额外的gtable_add_rows，其中具有pos = 1，如下所示。

解决方案3：剪辑的转弯

也许使用此方法最简单的解决方案就是关闭剪辑。这告诉R即使标签已经超出了界限，也要绘制标签。可以通过在gtable_add_grob中添加clip =“ off”来轻松完成此操作。

解决方案4：编辑facet_wrap值（最简单）

到目前为止最简单的解决方案就是简单地编辑由faceet_wrap创建的grobs。这可以使用以下功能完成。当然，这可以进一步简化，但我想使用您的原始代码中的结构，以使其更容易理解。

, gt1_r$layout$name),] # Add top labels gt1_r <- gtable_add_grob(gt1_r, gt_top1_r, t = 2, l = panel_id_top_r$l[1]) gt1_r <- gtable_add_grob(gt1_r, gt_top2_r, t = 2, l = panel_id_top_r$l[2]) gt1_r <- gtable_add_grob(gt1_r, virg_grob, t = 2, l = panel_id_top_r$l[3]) # New page grid.newpage() # Print grid.draw(gt1_r)

解决方案3：剪辑的转弯

也许使用此方法最简单的解决方案就是关闭剪辑。这告诉R即使标签已经超出了界限，也要绘制标签。可以通过在gtable_add_grob中添加clip =“ off”来轻松完成此操作。

解决方案4：编辑facet_wrap值（最简单）

到目前为止最简单的解决方案就是简单地编辑由faceet_wrap创建的grobs。这可以使用以下功能完成。当然，这可以进一步简化，但我想使用您的原始代码中的结构，以使其更容易理解。

, gt1_r$layout$name),] # Add top labels gt1_r <- gtable_add_grob(gt1_r, gt_top1_r, t = 3, l = panel_id_top_r$l[1]) gt1_r <- gtable_add_grob(gt1_r, gt_top2_r, t = 3, l = panel_id_top_r$l[2]) gt1_r <- gtable_add_grob(gt1_r, virg_grob, t = 3, l = panel_id_top_r$l[3]) # New page grid.newpage() # Print grid.draw(gt1_r)

解决方案2：或者创建一个边框

，我们可以在图周围添加边框。您已经尝试使用gtable_add_rows来执行此操作。但是，由于您设置了pos = 2它与标签所在的位置重叠，因此它实际上从未创建边框。另外，您可以设置pos = 1，然后它将在图周围创建一个边框并显示标签，或者如果您想将标签与绘图分开，则可以离开pos pos = 2并添加一个额外的gtable_add_rows，其中具有pos = 1，如下所示。

解决方案3：剪辑的转弯

也许使用此方法最简单的解决方案就是关闭剪辑。这告诉R即使标签已经超出了界限，也要绘制标签。可以通过在gtable_add_grob中添加clip =“ off”来轻松完成此操作。

解决方案4：编辑facet_wrap值（最简单）

到目前为止最简单的解决方案就是简单地编辑由faceet_wrap创建的grobs。这可以使用以下功能完成。当然，这可以进一步简化，但我想使用您的原始代码中的结构，以使其更容易理解。