Добавить аннотацию или заголовок за пределами границы

В этом примере я добавил границу к трем графикам:

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)

^{Created on 2024-04-18 with reprex v2.0.2}

Название сюжета внутри. Можно ли разместить его за границей? Кроме того, можно ли нарисовать границу со скругленными углами?

r ggplot2 patchwork

18.04.2024 18:35

Стоит ли изучать PHP в 2026-2027 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 2

Мы можем использовать patchwork::wrap_elements() для создания графиков с рамкой, а затем добавить к ним заголовок.

_{I am not sure how to make the border corners rounded (easily).}

library(ggplot2)
library(patchwork)

theme_border <- theme_gray() + 
  theme(plot.background = element_rect(fill = NA, colour = 'black', 
                                       linewidth= 1, linetype = "dashed"))

wrap_elements(ggplot() +
              ggplot() +
              ggplot() +
                plot_layout(ncol=1, guides = "collect")+
                plot_annotation(theme = theme_border)) +
  plot_annotation(title = "Pred Sp")

^{Created on 2024-04-18 with reprex v2.0.2}

18.04.2024 19:34

Ответ принят как подходящий

Вот один хакерский вариант, который использует 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
  )