R graphics / ggplot2 для воспроизведения огранки с выделенной «активной» линией, а другие линии выделены серым цветом

Question

Есть ли способ выполнить sh этот тип огранки в ggplot2 или любой другой библиотеке графиков, доступной в R?

Вот попытка создать некоторые фиктивные данные.

library(tidyverse)

country <- c(rep("Bahrain", 30), rep("Chile", 30), rep("Czech Rep.", 30))
day <- rep(1:30, 3)
cases <- c(runif(n = 30, 1, 5), runif(n = 30, 5, 10), runif(n = 30, 1, 20)) %>% round()

# trying to create some dummy data
df <- tibble(country, day, cases) %>%
  group_by(country) %>%
  mutate(cases = cumsum(cases))

# creating a plot with basic faceting
ggplot(df, aes(day, cases)) +
  geom_line() +
  facet_wrap(~country)

Answer 1

В вашем случае, я думаю, использование gghighlight может быть полезным:

library(ggplot2)
library(gghighlight)
ggplot(df, aes(cases, day, color = country)) +
  geom_line() +
  gghighlight()+
  facet_wrap(~country)

Отвечает ли он на ваш вопрос?

Официальная документация для gghighlight: https://yutannihilation.github.io/gghighlight/articles/gghighlight.html