R中带有跨越图形图例的多面板绘图，R中带有ggtext和gridtext

我很快就要实现这个多面板图了，下面是一个跨越文本的GROB图形图例。但我仍然在人物和人物图例之间获得了意想不到的空间。在下面的reprex中尝试

#库调用
图书馆（tidyverse）
图书馆（网格）
图书馆（网格文本）
图书馆（ggtext）
图书馆（拼凑）
#造假
d1$d4：数值0.876 0.816 1.066 0.95 0.982。。。
p1现在，每排面板的高度都相同。您希望第三行（有文本框）比上面两行短。在
绘图布局中适当设置
高度
。这需要一些摆弄才能完全正确。例如

p1 + {
  p2 + {
    p3 +
      p4 +
      plot_layout(ncol=1)
  }
} + fig_legend +
  plot_layout(ncol=1, heights = c(1, 1, 0.2))

正确的方法是使用
plot\u annotation（）
。标题两侧都有一个小的水平间隙的原因是打印边距仍然应用于标题，就像在常规ggplot2中一样。如果要避免这种情况，必须将打印边距设置为0，并通过向轴标题等添加适当的边距来创建间距

#库调用
图书馆（tidyverse）
图书馆（ggtext）
图书馆（拼凑）
#造假
d1如果您使用的是
plot\u annotation（）
，则不必调整高度。完美的让COW来实现一个无小提琴的解决方案吧！谢谢-分享回rstudio社区的原始帖子。NIH R01应用程序工作流少了一个R->Illustrator->Word->PDF是一大福音。将来，让我们知道你在交叉发帖是有礼貌的。