R 面板以闪亮的颜色对齐

伙计们，我使用了shiny提供的可执行代码并添加了另一个面板。如何将第二个面板放在第一个面板下？可能吗？？？多谢各位

library(shiny)

ui <- fluidPage(


    titlePanel("Old Faithful Geyser Data"),

    sidebarLayout(
        sidebarPanel(
            sliderInput("bins",
                        "Number of bins:",
                        min = 1,
                        max = 50,
                        value = 30)
        ),

        sidebarLayout(
            sidebarPanel(
                sliderInput("bins",
                            "Number of bins:",
                            min = 1,
                            max = 20,
                            value = 30),
            ),
        mainPanel(
           plotOutput("distPlot")
        )
    )
))

server <- function(input, output) {

    output$distPlot <- renderPlot({
        # generate bins based on input$bins from ui.R
        x    <- faithful[, 2]
        bins <- seq(min(x), max(x), length.out = input$bins + 1)

        # draw the histogram with the specified number of bins
        hist(x, breaks = bins, col = 'darkgray', border = 'white')
    })
}

# Run the application 
shinyApp(ui = ui, server = server)

库（闪亮）
ui您不需要额外的
sidebarLayout
和
sidebarPanel
。您可以将第二个滑块放在第一个滑块的下方<代码>标记$hr（）

如果需要，这里可以直观地将它们分开

  sidebarLayout(
    sidebarPanel(
      sliderInput("bins",
                  "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30),
      tags$hr(),
      sliderInput("bins",
                  "Number of bins:",
                  min = 1,
                  max = 20,
                  value = 30)
    )

---

谢谢诺维卡的回答。还有一件事，比如在标记$hr（）下面插入文本。例如，我想说：“这是第二个版本）@Jose yes你可以做到。请参阅此处的标签词汇表：