Code Editor for app.R

library(shiny)
library(bslib)

ui <- page_fluid(
  titlePanel("Plot with Information Popup"),
  
  fluidRow(
    column(8,
      card(
        card_header(
          "Scatter Plot Example",
          popover(
            bsicons::bs_icon("info-circle"), 
            title = "About this plot",
            "This scatter plot shows the relationship between car speed and stopping distance using the built-in cars dataset. Each point represents a car, with speed on the x-axis and stopping distance on the y-axis.",
            placement = "right"
          )
        ),
        plotOutput("scatterPlot")
      )
    )
  )
)

server <- function(input, output) {
  output$scatterPlot <- renderPlot({
    plot(cars$speed, cars$dist,
         xlab = "Speed (mph)",
         ylab = "Stopping Distance (ft)",
         main = "Car Speed vs. Stopping Distance",
         pch = 19,
         col = "steelblue")
  })
}

shinyApp(ui = ui, server = server)