Добавить заголовок над осью geom_alluvium

Как добавить заголовок над осью1 и осью2 в geom_alluvium?

Похожий на

Добавить заголовок над осью geom_alluvium

Текущий код:

library(ggplot2)
library(ggalluvial)



df = data.frame(
  before = factor(c(4,2,3,1,1,1,2,4,2,2,1,4,3), labels = c("a","b","c","d")),
  after  = factor(c(3,3,2,1,3,4,4,1,1,2,2,4,3), labels = c("a","b","c","d")),
  N      = c(4,1,1,2,1,2,1,1,1,1,1,1,1)
)

ggplot(df, aes(y = N, axis1 = before, axis2 = after))  + 
  geom_alluvium(aes(fill = before)) +
  geom_stratum() +
  geom_text(stat = "stratum", mapping = aes(label = after_stat(stratum)))

Что не так с использованием annotate sindri?

— 22.03.2022 17:02

Я думал, что существует более простое решение.

— 22.03.2022 17:16

r ggplot2 ggalluvial

22.03.2022 16:54

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

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

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

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

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

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

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

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

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

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

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

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

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

Ответы 1

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

Вы можете добавить старый добрый geom_label:

ggplot(df, aes(y = N, axis1 = before, axis2 = after))  + 
  geom_alluvium(aes(fill = before)) +
  geom_stratum() +
  geom_text(stat = "stratum", mapping = aes(label = after_stat(stratum))) +
  geom_label(inherit.aes = FALSE,
            data = data.frame(x = c(1, 2), y = c(19, 19), 
                              label = c('Before', 'After')),
            aes(label = label, x = x, y = y))

Или, если вы хотите, чтобы метки выглядели «над» сюжетом, вы можете сделать:

ggplot(df, aes(y = N, axis1 = before, axis2 = after))  + 
  geom_alluvium(aes(fill = before)) +
  geom_stratum() +
  geom_text(stat = "stratum", mapping = aes(label = after_stat(stratum))) +
  annotate('rect', xmin = -Inf, xmax = Inf, ymax = Inf, ymin = 18.5,
           fill = 'white') +
  geom_text(inherit.aes = FALSE,
            data = data.frame(x = c(1, 2), y = c(19, 19), 
                              label = c('Before', 'After')),
            aes(label = label, x = x, y = y))

Или, если это похоже на обман, вы можете использовать annotate:

ggplot(df, aes(y = N, axis1 = before, axis2 = after))  + 
  geom_alluvium(aes(fill = before)) +
  geom_stratum() +
  geom_text(stat = "stratum", mapping = aes(label = after_stat(stratum))) +
  coord_cartesian(clip = 'off', ylim = c(0, 18)) +
  annotate('text', y = c(20, 20), x = c(1, 2), label = c('Before', 'After')) +
  theme(plot.margin = margin(30, 10, 10, 10))