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，并且在每个图的顶部，我希望能够插入一个标题，即＆＃34;数据1＆＃34;在plot1和＆＃34;数据2＆＃34;之上;在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

1 个答案: