在面板之间用双间距绘制第一组曲线(PA),而其他组的图(PB和PC)则以单个间距为单位,在最终布局中引起视觉上的不一致。
我试图与plot_spacer()添加一个空间
但是,当使用更多图表时,这会导致更大的问题,我的数据集约为20个图。
有人知道我如何解决这个问题?任何帮助将不胜感激!
您可能会考虑使用
wrap_plots
|
+
library(ggplot2)
library(patchwork)
# Combined final plot
pfail <- list(
list(p1, p2), list(p3, p4), list(p5, p6)
) |>
lapply(\(x) {
x |>
wrap_plots() +
plot_layout(
axis_titles = "collect",
tag_level = "new"
)
}) |>
wrap_plots(nrow = 1)
pfail <- pfail +
plot_annotation(
tag_levels = c("I", "a"), tag_sep = ".", tag_suffix = ":"
) +
plot_layout(guides = "collect")
pfail