在这个示例中，我向三个地块添加了边界:
library(ggplot2)
library(patchwork)
theme_border <- theme_gray() +
theme(plot.background = element_rect(fill = NA, colour = 'black',
size = 1, linetype = "dashed"))
ggplot() +
ggplot() +
ggplot() +
plot_layout(ncol=1, guides = "collect") +
plot_annotation(title = "Pred Sp", theme = theme_border)
创建于2024年4月18日，共有reprex v2.0.2个
情节标题就在里面.可以把它放在边境之外吗？此外，是否可以画圆角的边界？
这是一个巧妙的选项，它使用annotation_custom来伪造带有圆角的面板边界，使用grid::roundrectGrob来伪造原本空白的ggplot，然后使用patchwork::inset_element来添加三个图的补丁:
library(ggplot2)
library(patchwork)
ggplot() +
annotation_custom(
grid::roundrectGrob(
r = unit(0.025, "snpc"),
gp = grid::gpar(
lty = "dashed", lwd = 1, fill = NA
)
)
) +
coord_cartesian(clip = "off") +
theme_void() +
theme(plot.title = element_text(margin = margin(b = 5.5))) +
labs(title = "Pred Sp") +
inset_element(
ggplot() +
ggplot() +
ggplot() +
plot_layout(ncol = 1, guides = "collect"),
left = 0, right = 1,
top = 1, bottom = 0,
on_top = FALSE
)
