ggplot: geom_polygon - Erreur dans la longueur de l'esthétique

Question

Je veux dessiner un nuage de points avec trois polygones dans les zones spécifiques de coloration de l'arrière-plan. Cela devrait ressembler à this. Le code fonctionne bien avec 4 variables sur l'axe des ordonnées, mais lance et erreur quand j'ajoute un cinquième. Je ne peux pas comprendre la raison.

l'erreur:

Erreur: esthétique doit être soit une longueur de 1 ou les mêmes que les données (5): x, y

Le code reproductible:

library(dplyr) 
library(ggplot2) 

v1 <- c(1, 1, 1) 
v2 <- c(1, 0, 0) 
v3 <- c(1, 0, 1) 
v4 <- c(0, 1, 1) 
v5 <- c(1, 0, 1) 

xG <- c(3, 3, 3, 3, 3) 

input <- c(v1, v2, v3, v4, v5) 
df <- data_frame(values = input, 
      module = c(rep("A", length(v1)), 
         rep("B", length(v2)), 
         rep("C", length(v3)), 
         rep("D", length(v4)), 
         rep("E", length(v5)))) 

perWorkField <- df %>% 
    group_by(module) %>% 
    summarise(sums = sum(values)) %>% 
    mutate(percent = round((sums/xG) * 100, 2)) 

ggplot(data = perWorkField) + 
    geom_point(mapping = aes(x = percent, y = module)) + xlim(c(0, 100)) + 
    geom_polygon(aes(x = c(0, 30, 30, 0), y = c(0.5, 0.5, 5.5, 5.5)), 
      fill="#F5817A", 
      color = NA) + 
    geom_polygon(aes(x = c(30, 75, 75, 30), y = c(0.5, 0.5, 5.5, 5.5)), 
      fill="#FFFF0044", 
      color = NA) + 
    geom_polygon(aes(x = c(75, 100, 100, 75), y = c(0.5, 0.5, 5.5, 5.5)), 
      fill="#00FF0044", 
      color = NA) + 
    geom_point(mapping = aes(x = percent, y = module), shape = 20, size = 5) + theme_classic() 

I apprécier tout conseil. Merci d'avance!

Answer 1

Vous pouvez essayer de le faire fonctionner, j'ai remplacé l'argument de données afin de le faire fonctionner correctement

ggplot() + 
    geom_point(data = perWorkField, mapping = aes(x = percent, y = module)) + xlim(c(0, 100)) + 
    geom_polygon(aes(x = c(0, 30, 30, 0), y = c(0.5, 0.5, 5.5, 5.5)), 
       fill="#F5817A", 
       color = NA) + 
    geom_polygon(aes(x = c(30, 75, 75, 30), y = c(0.5, 0.5, 5.5, 5.5)), 
       fill="#FFFF0044", 
       color = NA) + 
    geom_polygon(aes(x = c(75, 100, 100, 75), y = c(0.5, 0.5, 5.5, 5.5)), 
       fill="#00FF0044", 
       color = NA) + 
    geom_point(data = perWorkField, mapping = aes(x = percent, y = module), shape = 20, size = 5) + theme_classic() 

Answer 2

Puisque vous créez des régions ombragées rectangulaires, geom_rect() peut être plus facile à lire/maintenir que geom_polygon().

En outre, annotate() peut être utilisé pour éviter le problème avec l'esthétique héritée de la trame de données:

ggplot(data = perWorkField) + 
    geom_point(aes(x = percent, y = module)) + 
    annotate("rect", xmin = 0, xmax = 30, ymin = 0.5, ymax = 5.5, fill = "#F5817A", color = NA) + 
    annotate("rect", xmin = 30, xmax = 75, ymin = 0.5, ymax = 5.5, fill = "#FFFF0044", color = NA) + 
    annotate("rect", xmin = 75, xmax = 100, ymin = 0.5, ymax = 5.5, fill = "#00FF0044", color = NA) + 
    geom_point(aes(x = percent, y = module), shape = 20, size = 5) + 
    theme_classic()