CODEWITHSUNDEEP
rshiny
S Novogoratz
S Novogoratz

Reputation: 378

Is there a way to add lines to a plot using renderPlot in Shiny

I'm trying to add a horizontal line to a plot within a renderPlot Shiny function. When I add the abline command for the horizontal line, the plot does not render and I see just a horizontal line.

If I remove the abline command, the plot works as expected. I've tried adding the parameter 'new = FALSE' to the abline command, with the same result. I see other examples in SO where it appears to work, but I cannot get it to function properly.

library(shiny)
library(quantmod)
library(TTR)

# UI
ui <- pageWithSidebar(

  # App title ----
  headerPanel("Test Plot with Lines"),

  # Sidebar panel for inputs ----
  sidebarPanel(
    textInput (inputId = "ticker",label = "Ticker Symbol",value="SPY")),

  # Main panel for displaying outputs ----
  mainPanel(
    plotOutput(outputId = "mainPlot")
  )
)

# Server logic
server <- function(input, output) {

  OHLCData <- reactive ({
    tickerData <- get(getSymbols(input$ticker))
    return (tickerData)
  })

  output$mainPlot <- renderPlot ({
    tickerData <- OHLCData()
    meanOpeningPrice <- mean(tickerData[,1])
    plot (tickerData[,1],main=paste(input$inputId,' Opening Price'))
    abline (h=meanOpeningPrice,col='red',new=FALSE)
  })
}

shinyApp(ui, server)

I expect to get a plot of the daily opening price with a red horizontal line at the mean price. Instead I get just a red horizontal line with no axes nor plot of the price.

Upvotes: 0

Views: 1740

Answers (1)

Ben
Ben

Reputation: 30474

How about using lines instead of abline:

tickerData$horizontal_line <- meanOpeningPrice
lines(tickerData[, "horizontal_line"], col = "red")

Seems to be a problem using abline with plot.xts:

How to plot simple vertical line with abline() in R?

https://github.com/joshuaulrich/xts/issues/47

Upvotes: 2

Related Questions