Formateo de fechas en el eje X en ggplot2

Question

Estoy teniendo un momento muy, muy difícil para que el eje x se vea correcto para mis gráficos.

Aquí está mi información (generada a través de dput()):

df <- structure(list(Month = structure(1:12, .Label = c("2011-07-31", "2011-08-31", "2011-09-30", "2011-10-31", "2011-11-30", "2011-12-31", "2012-01-31", "2012-02-29", "2012-03-31", "2012-04-30", "2012-05-31", "2012-06-30"), class = "factor"), AvgVisits = c(6.98655104580674,7.66045407330464, 7.69761337479304, 7.54387561322994, 7.24483848458728, 6.32001400498928, 6.66794871794872, 7.207780853854, 7.60281201431308, 6.70113837397123, 6.57634103019538, 6.75321935568936)), .Names = c("Month","AvgVisits"), row.names = c(NA, -12L), class = "data.frame") 

Aquí está el gráfico que estoy tratando de graficar:

ggplot(df, aes(x = Month, y = AvgVisits)) + 
    geom_bar() + 
    theme_bw() + 
    labs(x = "Month", y = "Average Visits per User") 

Ese diagrama funciona bien - pero, si quiero ajustar el formato de la fecha, creo que debo agregar esto: scale_x_date(labels = date_format("%m-%Y"))

Estoy tratando de hacerlo para que las etiquetas de fecha sean 'MMM-YYYY'

ggplot(df, aes(x = Month, y = AvgVisits)) + 
    geom_bar() + 
    theme_bw() + 
    labs(x = "Month", y = "Average Visits per User") + 
    scale_x_date(labels = date_format("%m-%Y")) 

Cuando trama que, Puedo continuar recibiendo este error:

stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

A pesar de horas de investigación en formato de geom_line y geom_bar, no puedo solucionarlo. ¿Alguien puede explicar lo que estoy haciendo mal?

Editar: Como un pensamiento de seguimiento: ¿Se puede utilizar la fecha como un factor, o debe utilizar as.Date en una columna de fecha?

Answer 1

Can you use date as a factor?

Sí, pero probablemente no deberías.

...or should you use as.Date on a date column?

Sí.

que nos lleva a esto:

library(scales) 
df$Month <- as.Date(df$Month) 
ggplot(df, aes(x = Month, y = AvgVisits)) + 
    geom_bar(stat = "identity") + 
    theme_bw() + 
    labs(x = "Month", y = "Average Visits per User") + 
    scale_x_date(labels = date_format("%m-%Y")) 

en la que he añadido a su llamada stat = "identity"geom_bar.

Además, el mensaje sobre el binwidth no fue un error. Un error realmente indicará "Error" en él, y de manera similar una advertencia siempre dirá "Advertencia" en él. De lo contrario, es solo un mensaje.

Answer 2

Para mostrar meses como Jan 2017 Feb 2017 etc:

scale_x_date(date_breaks = "1 month", date_labels = "%b %Y") 

Ángulo las fechas si toman demasiado espacio:

theme(axis.text.x=element_text(angle=60, hjust=1))