如何將文本添加到splitLayout

Question

server <- function(input, output) { 
    output$plot1 <- renderPlot(plot(cars, main = "Cars")) 
    output$plot2 <- renderPlot(plot(pressure, main = "Pressure")) 
    output$plot3 <- renderPlot(plot(AirPassengers)) 
} 

# Equal sizing 
ui <- splitLayout(
    plotOutput("plot1"), 
    plotOutput("plot2") 
) 
shinyApp(ui, server) 

在這裏，我有2個地塊一splitLayout，並在每個小區的頂部，我希望能夠對plot1和「數據頂部插入一個標題，即「數據1」 2「在plot2之上。有沒有簡單的方法來添加字幕？我試過textInput，但沒有成功。想知道是否有更簡單的方法？

Answer 1

你可以把分割容器內標記表與文字值

ui <- splitLayout(
    tagList(tags$p("plot 1"), plotOutput("plot1")), 
    tagList(tags$p("plot 2"), plotOutput("plot2")) 
) 

，或者你可以添加textOuputs

ui <- splitLayout(
    tagList(textOuput("plot1label"), plotOutput("plot1")), 
    tagList(textOuput("plot2label"), plotOutput("plot2")) 
)