Как заштриховать область между двумя линиями с разными конечными точками с помощью ggplot?

У меня есть две линии данных трансекта, полученные в ходе двух сценариев. Я пытаюсь выделить область между двумя кривыми, созданными на основе данных, но не нашел решения с помощью geom_ribbon(), вероятно, из-за разных конечных точек и интервалов измерений. Есть идеи?

Вот мои данные:

data <- structure(list(Distance = c(4L, 23L, 28L, 33L, 43L, 49L, 55L, 
62L, 69L, 75L, 78L, 83L, 89L, 95L, 102L, 109L, 118L, 125L, 133L, 
141L, 148L, 157L, 166L, 173L, 179L, 186L, 192L, 198L, 209L, 219L, 
230L, 242L, 253L, 265L, 277L, 288L, 298L, 307L, 0L, 10L, 20L, 
32L, 44L, 57L, 75L, 87L, 102L, 114L, 127L, 142L, 151L, 163L, 
176L, 186L, 194L, 206L, 216L, 230L, 244L, 256L, 269L, 277L, 286L, 
295L, 307L, 318L, 325L, 329L), Scenario = c("Min", "Min", "Min", 
"Min", "Min", "Min", "Min", "Min", "Min", "Min", "Min", "Min", 
"Min", "Min", "Min", "Min", "Min", "Min", "Min", "Min", "Min", 
"Min", "Min", "Min", "Min", "Min", "Min", "Min", "Min", "Min", 
"Min", "Min", "Min", "Min", "Min", "Min", "Min", "Min", "Gen", 
"Gen", "Gen", "Gen", "Gen", "Gen", "Gen", "Gen", "Gen", "Gen", 
"Gen", "Gen", "Gen", "Gen", "Gen", "Gen", "Gen", "Gen", "Gen", 
"Gen", "Gen", "Gen", "Gen", "Gen", "Gen", "Gen", "Gen", "Gen", 
"Gen", "Gen"), Depth = c(0, -5.4, -5.5, -5.8, -6.5, -7.4, -7.7, 
-7.6, -7.3, -7.3, -7.6, -7.4, -7.7, -7.9, -7.9, -7.7, -7.5, -7.4, 
-7, -6.3, -6, -5.6, -5.3, -5, -4.5, -3.6, -2.9, -2.2, -1.7, -2, 
-1.7, -1.7, -1.7, -1.2, -1.3, -1, -0.6, 0, 0, -7.2, -8.1, -9.2, 
-9.9, -9.7, -9.6, -10, -10.3, -10.5, -10.3, -9.9, -9.5, -9.1, 
-8.7, -8.2, -7.8, -7.2, -6.1, -5, -4.4, -4.4, -4.4, -4, -4.1, 
-3.8, -3.9, -3.5, -3.4, 0)), class = "data.frame", row.names = c(NA, 
-68L))

Вот цифра на данный момент:

ggplot(data, aes(x = Distance, y = Depth, group = Scenario))+
  geom_line(aes(color = Scenario))+
  theme_bw()

r ggplot2 auc

15.08.2024 21:23

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

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

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

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

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

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

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

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

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

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

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

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

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

Ответы 2

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

Возможный подход:

используя tidyr, чтобы разделить две группы сценариев
geom_area чтобы раскрасить области под графиками, используя белый цвет для наложения между y = 0 и сценарием с меньшим значением y.
поместите линии сетки панели обратно сверху, это сделано с помощью Наложение сетки, а не рисование поверх нее

Обратите внимание, что порядок аргументов ggplot важен.

library(ggplot2)
library(tidyr)

df1 <- 
  data |> 
  pivot_wider(names_from = "Scenario",
              values_from = "Depth")

ggplot(data)+
  geom_area(data = df1,
            aes(x = Distance,
            y = Gen),
            fill = "grey80")+
  geom_area(data = df1, 
            aes(x = Distance,
                y = Min),
            fill = "white")+
  geom_line(aes(x = Distance, y = Depth, colour = Scenario))+
  theme_bw()+
  theme(panel.background = element_rect(fill = NA),
        panel.ontop = TRUE)

^{Created on 2024-08-15 with reprex v2.0.2}

15.08.2024 23:11

Измените порядок точек и нарисуйте многоугольник.

library(tidyverse)

data %>%
  mutate(Depth = ifelse(Scenario == "Gen", rev(Depth), Depth),
         Distance = ifelse(Scenario == "Gen", rev(Distance), Distance),
         .by = Scenario) %>%
  ggplot(aes(Distance, Depth)) +
  geom_polygon(color = NA, alpha = 0.3) +
  geom_line(aes(color = Scenario), linewidth = 1) +
  theme_gray(20)