在Shiny tabBox中居中显示图形

可以通过以下步骤实现：

首先，在Shiny应用程序的UI部分创建一个tabBox，并将其设置为居中显示。可以使用fluidRow()和column()函数来实现这一点。示例代码如下：

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(width = 6, offset = 3,
           tabBox(
             id = "myTabBox",
             width = 12,
             tabPanel("Tab 1", "Content for Tab 1"),
             tabPanel("Tab 2", "Content for Tab 2")
           )
    )
  )
)

server <- function(input, output) {
  # 服务器逻辑
}

shinyApp(ui = ui, server = server)

在上述代码中，column()函数的width参数设置为6，表示占据整个页面宽度的一半，offset参数设置为3，表示在水平方向上向右偏移3个单位，从而实现居中显示。

接下来，将要在tabBox中居中显示的图形添加到相应的tabPanel中。可以使用Shiny的图形输出函数（如plotOutput()）来显示图形。示例代码如下：

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(width = 6, offset = 3,
           tabBox(
             id = "myTabBox",
             width = 12,
             tabPanel("Tab 1", 
                      plotOutput("plot1")  # 在Tab 1中显示图形
             ),
             tabPanel("Tab 2", "Content for Tab 2")
           )
    )
  )
)

server <- function(input, output) {
  # 服务器逻辑
  
  output$plot1 <- renderPlot({
    # 生成要显示的图形
    plot(1:10, 1:10, type = "l", main = "Centered Plot")
  })
}

shinyApp(ui = ui, server = server)

在上述代码中，plotOutput("plot1")将图形输出到名为"plot1"的输出对象中。在服务器逻辑中，使用renderPlot()函数生成要显示的图形。

这样，当运行Shiny应用程序时，图形将在tabBox的Tab 1中居中显示。

注意：上述代码中的示例图形仅供参考，您可以根据自己的需求生成和显示任何类型的图形。