Geom_boxplot с градиентной заливкой

Я пытаюсь добавить градиентную заливку столбца value (см. пример dputdataframe ниже) в свой geom_boxplot, чтобы получить что-то вроде этого, однако мне это удалось только с Period в fill, например:

library(ggplot2)

ggplot(df, 
       aes(x=Period, ymin=min, lower=min, fill=Period,
           middle=0, upper=max, ymax=max)) +
  geom_boxplot(stat = "identity")

Воспроизводимые данные примера:

df <- structure(list(value = c(-0.256008390785499, -0.24004506049582, -0.250828695705342, 
    -0.267190101219487, -0.316647825400329, -0.366330881072921, 
    -0.349098289022608, -0.341879051913029, -0.368308158446536, 
    -0.377816620860917, -0.412561020729726, -0.458235576769901, 
    -0.438308012743532, -0.423376509219582, -0.446750016179227, 
    -0.456357816345701, -0.494158454876249, -0.546914450257824, 
    -0.457499662919834, -0.443757432245947, -0.472335096128546, 
    -0.49378723945037, -0.547975868432454, -0.600343358251158, 
    -0.406085464722591, -0.394433985798893, -0.420042741441662, 
    -0.431297210839104, -0.473576129192589, -0.527286933402277
    ), Period = c("1951-1980", "1951-1980", "1951-1980", "1951-1980", 
    "1951-1980", "1951-1980", "1981-2010", "1981-2010", "1981-2010", 
    "1981-2010", "1981-2010", "1981-2010", "2011-2040", "2011-2040", 
    "2011-2040", "2011-2040", "2011-2040", "2011-2040", "2041-2070", 
    "2041-2070", "2041-2070", "2041-2070", "2041-2070", "2041-2070", 
    "2071-2100", "2071-2100", "2071-2100", "2071-2100", "2071-2100", 
    "2071-2100"), max = c(0.815576174565362, 0.815576174565362, 
    0.815576174565362, 0.815576174565362, 0.815576174565362, 
    0.815576174565362, 0.801648736136538, 0.801648736136538, 
    0.801648736136538, 0.801648736136538, 0.801648736136538, 
    0.801648736136538, 0.766267272755767, 0.766267272755767, 
    0.766267272755767, 0.766267272755767, 0.766267272755767, 
    0.766267272755767, 0.76577744142212, 0.76577744142212, 0.76577744142212, 
    0.76577744142212, 0.76577744142212, 0.76577744142212, 0.771953608938838, 
    0.771953608938838, 0.771953608938838, 0.771953608938838, 
    0.771953608938838, 0.771953608938838), min = c(-0.558861617596901, 
    -0.558861617596901, -0.558861617596901, -0.558861617596901, 
    -0.558861617596901, -0.558861617596901, -0.591774302902796, 
    -0.591774302902796, -0.591774302902796, -0.591774302902796, 
    -0.591774302902796, -0.591774302902796, -0.762911874447465, 
    -0.762911874447465, -0.762911874447465, -0.762911874447465, 
    -0.762911874447465, -0.762911874447465, -0.875343482743915, 
    -0.875343482743915, -0.875343482743915, -0.875343482743915, 
    -0.875343482743915, -0.875343482743915, -1.03089239970852, 
    -1.03089239970852, -1.03089239970852, -1.03089239970852, 
    -1.03089239970852, -1.03089239970852)), row.names = c(1L, 
2L, 3L, 4L, 5L, 6L, 8924L, 8925L, 8926L, 8927L, 8928L, 8929L, 
17847L, 17848L, 17849L, 17850L, 17851L, 17852L, 44616L, 44617L, 
44618L, 44619L, 44620L, 44621L, 71385L, 71386L, 71387L, 71388L, 
71389L, 71390L), class = "data.frame")

Я бы сделал это, используя geom_col, как в посте, на который вы ссылаетесь. Если хотите, вы можете построить сверху прямоугольник и срединную линию с прозрачным заполнением.

— 30.05.2024 18:50

Еще есть такой stackoverflow.com/questions/48231704/…, но я думаю для того, что вам нужно geom_col это лучший вариант.

— 30.05.2024 19:16

Спасибо за ваши ответы, однако я использую geom_boxplot, потому что мне нужно использовать значения min и max, и я не ищу градиент между коробчатыми диаграммами, а внутри коробчатых диаграмм, как пример, который я связал в своем вопросе, нельзя ли сделать это с помощью geom_boxplot?

— 30.05.2024 22:45

Зачем настаивать на использовании отвертки, чтобы забить гвоздь?

— 31.05.2024 07:56

r ggplot2 boxplot

30.05.2024 18:34

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

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

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

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

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

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

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

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

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

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

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

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

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

Ответы 1

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

Чтобы получить желаемый график, вам следует использовать geom_tile, предварительно поработав с некоторыми данными.

group_by(df, Period) |>
  distinct(max, min) |>
  expand(value=seq(min, max, by=0.01)) |>
  ggplot(aes(x=Period, y=value)) +
  geom_tile(aes(fill=value), width=0.8, height=0.01) +
  geom_segment(y=0, yend=0, linewidth=2,
               aes(x=as.numeric(as.factor(Period))-0.4,
                   xend=as.numeric(as.factor(Period))+0.4)) +
  scale_fill_gradient2(low = 'blue', mid = 'grey', high = 'red', midpoint = 0) +
  guides(fill=guide_none()) +
  theme_classic()

На самом деле вы используете только 5 строк вашего фрейма данных. Это ваши фактические данные, которые используются для построения графика:

group_by(df, Period) |>
   distinct(max, min)
# A tibble: 5 × 3
# Groups:   Period [5]
  Period      max    min
  <chr>     <dbl>  <dbl>
1 1951-1980 0.816 -0.559
2 1981-2010 0.802 -0.592
3 2011-2040 0.766 -0.763
4 2041-2070 0.766 -0.875
5 2071-2100 0.772 -1.03

Затем нам нужно расширить это, чтобы получить градиентные цвета.

expand(value=seq(min, max, by=0.01))
# A tibble: 777 × 2
# Groups:   Period [5]
   Period     value
   <chr>      <dbl>
 1 1951-1980 -0.559
 2 1951-1980 -0.549
 3 1951-1980 -0.539
 4 1951-1980 -0.529
 5 1951-1980 -0.519
 6 1951-1980 -0.509
 7 1951-1980 -0.499
 8 1951-1980 -0.489
 9 1951-1980 -0.479
10 1951-1980 -0.469
# ℹ 767 more rows

31.05.2024 06:24

Другие вопросы по теме

Автоматическая настройка среднего текста на панели

График подсолнечника с использованием ggplot2

Изменение порядка заливки между разными группами ggplot2

Размещение аннотаций за пределами графика ggplot2, когда ось является категориальной

Как правильно установить метки на диаграмме Санки, созданной с помощью ggsankey?

Уклонение от позиции не уклоняется geom_sf_label

Отрисовка государственных границ на карте округа в последней версии

Изменение положения меток таблицы рисков в ggsurvplot

Почему я не могу итеративно добавлять объекты ggplot в список?

Пытаюсь создать карту континента для Южной Америки, но geom_polygon создает зигзагообразную заливку

Geom_boxplot с градиентной заливкой

Ответы 1

Другие вопросы по теме

Похожие вопросы