दिनांक प्रारूप में अक्षरों के लेबल घूर्णन

Question

क्या किसी को पता है कि ggplot2 के साथ दिनांक प्रारूप में अक्ष टिक्स को घुमाने के लिए कैसे? मैं एक्स अक्ष पर 45 डिग्री कोण के साथ "तिथि-महीना" (उदा। "1985-5") के साथ लेबल प्राप्त करना चाहता हूं।

डेटा नमूना:

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 

मैं इस कोशिश की:

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 

लेकिन यह काम नहीं करता।

धन्यवाद!

Answer 1

सबसे पहले, आपको तिथि के अनुसार कॉलम Date बनाना चाहिए। चूंकि यह दिन उपलब्ध नहीं है, आपको प्रत्येक तारीख को उदाहरण 01 के लिए जोड़ना चाहिए और उन्हें रूपांतरित करना चाहिए।

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

एक्स के तहत लेबल का सही स्थान प्राप्त करने के लिए अक्ष तुम सिर्फ angle= लेकिन यह भी hjust=1 लेबल के उस छोर टिक मार्क नीचे रखा जाता है सुनिश्चित करने के लिए नहीं स्थापित करना चाहिए। अक्ष पाठों के थीम विनिर्देशन से पहले theme_bw() भी रखा जाना चाहिए।

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