是否存在可可视化展示ggplot散点形状的R Shiny输入函数？

你可以通过两种方式实现可视化的形状选择器，一种是利用现有包快速搭建，另一种是自定义更贴合需求的界面：

1. 用shinyWidgets快速实现下拉式可视化选择 #

借助shinyWidgets的pickerInput，结合HTML渲染形状图标，就能在下拉选项里直接展示ggplot的点形状：

首先安装依赖包：

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

完整示例代码：

ui <- fluidPage(
  pickerInput(
    inputId = "shape_choice",
    label = "选择点形状",
    # 绑定形状编号和对应的可视化标签
    choices = setNames(
      0:20, # 这里选0-20号常用形状，可按需调整范围
      sapply(0:20, function(x) ggplot2:::shape_symbol(x))
    ),
    # 让选项同时显示形状和编号
    choicesOpt = list(
      content = sapply(0:20, function(x) {
        sprintf('<span style="font-size:20px;">%s</span> 编号: %d', ggplot2:::shape_symbol(x), x)
      })
    )
  ),
  plotOutput("custom_plot")
)

server <- function(input, output) {
  output$custom_plot <- renderPlot({
    ggplot(mtcars, aes(wt, mpg)) +
      geom_point(shape = as.integer(input$shape_choice), size = 5)
  })
}

shinyApp(ui, server)

这段代码用ggplot2:::shape_symbol()把形状编号转成对应的符号，再通过HTML渲染到选择器选项中，用户能直观看到每个选项对应的形状样式。

2. 自定义网格状形状选择面板（进阶） #

如果想要更直观的点击式选择界面，可以自己构建一个网格面板，每个按钮对应一个形状：

library(shiny)
library(ggplot2)

ui <- fluidPage(
  div(
    id = "shape_grid",
    style = "display: grid; grid-template-columns: repeat(6, 1fr); gap: 12px; margin: 20px 0;",
    # 生成每个形状的按钮
    lapply(0:25, function(shape_id) {
      actionButton(
        inputId = paste0("shape_btn_", shape_id),
        label = sprintf('<span style="font-size:24px;">%s</span>', ggplot2:::shape_symbol(shape_id)),
        style = "padding: 10px; border: 2px solid #ddd;",
        onclick = sprintf("Shiny.setInputValue('selected_shape', %d, {priority: 'event'})", shape_id)
      )
    })
  ),
  verbatimTextOutput("shape_info"),
  plotOutput("result_plot")
)

server <- function(input, output, session) {
  # 高亮选中的形状按钮
  observeEvent(input$selected_shape, {
    lapply(0:25, function(shape_id) {
      toggleClass(
        paste0("shape_btn_", shape_id),
        class = "btn-primary",
        condition = shape_id == input$selected_shape
      )
    })
  })
  
  output$shape_info <- renderPrint({
    req(input$selected_shape)
    paste0("当前选中形状编号: ", input$selected_shape)
  })
  
  output$result_plot <- renderPlot({
    req(input$selected_shape)
    ggplot(mtcars, aes(wt, mpg)) +
      geom_point(shape = input$selected_shape, size = 5, color = "#2c3e50")
  })
}

shinyApp(ui, server)

这个方案会生成一个网格布局的形状面板，点击按钮后会高亮选中项，用户体验更直观。

注意事项 #

• ggplot的点形状编号范围是0-25，其中部分编号对应相同的形状样式（比如16和20都是实心圆），你可以根据需求筛选展示的编号。
• ggplot2:::shape_symbol()是ggplot的内部辅助函数，用于将形状编号转换为对应的字符符号，直接调用即可正常工作。

内容的提问来源于stack exchange，提问作者David Ross