Изменить 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)