chart_Series：如何格式化x軸以刪除年份？

Question

如何從x軸中刪除年份，以便它只顯示日期和月份？另外，是否有可能將x軸日期旋轉90度？

library(quantmod) 
getSymbols("SPY", from="2013-01-01", to=Sys.Date()) 
chart_Series(SPY,theme=myTheme) 

Answer 1

cspy <- chart_Series(SPY) 
cspy$Env$actions[[3]] 
#------------------ 
expression(axt <- axTicksByTime(xdata[xsubset], format.labels = format.labels), 
    axis(1, at = axt, labels = names(axt), las = 1, lwd.ticks = 1, 
     mgp = c(3, 1.5, 0), tcl = -0.4, cex.axis = 0.9)) 
attr(,"frame") 
[1] 1 
attr(,"clip") 
[1] TRUE 
attr(,"env") 
<environment: 0x11cddc148> 

您需要保存的屬性，使他們可以在放回去，你需要的format.labels更改爲新的規格，然後從AXT載體，而不是他們的價值使用的名稱。 las參數是基本圖形的旋轉指示符。見?par：

attrs <- attributes(cspy$Env$actions[[3]]) 
cspy$Env$actions[[3]] <- 
     expression(axt <- axTicksByTime(xdata[xsubset], format.labels = "%b %d"), 
     axis(1, at = axt, labels = names(axt), las = 2, lwd.ticks = 1, 
     mgp = c(3, 1.5, 0), tcl = -0.4, cex.axis = 0.9)) 
attributes(cspy$Env$actions[[3]]) <- attrs 
cspy 

Answer 2

可以使用

myTheme <- chart_theme() 
myTheme$format.labels <- '%b %d' 
chart_Series(SPY,theme=myTheme) 

這應該給你創建你的主題下面