如何将Shiny的checkboxGroupInput选项按指定4列布局展示

方法一：用CSS快速实现（推荐） #

直接给原生checkboxGroupInput加自定义CSS样式，让选项自动分成4列，代码改动最小：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    # 自定义CSS样式
    tags$style(HTML("
      .four-column-checkboxes .checkbox-inline {
        width: 25%; /* 4列，每列占容器25%宽度 */
        box-sizing: border-box;
        padding: 0 10px; /* 可选：给每个选项加左右内边距，避免挤在一起 */
      }
      .four-column-checkboxes .checkbox-inline input {
        margin-right: 5px; /* 可选：调整复选框和文字的间距 */
      }
    ")),
    # 给checkboxGroupInput添加自定义类，并调整宽度为100%
    checkboxGroupInput("myGroup",
                       label = "",
                       width = "100%",
                       inline = TRUE,
                       choices = c(1,2,3,4,5,6,7,8),
                       selected = c(1,8),
                       class = "four-column-checkboxes"
    )
  )
)

server <- function(input, output) {}

shinyApp(ui, server)

原理：通过class = "four-column-checkboxes"给组件容器标记类，再用CSS设置每个横向排列的复选框占25%宽度，浏览器会自动把8个选项分成4列，每列2个。如果选项数量变化（比如9个），最后一列会自动适配。

方法二：手动拆分选项到多列（更灵活） #

如果需要对每列布局做更精细的控制（比如调整列宽、添加额外元素），可以用fluidRow和column手动拆分选项，再在server端合并选中值：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      # 第1列：放选项1、2
      column(width = 3,
             checkboxInput("chk1", "1", value = TRUE),
             checkboxInput("chk2", "2", value = FALSE)
      ),
      # 第2列：放选项3、4
      column(width = 3,
             checkboxInput("chk3", "3", value = FALSE),
             checkboxInput("chk4", "4", value = FALSE)
      ),
      # 第3列：放选项5、6
      column(width = 3,
             checkboxInput("chk5", "5", value = FALSE),
             checkboxInput("chk6", "6", value = FALSE)
      ),
      # 第4列：放选项7、8
      column(width = 3,
             checkboxInput("chk7", "7", value = FALSE),
             checkboxInput("chk8", "8", value = TRUE)
      )
    ),
    # 可选：展示合并后的选中值
    verbatimTextOutput("selectedItems")
  )
)

server <- function(input, output) {
  # 合并所有复选框的选中值，模拟原生checkboxGroupInput的输出
  combined_selection <- reactive({
    c(
      if(input$chk1) "1",
      if(input$chk2) "2",
      if(input$chk3) "3",
      if(input$chk4) "4",
      if(input$chk5) "5",
      if(input$chk6) "6",
      if(input$chk7) "7",
      if(input$chk8) "8"
    )
  })
  
  # 输出合并后的结果
  output$selectedItems <- renderPrint({
    combined_selection()
  })
}

shinyApp(ui, server)

原理：把每个选项拆成独立的checkboxInput，放到4个宽度为3的column里（Shiny的栅格系统总宽度是12，3*4=12刚好填满一行），再在server端用reactive合并选中的选项，得到和原生checkboxGroupInput一样的输出格式。

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