etichette degli assi rotanti in formato data

Question

qualcuno sa come ruotare i segni di graduazione degli assi nel formato data con ggplot2? Voglio ottenere le etichette con "Date-Month" (es. "1985-5") con un angolo di 45 ° sull'asse x.

dati di esempio:

Station Date Ptot 
A 1980-02 16 
A 1980-03 19 
A 1980-04 40 
A 1980-05 48 
A 1980-06 NA 
A 1980-07 18.5 
A 1980-08 24.6 
B 1980-07 50.8 
B 1980-08 28.9 
B 1980-09 32.9 
B 1980-10 47.9 
B 1980-11 16.3 

ho provato questo:

library(ggplot2) 
library(scales) 

plot <- ggplot(data=na.omit(data), aes(x=Date, y=Ptot, group=Station))+ 
    geom_line()+ 
    facet_grid(Station~.)+ 
    scale_x_date(breaks = "year", labels=date_format("%Y-%m"))+ 
    xlab("Year")+ 
    ylab("Prec (mm)")+ 
    labs(colour = "Station")+ 
    theme(axis.text.x = element_text(angle = 45, hjust = 1))+ 
    theme_bw() 

plot 

ma non funziona.

Grazie!

Answer 1

Innanzitutto, è necessario creare la colonna Date come data. Poiché non ha il giorno previsto, è necessario aggiungere ad esempio 01 ad ogni data e convertirli.

data$Date<-as.Date(paste(data$Date,"-01",sep=""),format="%Y-%m-%d") 

Per ottenere il corretto posizionamento delle etichette in asse x è necessario impostare non solo angle=, ma anche per garantire che hjust=1 fine dell'etichetta è posto sotto il segno di spunta. Anche theme_bw() deve essere posizionato prima delle specifiche del tema dei testi degli assi.

ggplot(data=na.omit(data), aes(x=Date, y=Ptot, group=Station))+ 
    geom_line()+ 
    facet_grid(Station~.)+ 
    scale_x_date(breaks = "month", labels=date_format("%Y-%m"))+ 
    xlab("Year")+ 
    ylab("Prec (mm)")+theme_bw()+ 
    theme(axis.text.x = element_text(angle = 45, hjust = 1))