creare box grafici con colore trasparente ggplot2

Question

Creo un grafico con diversi gruppi e traccia un geom_boxplot() su un insieme di righe. Tuttavia, sarebbe bello colorare le scatole in modo trasparente in modo che le linee possano essere viste.

Ecco alcuni dati di esempio:

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 

traggo la grafica con:

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) 

E sul mio sistema non viene visualizzata correttamente lo spessore della linea nella legenda. Sto facendo qualcosa di sbagliato? Grazie in anticipo!

Answer 1

È possibile aggiungere l'argomento alpha al grafico box. Per esempio:

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

vi darà

Answer 2

Cambiare l'ordine dei GEOMs per disegnare il grafico a scatole e poi le linee. Comunque non penso che il tuo grafico abbia un senso. Perché stai usando il nome per cambiare la dimensione della linea? Non avrebbe più senso cambiare il tipo di linea? E mi scuso contro free_y nelle sfaccettature poiché rende difficile il confronto.

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")