Rendre le fond d'un graphe de couleurs différentes dans les différentes régions

Je suis en train de faire un simple barchart dans R en utilisant le package ggplot2. Plutôt que le gris par défaut j'aimerais diviser l'arrière-plan en cinq régions, chacune à un autre (mais de la même sous-estimées) de la couleur. Comment puis-je faire cela?

Plus précisément, j'aimerais le cinq de couleur régions à courir à partir de 0 à 25, 25 à 45 45 à 65, 65-85 et 85-100 où les couleurs représentent le pire-de-bronze, bronze, argent, or et platine, respectivement. Suggestions pour une palette de couleurs très bienvenu.

  • La seule chose à laquelle je pense, du haut de ma tête pour créer une coupure variable, facette sur la coupe et de modifier la facette grobs à l'aide de la technique dans cette question: stackoverflow.com/questions/6750664/...
  • J'ai été en mesure de trouver un exemple de ma suggestion sur l'ggplot2 liste de diffusion: groups.google.com/forum/?fromgroups#!topic/ggplot2/fNBQrBPPbPM
  • Essayez d'ajouter geom_rect() couche(s) avec le remplissage et les valeurs alpha que vous voulez. Notez que dans cette application, il est facile à utiliser +/- Inf que les limites pour l'autre direction.
  • Merci à vous tous pour vos réponses/conseils: je vais essayer et créer ce que je veux plus tard aujourd'hui, et puis d'accepter la réponse appropriée (ou de poser plus de questions!).
InformationsquelleAutor Matt Ollis | 2012-04-01
  1. 43

    Voici un exemple pour vous aider à démarrer:

    #Fake data
dat <- data.frame(x = 1:100, y = cumsum(rnorm(100)))
#Breaks for background rectangles
rects <- data.frame(xstart = seq(0,80,20), xend = seq(20,100,20), col = letters[1:5])


#As Baptiste points out, the order of the geom's matters, so putting your data as last will 
#make sure that it is plotted "on top" of the background rectangles. Updated code, but
#did not update the JPEG...I think you'll get the point.

ggplot() + 
  geom_rect(data = rects, aes(xmin = xstart, xmax = xend, ymin = -Inf, ymax = Inf, fill = col), alpha = 0.4) +
  geom_line(data = dat, aes(x,y))

    Rendre le fond d'un graphe de couleurs différentes dans les différentes régions

    • il est probablement mieux d'avoir les rectangles en dessous de la ligne
    • oui, bon point. J'ai négligé de penser que, dans ma hâte de mettre une réponse ensemble. J'ai intégré votre commentaires ci-dessus. Merci!
    • Merci! Je l'ai essentiellement travailler maintenant. (La résolution de mes problèmes est, je pense, juste une question de moi, de mieux en mieux à la compréhension de prise de graphiques à barres via ggplot plutôt que qplot. La couleur d'arrière-plan de bits fonctionne très bien.)
    • Salut @Chase un très beau code, je l'ai peut-être pouvez réutiliser. J'ai changé les rectangles de x à y, et maintenant je vais essayer avec mes données de date et d'heure sur l'axe x. Est-il possible de le faire? Merci
    • Aucune idée de la façon de l'appliquer et un facet_wrap()?
    • Avec ces parcelles, je tiens à ajouter des scale_x_continuous(expand = c(0, 0)) + scale_y_continuous(expand = c(0, 0)) à supprimer l'espace supplémentaire entre les rectangles et de l'axe. Je trouve cela plus esthétique.

    InformationsquelleAutor Chase
  2. 5

    J'ai voulu déplacer la ligne⎯ou les barres de l'histogramme⎯à l'avant-plan, comme l'a suggéré baptiste ci-dessus et de fixer le fond avec
    + theme(panel.background = element_rect(), panel.grid.major = element_line( colour = "white") ), malheureusement je n'ai pu le faire par l'envoi de la geom_bar deux fois, j'espère que quelqu'un peut améliorer le code et faire la réponse complète.

    background <- data.frame(lower = seq( 0  , 3  , 1.5 ), 
                         upper = seq( 1.5, 4.5, 1.5 ),
                         col = letters[1:3])
ggplot() + 
    geom_bar( data = mtcars , aes( factor(cyl) ) ) + 
    geom_rect( data = background , 
              mapping = aes( xmin = lower , 
                            xmax = upper ,
                            ymin = 0 ,
                            ymax = 14 ,
                            fill = col ) ,
              alpha = .5 ) + 
    geom_bar(data = mtcars,
             aes(factor(cyl))) +
             theme(panel.background = element_rect(),
                   panel.grid.major = element_line( colour = "white"))

    Ce produit,
    Rendre le fond d'un graphe de couleurs différentes dans les différentes régions

    Prendre un coup d'oeil à ce site pour le schéma de couleur de suggestions.

    InformationsquelleAutor Eric Fail