如何将文本添加到 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，在每个图的顶部，我希望能够插入一个标题，即 "Data 1" 在 plot1 和 [=17= 之上] 在 plot2 之上。有添加字幕的简便方法吗？我试过 textInput 但没有成功。想知道是否有更简单的方法？

Answer 1

您可以将 tagList 放入具有文字值的拆分容器中

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"))
)

如何将文本添加到 splitLayout

How to add text to splitLayout

visualization

r

shiny