nhãn xoay ở định dạng ngày

Question

có ai biết cách xoay các dấu trục ở định dạng ngày với ggplot2 không? Tôi muốn nhận nhãn với "Ngày tháng" (ví dụ: "1985-5") với góc 45 ° trên trục x.

mẫu dữ liệu:

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 

Tôi cố gắng này:

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 

nhưng nó không hoạt động.

Cảm ơn!

Answer 1

Trước tiên, bạn nên tạo cột Date làm ngày. Vì nó không có ngày được cung cấp, bạn nên thêm ví dụ 01 vào mỗi ngày và chuyển đổi chúng.

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

Để có được vị trí chính xác của nhãn dưới trục x bạn nên thiết lập không chỉ angle= mà còn hjust=1 để đảm bảo rằng kết thúc của nhãn được đặt dưới dấu tick. Ngoài ra theme_bw() nên được đặt trước khi đặc tả chủ đề của văn bản trục.

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