Блог

Главная - Вопросы по программированию - Не удается вывести hichcharts для скрипта в исходном режиме R-Studio

Не удается вывести hichcharts для скрипта в исходном режиме R-Studio

#r #highcharts

#r #highcharts

Вопрос:

Я пытаюсь построить некоторые (интерактивные) графики highcharts для некоторых работ quantmod. Графики (на вкладке R-studio viewer) отлично работают, когда я их «запускаю». затем он запускается в интерактивном режиме в окне консоли, но ничего не показывает, когда я создаю исходную версию всей программы. Как я могу создать исходный код всего скрипта и получить все графики в окне просмотра? Как я могу сохранить графики (из сценария) в PDF-файл? Спасибо.

пример кода:

 library(quantmod)
library(highcharter)

SPY <- getSymbols("SPY", from = Sys.Date() - lubridate::years(3), auto.assign = FALSE)
SPY <- adjustOHLC(SPY)

SPY.EMA.20 <- EMA(Cl(SPY), n = 20)
SPY.EMA.50 <- EMA(Cl(SPY), n = 50)
SPY.RSI.14 <- RSI(Cl(SPY))
SPY.RSI.SellLevel <- xts(rep(70, NROW(SPY)), index(SPY))
SPY.RSI.BuyLevel <- xts(rep(30, NROW(SPY)), index(SPY))

AAPL <- getSymbols("AAPL", from = Sys.Date() - lubridate::years(3), auto.assign = FALSE)

highchart(type = "stock") %>%
  hc_add_series(AAPL,  name = "AAPL", color = hex_to_rgba("red", 0.7)) 


hchart(AAPL)

highchart(type = "stock") %>%
  hc_yAxis_multiples(
    create_yaxis(3, height = c(3, 1, 1), turnopposite = TRUE)
  ) %>%
  hc_add_series(SPY,         yAxis = 0, name = "SPY", color = hex_to_rgba("red", 0.7)) %>%
  hc_add_series(SPY.EMA.20,  yAxis = 0, name = "EMA 20") %>%
  hc_add_series(SPY.EMA.50, yAxis = 0, name = "EMA 50") %>%
  hc_add_series(SPY$SPY.Volume,    yAxis = 1, color = "gray", name = "Volume", type = "column", title = 'volume') %>%
  hc_subtitle(yAxis = 1, text = "Volume", align = "left", style = list(color = "#2b908f", fontWeight = "bold")) %>%
  hc_add_series(SPY.RSI.14,        yAxis = 2, name = "Osciallator", color = hex_to_rgba("green", 0.7)) %>%
  hc_add_series(SPY.RSI.SellLevel, yAxis = 2, color = hex_to_rgba("red", 0.7),  name = "Sell level") %>%
  hc_add_series(SPY.RSI.BuyLevel,  yAxis = 2, color = hex_to_rgba("blue", 0.7), name = "Buy level")

Комментарии:

1. Может быть, попробовать обернуть highchart в print ?

2. Большое спасибо. печать решила проблему. Я думаю, это цена того, чтобы быть новичком в R.

3. Не совсем интуитивно, так как base plot будет отображаться в исходном скрипте, но ggplot не будет без print команды. Вы также разобрались с частью сохранения?

4. Пока нет. Ценю любую помощь по этому поводу. Потратил весь день, пытаясь выяснить другие секреты highchart (например, цвета свечей, предотвращение объединения свечей highcharts в более длительные временные рамки, фиксированные линии вместо RSI.BuyLevel amp; RSI.SellLevel kludge и т.д.). Решил большую часть из них. еще не решены некоторые проблемы с метками на вертикальных осях, но решил пока смириться с этим. Спасибо.

5. @avys какая у вас проблема с метками? Возможно, я мог бы помочь вам с этим.