Repository navigation
Patchwork of patwchrok does not handle title properly #434
Description
related to #432, I noticed another error:
If I do the following to avoid the legend error (as suggested here https://stackoverflow.com/questions/79663257/how-to-handle-legend-properly-with-patchwork/79663866?noredirect=1#comment140511944_79663866)
p1 <- ggplot(iris,aes(Sepal.Length,Sepal.Width,color = Species))+
geom_point()
first_plot <- p1 +
inset_element(p1 + guides(color = "none"),
right = 0.5,left = 0,
bottom = .55,top = 1) +
plot_annotation(title = "plouf1")
p2 <- ggplot(iris,aes(Sepal.Length,Sepal.Width,color = Petal.Width))+
geom_point()
second_plot <- p2 + inset_element(p2+ guides(color = "none"),
right = 0.5,left = 0,
bottom = .55,top = 1) +
plot_annotation(title = "plouf2")
Each plot has his title. But when doing:
first_plot + second_plot
I just have the first title, and even worst:
(first_plot + second_plot)/(first_plot + second_plot)
Here I have no title anymore
Activity
Breeze-Hu commentedon Jun 18, 2025
I feel as if the situation is somewhat similar to this issue: #416
Looking forward to the developer's fix :-)
bug1303 commentedon Mar 17, 2026
Had a similar issue and found a work-around here: https://stackoverflow.com/questions/69970971/plot-annotations-disappear-via-patchwork-in-r
You can do
wrap_elements(first_plot) + wrap_elements(second_plot)or even:
(wrap_elements(first_plot) + wrap_elements(second_plot))/(wrap_elements(first_plot) + wrap_elements(second_plot))Also described in the docs (https://patchwork.data-imaginist.com/articles/guides/annotation.html#titles-subtitles-and-captions):
"It is important to note that plot annotations only have an effect on the top-level patchwork. Any annotation added to nested patchworks are (currently) lost. If you need to have annotations for a nested patchwork you’ll need to wrap it in wrap_elements() with the side-effect that alignment no longer works."