una - Graficar histogramas sobre variables factoriales

modificar ejes en r

Question

Estoy tratando de replicar el gráfico similar al siguiente (originalmente encontrado HERE )

Es conceptualmente simple, pero estoy un poco perplejo en cuanto a cómo hacerlo en R.
Para resumir: quiero generar histogramas de frecuencia de comportamiento en las 24 horas del día (variable factor de 24 niveles) por cada día de la semana. Luego, quiero apilar estos histogramas uno encima del otro para que la distribución del comportamiento a lo largo de la hora del día se pueda comparar fácilmente (nuevamente, vea el ejemplo).

Por ejemplo, mis datos podrían verse así:

  weekday hour    count
  Tuesday   15      553
   Monday    1       53
   Monday   10      539
   Monday   15      629
  Tuesday    9      281
 Saturday    4       11
   Monday    3       20
   Sunday    3       10
   Sunday    7        2
   Sunday    2       17

¿Cómo hago para implementar la gráfica en el enlace de arriba? Soy terrible con ggplot , pero tengo la sensación de que es la solución más probable. ¡Gracias!

Answer 1

¿Algo como esto?

set.seed(1234)
df <- data.frame(weekday=rep(sort(unique(weekdays(.leap.seconds))), each=24), 
                       hour=rep(1:24, 7), count=sample(2:600, 24*7, replace=T))

df$weekday <- factor(df$weekday, levels=c("Monday", "Tuesday", "Wednesday", 
                      "Thursday", "Friday", "Saturday", "Sunday"), ordered=T)
df$hour <- factor(df$hour)

require(ggplot2)    
p <- ggplot(data = df, aes(x=hour)) 
p <- p + geom_histogram(aes(weights=count, fill=weekday))
p <- p + scale_fill_brewer(palette="Set3")
p <- p + facet_wrap( ~ weekday, ncol=1)
p