使用Shiny和ggplot2在单个图形上绘制多条线

install.packages("shiny")
install.packages("ggplot2")

library(shiny)

ui <- fluidPage(
  titlePanel("绘制多条线"),
  sidebarLayout(
    sidebarPanel(
      # 在这里添加任何输入控件
    ),
    mainPanel(
      plotOutput("plot")  # 在这里显示绘图结果
    )
  )
)

server <- function(input, output) {
  output$plot <- renderPlot({
    # 在这里编写绘图代码
  })
}

shinyApp(ui = ui, server = server)

output$plot <- renderPlot({
  library(ggplot2)
  
  # 创建一个数据框，包含x和y值
  data <- data.frame(
    x = c(1, 2, 3, 4, 5),
    y1 = c(1, 2, 3, 4, 5),
    y2 = c(2, 4, 6, 8, 10),
    y3 = c(3, 6, 9, 12, 15)
  )
  
  # 使用ggplot2创建图形，并使用geom_line函数绘制多条线
  ggplot(data, aes(x = x)) +
    geom_line(aes(y = y1), color = "red") +
    geom_line(aes(y = y2), color = "blue") +
    geom_line(aes(y = y3), color = "green") +
    labs(x = "X轴", y = "Y轴", title = "多条线图")
})

shinyApp(ui = ui, server = server)