créer des boxplots avec la couleur transparente ggplot2

- Je créer un graphique avec plusieurs groupes et le traçage d'une geom_boxplot() sur un seet de lignes.
Cependant, il serait agréable de couleur les cases de façon transparente, de sorte que les lignes peuvent être vus.

Voici un exemple de données:

x11()

name <- c("a", "a", "a", "a", "a", "a","a", "a", "a", "b", "b", "b","b", "b", "b","b", "b", "b")
class <- c("c1", "c1", "c1", "c2", "c2", "c2", "c3", "c3", "c3","c1", "c1", "c1", "c2", "c2", "c2", "c3", "c3", "c3")
year <- c("2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008")
value <- c(100, 33, 80, 90, 80, 100, 100, 90, 80, 90, 80, 100, 100, 90, 80, 99, 80, 100)

df <- data.frame(name, class, year, value)
df

Je dessine le graphique avec:

p1 <- ggplot(df, aes(year, value))
p1 <- p1 + geom_line(aes(group=name, size=name),colour="#ff2300",alpha=0.5) +     facet_wrap(~ class, scales = "free_y") 
p1 <- p1 + geom_boxplot(aes(group=name))
print(p1)

Et sur mon système à la largeur de la ligne dans la légende s'affiche pas correctement. Suis-je en train de faire quelque chose de mal? Merci à l'avance!

source d'informationauteur Seb

  1. 27

    Vous pouvez ajouter alpha argument de votre boîte à moustaches. Par exemple:

    geom_boxplot(aes(group=name), alpha = 0.8)

    vous donnera

    créer des boxplots avec la couleur transparente ggplot2

  2. 5

    Modifier l'ordre de la geoms pour dessiner la boîte à moustaches en premier, puis les lignes. Cependant, je ne pense pas que votre graphique de sens. Pourquoi êtes-vous à l'aide de nom pour modifier la taille de la ligne? Ne serait-il pas plus judicieux de changer le type de ligne? Et je vous déconseille free_y dans les facettes puisqu'elle rend difficile la comparaison.

    name <- c("a", "a", "a", "a", "a", "a","a", "a", "a", "b", "b", "b","b", "b", "b","b", "b", "b")
class <- c("c1", "c1", "c1", "c2", "c2", "c2", "c3", "c3", "c3","c1", "c1", "c1", "c2", "c2", "c2", "c3", "c3", "c3")
year <- c("2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008", "2010", "2009", "2008")
value <- c(100, 33, 80, 90, 80, 100, 100, 90, 80, 90, 80, 100, 100, 90, 80, 99, 80, 100)

df <- data.frame(name, class, year, value)
df
library(ggplot2)
p1 <- ggplot(df, aes(year, value))
p1 <- p1 + geom_boxplot(aes(group=name)) + geom_line(aes(group=name, size=name),colour="#ff2300",alpha=0.5) + 
  facet_wrap(~ class, scales = "free_y")