R: ggplot mieux dégradé de couleur

Je suis en utilisant ggplot de tracer Proportionnelle à barres Empilées parcelle. Et l'Intrigue, je suis à quelque chose comme ceci:
R: ggplot mieux dégradé de couleur

Et c'est le support de la fonction, je suis en utilisant:

df <- data.frame(id=letters[1:3],val0=1:3,val1=4:6,val2=7:9, val3=2:4, val4=1:3, val5=4:6, val6=10:12, val7=12:14)

PropBarPlot<-function(df, mytitle=""){
   melteddf<-melt(df, id=names(df)[1], na.rm=T)
   ggplot(melteddf, aes_string(x=names(df)[1], y="value", fill="variable")) + 
     geom_bar(position="fill") + 
     theme(axis.text.x = element_text(angle=90, vjust=1)) + 
     labs(title=mytitle)
}

print(PropBarPlot(df))

Ici val4 et val5 ne sont pas très différents.

Mais en raison des couleurs de certains d'entre eux ne sont pas distinguables. Quelqu'un peut me dire comment choisir les meilleures couleurs de sorte qu'ils sont dérivable?

Grâce.

  • Pouvez-vous donner un exemple dataframe pour le rendre plus facile à tester le tracé? De toute façon, mon idée est d'avoir un coup d'oeil dans scale_colour_brewer de ggplot, qui vous permet d'utiliser des palettes à partir de colorbrewer2.org
  • Ajouté. Ici essentiellement val4 et val5 ne sont pas visiblement très différentes.
InformationsquelleAutor Rachit Agrawal | 2013-04-30
  1. 14

    Comment sur l'utilisation de scale_fill_brewer ce qui rend l'utilisation de palettes de couleurs à partir de la ColorBrewer site web, mis en œuvre par le paquet RColorBrewer?

    ggplot(diamonds, aes(clarity, fill=cut) ) +
geom_bar( ) +
scale_fill_brewer( type = "div" , palette = "RdBu" )

    R: ggplot mieux dégradé de couleur

    Il y a un certain nombre de divergences de palettes vous pouvez choisir.

    require(RColorBrewer)
?brewer.pal

    Si vous avez besoin de plus de couleurs, vous pouvez utiliser le colorRampPalette fonctionnalités pour interpoler entre certaines couleurs (et je voudrais utiliser un brewer.pal palette pour cela). Vous pouvez le faire comme ceci:

    # Create a function to interpolate between some colours
mypal <- colorRampPalette( brewer.pal( 6 , "RdBu" ) )
# Run function asking for 19 colours
mypal(19)
 [1] "#B2182B" "#C2373A" "#D35749" "#E47658" "#F0936D" "#F4A989" "#F8BFA5"
 [8] "#FCD6C1" "#F3DDD0" "#E7E0DB" "#DAE2E6" "#CBE1EE" "#ADD1E5" "#90C0DB"
 [15] "#72AFD2" "#5B9DC9" "#478BBF" "#3478B5" "#2166AC"

    Dans votre exemple, ce qui nécessite 8 couleurs vous l'utiliser comme ça avec scale_fill_manual():

    PropBarPlot<-function(df, mytitle=""){
   melteddf<-melt(df, id=names(df)[1], na.rm=T)
   ggplot(melteddf, aes_string(x=names(df)[1], y="value", fill="variable")) + 
     geom_bar(position="fill") + 
     theme(axis.text.x = element_text(angle=90, vjust=1)) + 
     labs(title=mytitle)+
    scale_fill_manual( values = mypal(8) )
}

