Как назначить цвета, указанные в содержимом фрейма данных, геометрии ggplot? - PullRequest
Новая
       23

Как назначить цвета, указанные в содержимом фрейма данных, геометрии ggplot?

1 голос
/ 27 мая 2020

Я пытаюсь построить график некоторых точек с некоторыми цветными фоновыми областями позади них. Я хотел бы, чтобы цвет заливки зависел от имени «квадранта» и указывался внутри самого фрейма данных (например, «Безразличный» будет розовым в приведенном ниже примере). Я попытался назначить этот столбец аргументу values ​​в scale_fill_manual, но это, похоже, не имеет никакого эффекта, например: 

quadrant_names <- c("Indifferent", "Must be present", "Attractive", "Performance", "Dislike")
quadrant_xmin <- c(-1, 2, -1, 2, -2)
quadrant_xmax <- c(2, 4, 2, 4, 0)
quadrant_ymin <- c(0, 0, 2, 2, -2)
quadrant_ymax <- c(2, 2, 4, 4, 0)
quadrant_colors <-c("pink", "yellow", "blue", "green", "purple")

kano_quadrants <- data.frame(quadrant_names, quadrant_xmin, quadrant_xmax, quadrant_ymin, quadrant_ymax, quadrant_colors)

xpoints <- runif(10, -2, 4)
ypoints <- runif(10, -2, 4)
points <- data.frame(xpoints, ypoints)

  ggplot(data=points, aes(x=xpoints, y=ypoints)) +
    geom_rect(data=kano_quadrants, aes(xmin=quadrant_xmin, xmax=quadrant_xmax, x=NULL,
                                       ymin=quadrant_ymin, ymax=quadrant_ymax, y=NULL,
                                       fill=quadrant_names), alpha=0.2) +
    geom_point() +
    geom_text(data=kano_quadrants, aes(label=quadrant_names, 
              y=(quadrant_ymin+quadrant_ymax)/2, 
              x=(quadrant_xmin+quadrant_xmax)/2))+
    geom_hline(yintercept=0) +
    geom_vline(xintercept=0) +
    theme_bw() +
    scale_fill_manual(values=kano_quadrants$quadrant_colors)

Результаты в:

graph

Как я могу заставить его назначать цвета заливки соответствующим уровням quadrant_name, как указано в кадре данных, а не случайным образом?

1 Ответ

1 голос
/ 27 мая 2020

Сопоставьте fill с quadrant_colors и используйте scale_fill_identity()

library(ggplot2)
ggplot(data=points, aes(x=xpoints, y=ypoints)) +
  geom_rect(data=kano_quadrants, aes(xmin=quadrant_xmin, xmax=quadrant_xmax, x=NULL,
                                     ymin=quadrant_ymin, ymax=quadrant_ymax, y=NULL,
                                     fill=quadrant_colors), alpha=0.2) +
  geom_point() +
  geom_text(data=kano_quadrants, aes(label=quadrant_names,
                                     y=(quadrant_ymin+quadrant_ymax)/2,
                                     x=(quadrant_xmin+quadrant_xmax)/2))+
  geom_hline(yintercept=0) +
  geom_vline(xintercept=0) +
  theme_bw() +
  scale_fill_identity()

enter image description here

...