R - Как изменить формат даты при создании объекта xts & zoo?

Question

Мне интересно, как я могу изменить формат даты.

Код я работаю на следующий:

library(quantmod) 
getSymbols("AAPL") 
price_AAPL <- AAPL[,6] 
plot(price_AAPL, main = "The price of AAPL") 

Это приводит

Я хочу изменить формат даты

"%m %d %Y" 

, как показано на рисунке до

"%b-%d-%Y" 

Так что я попытался следующим после поиска некоторых советов:

plot(price_AAPL, main = "The price of AAPL", xaxt="n") 
axis.Date(1, 
      at=seq(head(index(price_AAPL),1), 
       tail(index(price_AAPL),1), length.out=5), 
      format="%b-%d-%Y", las=2) 

Но это не помогает, и даже не показывает какие-либо маркировки на оси х. Я полагаю, что я мог бы что-то сделать с «axis.Date()».

Может кто-нибудь мне помочь?

Answer 1

С xts вы можете напрямую использовать major.format.

plot(price_AAPL, main = "The price of AAPL",major.format="%b-%d-%Y") 

Однако, вы должны знать, что zoo участки, как правило, более гибким.

plot.zoo(price_AAPL, main = "The price of AAPL", xaxt="n", xlab="") 
axis.Date(1,at=pretty(index(price_AAPL)), 
      labels=format(pretty(index(price_AAPL)),format="%b-%d-%Y"), 
      las=2, cex.axis=0.7)