R quantmod addTA 函数改变颜色答案

【问题标题】：R quantmod addTA function change colorR quantmod addTA 函数改变颜色
【发布时间】：2017-11-27 16:02:21
【问题描述】：

首先，我使用 TTR 包中的 stoch 函数来计算慢随机变量，然后使用 addTA 函数将其添加到 chartSeries 函数的绘图中，但是，绘图中的这两条线是黑色的，我想更改它们变成不同的颜色。

Input:

chartSeries(df, subset='last 3 years', TA = NULL, theme = "white", up.col = "green", dn.col = "red")

slow.stoc <- stoch(na.omit(HLC(df)), 25, 25, 9, 'SMA')[,2:3]

addTA(slow.stoc)

我尝试使用：

 lines(slow.stoc[2], col="red", lty="solid")

 addLines(slow.stoc[2], col = "red")

但两者都不起作用。请指教。谢谢。

【问题讨论】：

标签： r plot xts quantmod stock

【解决方案1】：

试试这个：

   chartSeries(df, subset='last 3 years', TA = NULL, theme = "white", up.col = "green", dn.col = "red")
    slow.stoc <- stoch(na.omit(HLC(df)), 25, 25, 9, 'SMA')[,2:3]
    addTA(slow.stoc, col = c("red", "green"))

或者，我建议使用增强的chart_Series 代替：

library(quantmod)

# optional, set up bar colours as in your question, for chart_Series:
getSymbols("GOOG")
myTheme<-chart_theme()
myTheme$col$up.col<-'darkgreen'
myTheme$col$dn.col<-'darkred'
myTheme$col$dn.border <- 'black'
myTheme$col$up.border <- 'black'
myTheme$rylab <- FALSE
myTheme$col$grid <- "lightgrey"

# get your desired result
df <- GOOG
slow.stoc <- stoch(na.omit(HLC(df)), 25, 25, 9, 'SMA')[,2:3]
chart_Series(df, subset='2017', theme = myTheme)
add_TA(slow.stoc["2017", 1], col = "purple", lty = "dashed")
add_TA(slow.stoc["2017", 2], col = "red", lty = 3, on = 2)

【讨论】：

如果有某种方法可以将绘图参数直接传递给chart_Series()，而不是先创建主题对象（myTheme <- chart_theme()），然后再对其进行修改，那就太好了。
@algoquant 我个人只是制作了一个包装函数，将我的chart_theme() 对象传回，并将其作为“单个”参数传递给chart_Series。例如chart_Series(df, ......, theme = myThemeFun())。 myThemeFun 在包中的某处定义，并返回图表主题对象，并可随时使用所需的配置，因此每次我使用它们时都不必重新编程。
是的，在这种情况下添加包装器是一个很好的解决方案，尽管它在 R 中添加了更多的函数调用，这使其速度变慢了一些。但是，如果您没有执行多次调用 plot 的循环，那么没关系。