在使用 quantmod 创建的 Shiny 图表中添加符号和标签

问题描述

我想将 (a) 符号和 (b) 标签添加到在 Shiny 中使用 quantmod 创建的带有财务数据的图表中。我将描述哪些有效，哪些无效。

以下代码可以添加符号，但它不在 Shiny 中。

library(quantmod)

getSymbols("AAPL",from='2007-07-01',to='2009-09-01')
chartSeries(AAPL,subset='2007-05-01::2009-09-01',theme=chartTheme('white'))
MACD2plot_plus  = which(diff(sign(MACD(Cl(AAPL))[,1])) > 0)
MACD2plot_minus = which(diff(sign(MACD(Cl(AAPL))[,1])) < 0)
range_y         = 0.5
addPoints(MACD2plot_plus,AAPL[MACD2plot_plus,4] - range_y,pch=24,col='blue',offset=1.0)
addPoints(MACD2plot_minus,AAPL[MACD2plot_minus,4] + range_y,pch=25,col='red',offset=1.0)
addSMA(n=12,on=1,col = "blue")
addSMA(n=26,col = "red")

Shiny 中的相同内容，但不会产生相同的情节。（部分基于 xtsible object,looping in quantmod）

library(shiny)
library(quantmod)

ui <- fluidPage(
  textInput("tinput","Ticker",value = "AAPL"),br(),plotOutput("qm_plot")
)
server <- function(input,output,session) {
  
  output$qm_plot <- renderPlot({
    stocks = input$tinput
    stockEnv <- new.env()
    
    getSymbols(input$tinput,to='2009-09-01',env=stockEnv)
    
    stock = ls(stockEnv)
    chartSeries(stockEnv[[ls(stockEnv)]],name = input$tinput,theme=chartTheme('white'))
    MACD2plot_plus   = which(diff(sign(MACD(Cl(stockEnv[[stock]]))[,1])) > 0)
    MACD2plot_minus  = which(diff(sign(MACD(Cl(stockEnv[[stock]]))[,1])) < 0)
    range_y          = 0.5
    addPoints(MACD2plot_plus,stockEnv[[stock]][MACD2plot_plus,offset=1.0)
    addPoints(MACD2plot_minus,stockEnv[[stock]][MACD2plot_minus,offset=1.0)
    addSMA(n=12,col = "blue")
    addSMA(n=26,col = "red")
  })
}
shinyApp(ui,server)

问题

是否可以在 Shiny 中执行与非 Shiny 实现中所示相同类型的图表？
假设第 (1) 点已解决，是否可以在 Shiny 的图表中添加标签（例如“买入”或“卖出”）以替换三角形？

谢谢

注意：addTA 没有添加积分的程序：https://rdrr.io/cran/quantmod/src/R/addTA.R

解决方法

这是问题 1 的答案：

将 addPoints 和 addSMA 函数包裹在 print 中以便反映在图表上。

library(shiny)
library(quantmod)

ui <- fluidPage(
  textInput("tinput","Ticker",value = "AAPL"),br(),plotOutput("qm_plot")
)
server <- function(input,output,session) {
  
  output$qm_plot <- renderPlot({
    stocks = input$tinput
    stockEnv <- new.env()
    
    getSymbols(input$tinput,from='2007-07-01',to='2009-09-01',env=stockEnv)
    
    stock = ls(stockEnv)
    chartSeries(stockEnv[[ls(stockEnv)]],subset='2007-05-01::2009-09-01',name = input$tinput,theme=chartTheme('white'))
    MACD2plot_plus   = which(diff(sign(MACD(Cl(stockEnv[[stock]]))[,1])) > 0)
    MACD2plot_minus  = which(diff(sign(MACD(Cl(stockEnv[[stock]]))[,1])) < 0)
    range_y          = 0.5
    print(addPoints(MACD2plot_plus,stockEnv[[stock]][MACD2plot_plus,4] - range_y,pch=24,col='blue',offset=1.0))
    print(addPoints(MACD2plot_minus,stockEnv[[stock]][MACD2plot_minus,4] + range_y,pch=25,col='red',offset=1.0))
    print(addSMA(n=12,on=1,col = "blue"))
    print(addSMA(n=26,col = "red"))
  })
}
shinyApp(ui,server)

quantmod r r shiny