如何根据用户输入在R中渲染不同的绘图输出类型？

# 定义一个函数，根据用户输入渲染不同的绘图输出类型
render_plot <- function(input_type) {
  if (input_type == "bar") {
    # 绘制柱状图
    barplot(c(1, 2, 3), main = "Bar Plot")
  } else if (input_type == "line") {
    # 绘制折线图
    plot(c(1, 2, 3), type = "l", main = "Line Plot")
  } else if (input_type == "scatter") {
    # 绘制散点图
    plot(c(1, 2, 3), c(2, 3, 1), main = "Scatter Plot")
  } else {
    # 用户输入无效
    print("Invalid input type!")
  }
}

# 调用函数并传入用户输入的绘图输出类型
input_type <- readline("请输入绘图输出类型（bar/line/scatter）：")
render_plot(input_type)