基于用户输入shiny R的动态图像输出

install.packages("shiny")

library(shiny)

# 定义UI
ui <- fluidPage(
  titlePanel("动态正态分布图像"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("mean", "均值（μ）:", min = -5, max = 5, value = 0),
      sliderInput("sd", "标准差（σ）:", min = 0.1, max = 5, value = 1)
    ),
    mainPanel(
      plotOutput("normalPlot")
    )
  )
)

# 定义服务器逻辑
server <- function(input, output) {
  output$normalPlot <- renderPlot({
    x <- seq(-10, 10, length.out = 1000)
    y <- dnorm(x, mean = input$mean, sd = input$sd)
    plot(x, y, type = "l", xlab = "x", ylab = "概率密度", main = paste("正态分布 (μ =", input$mean, ", σ =", input$sd, ")"))
  })
}

# 运行应用程序
shinyApp(ui = ui, server = server)

shiny::runApp()