13

我想在某个图表上的几个日期添加垂直线。到目前为止，我还没有设法完成这个简单的任务。这是我尝试过的：

> s <- get(getSymbols('nvmi'))["2012::"]
> d1 <- index(s[100])
> d1
[1] "2012-05-24"

> chart_Series(s,TA="addLines(v=d1)")
Error in get.current.chob() : improperly set or missing graphics device

> chart_Series(s)
> abline(v=d1) 
# nothing

> add_TA("addLines(v=d1")
Error in `[.data.frame`(lenv$xdata, Env$xsubset) : 
  undefined columns selected

从我已经在这里阅读的内容来看，我知道这abline不应该与新chart_Series功能一起使用。无论如何，它似乎不起作用。该功能在我尝试过的 任何addLines形式中都不起作用 - 普通addLines、plot(addLines(...))或.chart_Series(..., TA="addLines(...)")add_TA("addLines(...)")

我需要使用 quantmod 的实验版本，因为它解决了我在旧版本中遇到的其他问题。d1最终将是一个日期列表。

4

2 回答 2

16

您不能混合使用新旧版本的 quantmod 图表函数。如果你想使用addLines，你必须使用chartSeries。即使您使用addLinesand chartSeries，d1也应该是 xts 对象，而不是 datetime 对象。例如：

library(quantmod)
data(sample_matrix)
s <- as.xts(sample_matrix)
chartSeries(s,TA="addLines(v=s[100])")

quantmod::chartSeries

如果要使用添加垂直线chart_Series，请创建一个逻辑 xts 对象，TRUE其中包含您希望线条出现的位置，FALSE否则。例如：

l <- xts(!as.logical(s[,1]),index(s))
l[100] <- TRUE
chart_Series(s,TA="add_TA(l,on=1)")

quantmod::chart_Series

另请注意，您可以通过on=-1在add_TA调用中使用将垂直线放在图表“后面”：

chart_Series(s,TA="add_TA(l,on=-1,col='grey',border='grey')")
于 2013-03-13T12:16:01.277 回答
0

添加水平线我的例子：

library(quantmod)
library(lubridate)

stockId<-"CVS"
showperiod<-6   # 6 months

stockData<-getSymbols(stockId, src="yahoo",auto.assign=FALSE)

startDate<-Sys.Date()-months(showperiod,abbreviate = FALSE)
fromDate<-paste0(year(startDate),month(startDate))

subset<-paste0(fromDate,"/")

mytheme <- chart_theme() 
mytheme$col$dn.col  <- "firebrick1" 
mytheme$col$up.col  <- "darkgreen"
chart_Series(stockData, name = stockId, subset = subset, theme = mytheme)

#if you add line at 2018-6-18 to 2018-07-16 & y(price)=72
#you need creat new data to plot
#
ntick<-nrow(stockData["20180618/20180716"]) #2018-6-18 to 2018-07-16 tick numbers
getDate<-index(stockData["20180618/20180716"])
y<-rep(72,ntick)
df<-data.frame(getDate,y)
linedata<-xts(df$y,order.by = df$getDate)
# add line
add_TA(linedata,on=-1,col="blue",lwd=2)

在此处输入图像描述

于 2018-10-18T04:42:27.257 回答