修改chart_Series主题

Question

我试图更改使用theme参数条的颜色，但我得到一个错误：

library(quantmod) 
getSymbols("SPY", from=Sys.Date()-500, to=Sys.Date()) 
chart_Series(SPY) 
chart_Series(SPY,theme=chart_theme(dn.col = "cyan")) 
# Error in chart_theme(dn.col = "cyan") : unused argument (dn.col = "cyan") 

Answer 1

看看代码。 chart_theme没有参数，所以尝试chart_theme(dn.col="cyan")是没有意义的。

> args(chart_theme) 
function() 
NULL 

chart_theme()返回一个列表，你想修改它的一部分，所以就这样做。

myTheme <- chart_theme() 
myTheme$col$dn.col <- "cyan" 
chart_Series(SPY,theme=myTheme)