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) 

这应该给你创建你的主题下面