我可以在不使用Shiny或Plotly的情况下，在R中用下拉菜单制作线状图吗？

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  pickerInput(
    inputId = "selected_var",
    label = "选择变量：",
    choices = c("变量1", "变量2", "变量3"),
    multiple = FALSE
  ),
  plotOutput("line_plot")
)

server <- function(input, output) {
  output$line_plot <- renderPlot({
    # 根据用户选择的变量绘制线状图
    selected_var <- input$selected_var
    # 在这里根据选定的变量进行数据处理和绘图
    # ...
  })
}

shinyApp(ui, server)

library(ggplot2)

# 假设有一个数据框df，包含了需要绘制线状图的数据
df <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(10, 20, 15, 25, 30)
)

# 创建线状图
ggplot(data = df, aes(x = x, y = y)) +
  geom_line()