以月份年格式在x軸蜱中繪製時間序列圖R

Question

我無法獲得x軸以格式顯示刻度爲'Jan-99'.....

Ny數據如下：這裏需要

head(rates,10) 
    Month Repo_Rate 
1 Apr-01  9.00 
2 May-01  8.75 
3 Jun-01  8.50 
4 Jul-01  8.50 
5 Aug-01  8.50 
6 Sep-01  8.50 
7 Oct-01  8.50 
8 Nov-01  8.50 
9 Dec-01  8.50 
10 Jan-02  8.50 

sapply(rates,class) 
     Month Repo_Rate 
"character" "numeric" 

如果我轉換「月」山坳R中的日期格式，我仍然沒有得到x軸按規定格式「APR-01」蜱.....

幫助...

Answer 1

嘗試

library(xts) 

xt1 <- xts(rates$Repo_Rate, order.by = as.yearmon(rates$Month, '%b-%y')) 
plot(xt1) 

---

或者使用zoo

library(zoo) 

z1 <- with(rates, zoo(Repo_Rate, order.by= as.yearmon(Month, '%b-%y'))) 
plot(z1, xaxt = 'n') 
tt <- time(z1)[seq(1, length(z1), by = 2)] 
axis(1, tt, format(tt, '%b-%y'), las = 1) 

或

library(zoo) 
library(ggplot2) 

fmt <- "%b-%y" 
z <- read.zoo(rates, FUN = as.yearmon, format = fmt) 
autoplot(z) + scale_x_yearmon(format = fmt)