studio - ggplot2 histogram

crear cuadros de caja con color transparente ggplot2

Question

Creo un gráfico con varios grupos y graficando un geom_boxplot () sobre un conjunto de líneas. Sin embargo, sería bueno colorear los cuadros de forma transparente para que se puedan ver las líneas.

Aquí hay algunos datos de muestra:

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

Dibujo el gráfico 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)

Y en mi sistema, el ancho de línea en la leyenda no se muestra correctamente. ¿Estoy haciendo algo mal? ¡Gracias por adelantado!

Answer 1

Cambia el orden de los geoms para dibujar el diagrama de caja primero y luego las líneas. Sin embargo, no creo que su gráfica tenga sentido. ¿Por qué estás usando el nombre para cambiar el tamaño de la línea? ¿No tendría más sentido cambiar el tipo de línea? Y desaconsejo la libertad en las facetas, ya que dificulta la comparación.

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

Answer 2

Puedes agregar un argumento alpha a tu diagrama de caja. Por ejemplo:

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

Te regalaré