2017-02-10 32 views
2

У меня есть вопрос относительно chartSeries и addTA/points.default функции в R. Я пытаюсь добавить дополнительную диаграмму ниже chartSeries -площадь с точками в разных цветах (раскраска взята из функции и работает с points.default), но, к сожалению, я не могу добавить эти очки с addTA. Я могу добавить строку в существующие диаграммы (и не то, что я ищу). Функция points.default просто добавляет эти точки в chartSeries, что не то, что я ищу. Я ищу простую прямую линию точек, которую я могу покрасить по-разному с моим color_fct и который добавлен ниже моего chartSeries. Я ценю любую помощь и благодарю вас заранее!R chartSeries добавить дополнительную таблицу с точками

Пример кода:

getSymbols("YHOO") 
data <- YHOO 
chartSeries(data, type = c("auto", "candlesticks", "matchsticks","bars","line")) 
hero<-rep(1,length(data$Close)) 
c(data, xts(hero)) 
#addTA provides me with a straight line and the coloring fct is not working 
plot(addTA(data$hero,pch = 15,cex = 1.5, on = 2, col = color_fct)) 
#points.default provides me with perfect coloring, but the points are plotted in the middle of the chart 
help<- rep(1, length(data$Close)) 
points.default(x=(1:length(data$High)),y=help+1, col= color_fct,pch = 15,cex = 1.5) 

ответ

1

Если вы открыты, используя новые chart_Series вместо chartSeries:

x_ti <- xts(rnorm(NROW(data)), order.by = index(data)) 
x_ti2 <- xts(rep(1, NROW(data)), order.by = index(data)) 
x_ti2[1, ] <- 0.5 # work around to get an xts object with all the same values (of 1) to plot if points are not visible on the subplot 

chart_Series(data["2017"]) 
add_TA(x_ti, col = "purple", pch = 15, type = 'p', cex = .7) 
# plot straight line in subplot: 
add_TA(x_ti2, col = "orange", pch = 9, type = 'p', cex = .7) 

enter image description here

+0

К сожалению, я нашел ошибку. Я использую блестящий слайдер. Ползунок отлично работает на «chart_Series», но имеет проблему с прямой. Каждый раз, когда я масштабирую его, он фиксирует значения с левой стороны. Если я увеличиваю с правой стороны, значения с левой стороны остаются, в то время как «chart_Series» увеличивает масштаб с правой стороны. Есть ли опция, позволяющая масштабировать «zoom_chart» в ваш ответ? – Simon

+0

Насколько я понял ваш код, он добавляет отдельный график, независимо от chart_Series. Правильное ли это предположение? Есть ли способ подключить обе диаграммы? – Simon

+0

Вы можете нарисовать все элементы вместе с этим при использовании Shiny: 'chart_Series (данные [" 2017 "], TA = 'add_TA (x_ti, col =" фиолетовый ", pch = 15, type =" p ", cex = .7) add_TA (x_ti2, col = "orange", pch = 9, type = "p", cex = .7) ') ' – FXQuantTrader