在shiny中格式化ggplot

library(shiny)
library(ggplot2)

ui <- fluidPage(
  titlePanel("在shiny中格式化ggplot"),
  sidebarLayout(
    sidebarPanel(
      # 在这里添加输入控件，用于调整ggplot的格式化参数
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

server <- function(input, output) {
  output$plot <- renderPlot({
    # 在这里根据输入控件的值，设置ggplot的格式化参数
    ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) +
      geom_point() +
      theme_bw()  # 设置ggplot的主题为黑白风格
  })
}

shinyApp(ui = ui, server = server)