print(PropBarPlot(df))
    • J'ai vérifié les différentes palettes, le meilleur que j'obtiens est un max de 12 variation, alors que dans mon cas j'ai besoin d'au moins 19 couleurs. Avec toutes les palettes, c'est d'avoir de problème.
    • ok, j'ai mis à jour à quelque chose qui pourrait fonctionner pour vous. Cochez la case modifier.
    • Souffre du même problème mentionné ci-dessus. Certains d'entre eux ne peuvent être distingués.
    • Ensuite, vous avez trop de couleur catégories en une seule parcelle! Les palettes ont un nombre maximum de couleurs pour une raison. Envisager de diviser votre terrain à l'aide de facet_wrap ou facet_ de la grille.
    • Peut-être que ça fonctionnerait mieux si les couleurs adjacentes dans le complot serait de oppos parties de la palete? Dans l'exemple que vous avez le blues près de bleus et de rouges à proximité de rouges. Si ils alternent alors il serait préférable de distinguer? Mais je suis d'accord avec SimonO101: si il y a problème de distinction, donc beaucoup de couleurs, peut-être que vous avez tracé trop en une seule parcelle.
    InformationsquelleAutor Simon O'Hanlon
  2. 1

    D'emprunt du code de @SimonO101

    library(ggplot2)
library(reshape2)
library(RColorBrewer)
mypal <- colorRampPalette( brewer.pal( 9 , "Set1" ) ) #you can try using different palete instead
#of "Set1" until it looks good to you

intercalate <- function(n){ #my crude attempt to shuffle the colors
  c(rbind(1:(n/2), n:(n/2+1))) #it will only work for even numbers
}

PropBarPlot<-function(df, mytitle=""){
  melteddf<-melt(df, id=names(df)[1], na.rm=T)
  ggplot(melteddf, aes_string(x=names(df)[1], y="value", fill="variable")) + 
    geom_bar(position="fill") + 
    theme(axis.text.x = element_text(angle=90, vjust=1)) + 
    labs(title=mytitle)+
    scale_fill_manual( values = mypal(8)[intercalate(8)] )
  #better would be to calculate the different number of categories
  #you have and put that instead of the number 8
}

df <- data.frame(id=letters[1:3],
                 val0=1:3,
                 val1=4:6,
                 val2=7:9, 
                 val3=2:4, 
                 val4=1:3, 
                 val5=4:6, 
                 val6=10:12, 
                 val7=12:14)

print(PropBarPlot(df))

    Voir si cela fonctionne mieux pour vos besoins.

    • Je suis venu avec une solution plus simple pour mélanger les couleurs. Ajouter ci-dessous. Merci pour l'aide.
    InformationsquelleAutor zelite
  3. 1

    Merci @zelite et @SimonO101 pour votre aide. C'est la version plus simple de ce que les deux d'entre vous est proposé. L'ajout d'ici à l'exhaustivité.

    library(ggplot2)
library(reshape2)
library(RColorBrewer)

getColors<-function(n){
   mypal<-colorRampPalette(brewer.pal(12, "Paired"))
   sample(mypal(n), n, replace=FALSE)
}

PropBarPlot<-function(df, mytitle=""){
   melteddf<-melt(df, id=names(df)[1], na.rm=T)
   n<-length(levels(factor(melteddf$variable)))

   ggplot(melteddf, aes_string(x=names(df)[1], y="value", fill="variable")) + 
      geom_bar(position="fill") + 
      scale_fill_manual(values=getColors(n)) + 
      theme(axis.text.x = element_text(angle=90, vjust=1)) + 
      labs(title=mytitle)
}

df <- data.frame(id=letters[1:3],
             val0=1:3,
             val1=4:6,
             val2=7:9, 
             val3=2:4, 
             val4=1:3, 
             val5=4:6, 
             val6=10:12, 
             val7=12:14)

print(PropBarPlot(df))

    Grâce.

    InformationsquelleAutor Rachit Agrawal
  4. 0

    J'utiliserais scale_fill_manual=c("red","green"), vous pouvez mettre plus de couleurs si vous le souhaitez
    ou
    scale_fill_brewer(palette="Rouges"), je l'aime. Vous pouvez utiliser des palettes ici

    InformationsquelleAutor dekio