цветные поля в качестве фона с ggplot для временных рядов данных

Question

Я хотел бы раскрасить фон ggplot. Это почти описано здесь: ссылка , но есть некоторые издания, которые делают мою идею просто не работающей. Во-первых, мои данные выглядят так:

# airquality
rects = data.frame(start = seq(0, 200, 50), end = seq(50, 250, 50), level = c ("good", "moderate", "unhealthy for sensitive groups", " unhealty", "very unhealth"))

Я хотел бы создать фон для некоторых данных качества. Эти данные имеют метки времени. Таким образом, ось X будет работать от sys.Date()-90 до sys.Date(). У оси Y есть несколько уровней концентрации no2, которые я хотел бы придать некоторым цветам. Мой подход следующий:

datemin = as.Date(sys.Date() - 90)
datemax = as.Date(sys.Date())

ggplot() + geom_rect(data = rects, aes(xmin = datemin, xmax = datemax, ymin = start, ymax = end, fill = level), alpha = 0.5) 

Это дает следующий график:

Пока все хорошо. Но я бы хотел придать каждой коробке определенный цвет. И я не знаю, как это сделать.

Более того, когда я объединяю это с моими данными временного ряда, он говорит: Error: Invalid input: time_trans works with objects of class POSIXct only

Так что мои вопросы таковы: как получить определенный c цвет для каждой коробки. И как убедиться, что даты назначены?

Answer 1

вот мое решение

ggplot() +
  geom_rect(data = rects, aes(xmin = datemin, xmax = datemax, ymin = start, ymax = end, fill = level), alpha = 0.5)+
   scale_fill_manual(values = c("red", "blue", "green","orange","grey")

Answer 2

Цвета заливки можно указать вручную, используя scale_fill_manual, с атрибутом names вектора, который используется для назначения правильного цвета правильной группе. Код будет:

colours <- c("violet","purple","blue","green","yellow")
names(colours) <- rects$level

colours
#                               good                       moderate unhealthy for sensitive groups                       unhealty                  very unhealth 
#                           "violet"                       "purple"                         "blue"                        "green"   

ggplot() + geom_rect(data = rects, aes(xmin = datemin, xmax = datemax, ymin = start, ymax = end, fill = level), alpha = 0.5) +
  scale_fill_manual(values=colours)