如何在Shiny应用不同标签页展示不同data.frame的表格与图表？

你的核心问题是重复使用了相同的outputID，Shiny中每个输出组件的ID必须唯一，后定义的render会覆盖前一个，导致只有最后一个标签的内容能显示。解决方法是给每个标签页的表格和图表分配独立的ID，再在server端分别对应渲染。

修改后的完整代码如下：

library(tidyverse)
library(shiny)

df1 <- mpg 
df2 <- iris

ui <- fluidPage(
  tabsetPanel(
    tabPanel("MPG", 
             dataTableOutput("mpg_table"),  # 唯一ID：mpg_table
             plotOutput("mpg_plot", width = "400px")  # 唯一ID：mpg_plot
    ), 
    tabPanel("IRIS", 
             dataTableOutput("iris_table"),  # 唯一ID：iris_table
             plotOutput("iris_plot", width = "400px")  # 唯一ID：iris_plot
    )
  )
)

server <- function(input, output, session) {
  # 渲染MPG标签页的表格和图表
  output$mpg_table <- renderDataTable(df1, options = list(pageLength = 5))
  output$mpg_plot <- renderPlot(ggplot(df1) +
                                  geom_bar(aes(x=manufacturer)) +
                                  theme_bw())
  
  # 渲染IRIS标签页的表格和图表
  output$iris_table <- renderDataTable(df2, options = list(pageLength = 5))
  output$iris_plot <- renderPlot(ggplot(df2) +
                                  geom_bar(aes(x=Species)) +
                                  theme_bw())
}

shinyApp(ui, server)

关键修改点： #

• UI中：为每个标签页的dataTableOutput和plotOutput设置唯一ID（比如mpg_table/mpg_plot、iris_table/iris_plot），避免ID冲突。
• Server中：针对每个唯一ID，分别编写对应的renderDataTable和renderPlot函数，绑定对应的数据集（df1对应MPG，df2对应IRIS）。

这样两个标签页就能各自独立展示对应的数据表格和图表，不会出现内容被覆盖的问题。

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