如何在有光泽的tabsetpanel和graph之间创建间距？

Question

我使用tabsetpanel()函数为两个不同的图创建标签。但是，我遇到的问题是图表的标题非常接近标签，并且没有任何间距。它看起来像是被挤压在一起，所以我想知道如何在标签面板和图形之间创建间距？我左侧有一个闪亮的小部件，正在控制右侧的图形。以下是我的代码示例：

tabPanel("Name",
   sidebarLayout(
     sidebarPanel(
       selectInput(
         <shiny widget coding is here>
       )
     ),
     mainPanel(
       tabsetPanel(
         tabPanel("graphname", plotlyOutput("graph1")),
         tabPanel("graphname2", plotlyOutput("graph2"))
       )
     )
   )
)

因此，您可以看到tabsetPanel，然后是包含图表的tabpanel。但是图形和tabsetpanel栏之间没有间距，如下所示：

我该如何解决这个问题？

Answer 1

将图表放在fluidRow中，如果这没有帮助的话。将style = "padding-top:20px"作为参数添加到fluidRow。

Answer 2

tabPanel("graphname", br(), plotlyOutput("graph1"))

Answer 3

快速而肮脏，在情节之前使用br()。 br()是HTML-Linebreak：

library(shiny)    
library(plotly)
runApp(list(
  ui = fluidPage(tabPanel("Name",
                sidebarLayout(
                  sidebarPanel(

                  ),
                  mainPanel(
                    tabsetPanel(
                      tabPanel("graphname", br(), plotlyOutput("graph1")),
                      tabPanel("graphname2",  plotlyOutput("graph2"))
                    )
                  )
                )
  )),
  server = function(input, output) {
    output$graph1 <- renderPlotly({
      plot_ly(mtcars)%>% layout(title = "With Space")
    })

    output$graph2 <- renderPlotly({
      plot_ly(mtcars)%>% layout(title = "Without Space")
    })

  }
))