r - 如何在 quantmod 图表中突出显示单个蜡烛？

Question

我找不到任何关于如何在 quantmod 图表中突出显示单个蜡烛的信息。这是一个示例代码:

library(quantmod)
getSymbols("AAPL", src="yahoo")
chart_Series(AAPL, subset="2007-01")
AAPL$show <- ifelse(as.Date(index(AAPL)) == as.Date("2007-01-09"), 1, 0)
add_TA(AAPL$show, col="red")

我想做的是在 2007-01-09 以某种方式突出显示该栏。它可以是不同的蜡烛颜色、围绕它的矩形或者可能是不同的背景颜色。有什么想法吗？

Answer 1

执行此操作的一种方法是更改​​主题颜色以匹配您要突出显示的点。在下面的代码中，我将上下颜色从单个名称更改为与数据长度相匹配的颜色矢量。为此，我使用了您的 AAPL$show 向量。我向 AAPL$show+1 向量添加“1”的原因是我想将 0,1 向量转换为 1,2。然后用于在 c("red","cyan") 之间进行选择。

library(quantmod)                                                              
getSymbols("AAPL", src="yahoo")                                                
AAPL$show <- ifelse(as.Date(index(AAPL)) == as.Date("2007-01-09"), 1, 0)       

myTheme <- chart_theme()                                                       
myTheme$col$dn.col <- c("red","cyan")[AAPL$show+1]                             
myTheme$col$up.col <- c("white","cyan")[AAPL$show+1]                           
chart_Series(AAPL, subset="2007-01",theme=myTheme)                             

add_TA(AAPL$show, col="red")