R Shiny布局适配问题：12列布局未占满屏幕求解

你的布局问题根源在于**column(8)内部嵌套了mainPanel**：Shiny的mainPanel默认自带内边距与最大宽度限制，即便你设置了8列宽度，它也无法撑满所在column的全部空间，直接导致右侧出现空白区域。

修复方案 #

1. 移除所有column(8)内部的mainPanel调用，直接将绘图、表格等输出元素放在column(8)中
2. 用fluidRow包裹每一组column，确保栅格系统正确占满容器宽度

修改后的完整代码 #

library(shiny)
library(tidyverse)
library(rsconnect)
install.packages("DT")
library(DT)

#####Import Data
dat <- read_csv(url("https://www.dropbox.com/s/uhfstf6g36ghxwp/cces_sample_coursera.csv?raw=1"))
dat <- dat %>% select(c("pid7","ideo5","CC18_308a", "gender","educ", "newsint","region"))
dat <- drop_na(dat)

ui <- navbarPage("My Application",
                 
                 tabPanel("Page 1",
                          fluidRow(
                            column(4,
                                   sliderInput(
                                     inputId="points",
                                     label="Select",
                                     min=1,
                                     max=5,
                                     value=2)
                            ),
                            column(8,
                                   tabsetPanel(
                                     tabPanel("Tab1", plotOutput("plot1")),
                                     tabPanel("Tab2", plotOutput("plot2"))
                                   )
                            )
                          )
                 ),
                 
                 tabPanel("Page 2",
                          fluidRow(
                            column(4,
                                   checkboxGroupInput(
                                     inputId="checkGroup",
                                     label="Gender",
                                     choices = c(1,2), 
                                     selected = NULL)
                            ),
                            column(8,
                                   plotOutput("data")
                            )
                          )
                 ),
                 
                 tabPanel("Page 3",
                          fluidRow(
                            column(4,
                                   selectInput(
                                     inputId = "variable",
                                     label="Select Region",
                                     choices = c("1", "2", "3", "4")
                                   )
                            ),
                            column(8,
                                   dataTableOutput(outputId = "table2")
                            )
                          )
                 )
)

server<-function(input,output){
  
  output$plot1 <- renderPlot({
    ggplot(
      filter(dat, ideo5==input$points),
      aes(x=pid7)) +
      geom_bar()
  })
  
  output$plot2 <- renderPlot({
    ggplot(
      filter(dat, ideo5==input$points),
      aes(x=CC18_308a)) +
      geom_bar() +
      xlab("Trump Support")
  })  
  
  output$data <- renderPlot({
    ggplot(
      filter(dat, gender %in% input$checkGroup),
      aes(x=educ, y=pid7)) +
      geom_jitter() +
      geom_smooth(method = lm)
  })
  
  output$table2 <- renderDataTable({
    filter(dat,region == input$variable) %>% 
      datatable(pageLength = 10)
  })
}
shinyApp(ui,server)

额外优化说明 #

• 修复了renderDataTable中的代码顺序：原代码先调用datatable再过滤数据，会导致过滤不生效，修改为先过滤再传入datatable
• 用fluidRow包裹column组，符合Shiny栅格系统的规范，确保布局自适应容器宽度

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