R: ggplot и использование цветов для заполнения пробелов

Question

У меня есть данные временного ряда с пробелами.Я использовал несколько пакетов вменения, чтобы заполнить пробелы.

Через ggplot я сгенерировал оба графика.Я хотел бы использовать другой цвет для измененного участка графика для лучшей визуализации.

Исходный график с пробелами

ggplot(data = df_final, mapping = aes(x = day_of_year, y = bookings)) +
  geom_line()

График с заполненными пробелами

ggplot(data = df_result, mapping = aes(x = day_of_year, y = bookings_imputed)) +
  geom_line()

df_final & df_result - это кадры данных, используемые для исходных и заполненных пробелов участков соответственно.

Answer 1

Вы можете попробовать что-то вроде этого:

require(tidyverse)

df %>% 
  mutate(imputedValues = imputeTS::na.random(values), 
         type = ifelse(is.na(values) == TRUE, "impute", "real")) %>% 
  gather(var, val, -time, -type) %>%
  ggplot(aes(time, val, group = var, color = var)) + 
  geom_line()

Вывод:

Пример данных:

df <- data.frame(time = 1:10, 
                 values = rep(c(1, 2, 3, NA, 5), 2))

Answer 2

Быстрее всего будет сначала нарисовать вмененную линию, а затем оригинальную на том же графике другим цветом.

ggplot() +
  geom_line(data = df_result, 
            mapping = aes(x = day_of_year, y = bookings_imputed),
            color = 'red')
  geom_line(data = df_final,
            mapping = aes(x = day_of_year, y = bookings),
            color = 'black')