R中的標籤x軸

Question

Month <- as.yearmon("2013-02") + 0:37/12 
plot(Month, H, type = "l", col="blue", ylim=c(5, 7), ylab="") 
lines(Month,Z, type = "l", col = "red", ylim=c(5, 7)) 
legend("topright",legend=c(expression(Forcasted), expression(Acutal), 
    col = c('blue', 'red'), 
    lty = 1:1) 

我的數據從2013年2月開始到2016年3月。我只想在「x軸」上顯示從2013年2月開始到2016年3月結束的月份和年份。我嘗試了很多東西，但都沒有工作。

Answer 1

df = ts(rnorm(50), frequency = 12, start = 2001) 
plot(df, xaxt = "n") 
tsp = attributes(df)$tsp 
dates = seq(as.Date("2015-01-01"), by = "month", along = df) 
axis(1, at = seq(tsp[1], tsp[2], along = df), labels = format(dates, "%m-%Y")) 

或

> df = data.frame(date = seq(as.POSIXct("2014-01-01"), by = "month", length.out = 50), pcp = rnorm(50)) 
    > library(ggplot2) 
    > library(scales) 
    > p = ggplot(data = df, aes(x = date, y = pcp)) + geom_line() 
    > p + scale_x_datetime(labels = date_format("%m-%Y"), breaks = date_breaks("months")) + theme(axis.text.x = element_text(angle = 90))