Changer les couleurs de particulier bars dans un graphique à barres

J'ai été la création de certains bar-charts et je me demandais est-il possible de barres de couleur sur un tableau selon qu'ils se situent au-dessus ou au-dessous de l'axe des x?

Pour plus de précisions, c'est le type de graphique que je veux dire:

Changer les couleurs de particulier bars dans un graphique à barres

Idéalement, je voudrais être en mesure de la couleur des barres au-dessus d'une couleur distincte de ceux ci-dessous de sorte que le graphique a l'air plus attrayant, j'ai cherché mais je ne trouve pas de méthode de le faire, quelqu'un peut-il aider?

Merci à l'avance. 🙂

OriginalL'auteur George Burrows | 2012-10-28

  1. 32

    Y a une stratégie:

    ## Create a reproducible example
set.seed(5)
x <- cumsum(rnorm(50))

## Create a vector of colors selected based on whether x is <0 or >0  
## (FALSE + 1 -> 1 -> "blue";    TRUE + 1 -> 2 -> "red")
cols <- c("blue", "red")[(x > 0) + 1]  

## Pass the colors in to barplot()   
barplot(x, col = cols)

    Si vous voulez plus de deux fondées sur la valeur des couleurs, vous pouvez utiliser une stratégie similaire (à l'aide de findInterval() en lieu et place de la simple logique de test):

    vals <- -4:4
breaks <- c(-Inf, -2, 2, Inf)
c("blue", "grey", "red")[findInterval(vals, vec=breaks)]
# [1] "blue" "blue" "grey" "grey" "grey" "grey" "red"  "red"  "red"

    Changer les couleurs de particulier bars dans un graphique à barres

    OriginalL'auteur Josh O'Brien

  2. 17

    Un ggplot2 solution à l'aide de geom_bar avec stat_identity.

    library(ggplot2)
ggplot(dat, aes(x= seq_along(x), y = x)) + 
  geom_bar(stat = 'identity', aes(fill = x>0), position = 'dodge', col = 'transparent') + 
  theme_bw() + scale_fill_discrete(guide = 'none') + 
  labs(x = '', y = 'NAO Index')

    Changer les couleurs de particulier bars dans un graphique à barres

    scale_fill_discrete(guide = 'none') supprime la légende, position = 'dodge' cesse de l'avertissement qui vient du défaut position = 'stack'.

    +1 pour ggplot2!
    comment puis-je utiliser des couleurs comme le vôtre dans barplot(t(comme.matrice(mydf)), à côté=TRUE, col=chaleur.couleurs(3)) ? Merci

    OriginalL'auteur mnel

  3. 13

    Une façon est d'indexer un vecteur de couleurs avec un ou logique facteur variable (c'est un idiome commun dans R.

    set.seed(1)
NAO <- rnorm(40)
cols <- c("red","black")
pos <- NAO >= 0
barplot(NAO, col = cols[pos + 1], border = cols[pos + 1])

    L'astuce ici est pos:

    > pos
 [1] FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE FALSE
[11]  TRUE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE  TRUE  TRUE
[21]  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE
[31]  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE

    qui nous contraindre numérique dans le barplot() appel:

    > pos + 1
 [1] 1 2 1 2 2 1 2 2 2 1 2 2 1 1 2 1 1 2 2 2 2 2 2 1 2 1 1 1 1 2
[31] 2 1 2 1 1 1 1 1 2 2

    Le vecteur de 1s et 2s sélectionne les éléments du vecteur de couleur cols, tels que:

    > cols[pos + 1]
 [1] "red"   "black" "red"   "black" "black" "red"   "black"
 [8] "black" "black" "red"   "black" "black" "red"   "red"  
[15] "black" "red"   "red"   "black" "black" "black" "black"
[22] "black" "black" "red"   "black" "red"   "red"   "red"  
[29] "red"   "black" "black" "red"   "black" "red"   "red"  
[36] "red"   "red"   "red"   "black" "black"

    qui est la couleur de passé sur chaque barre dessinée.

    Dans le code ci-dessus j'ai aussi la frontière de la des bars à la couleur, via argument border.

    L'résultant de l'intrigue devrait ressembler à ceci

    Changer les couleurs de particulier bars dans un graphique à barres

    +1 pour l'explication agréable, et esp. pour la suggestion de la couleur la frontière.

    OriginalL'auteur Gavin Simpson

  4. 1

    J'ai trouvé cette page en cherchant de l'aide sur la couleur des barres individuelles dans un graphique à barre en fonction d'un facteur. Je ne pouvais pas trouver de toute autre source d'information, mais grâce à cette page, est venu avec cette:

    cols <- ifelse(df$Pays == "Groenland", "vert","bleu")

    Elle obtient ensuite passé dans barplot de la manière habituelle, comme décrit ci-dessus:

    barplot(x, col = cols)

    OriginalL'auteur AJGL