如何为R Shiny动态生成的子图添加标题？

Got it, let's fix this! Adding titles to each generated subplot in your Shiny + Plotly app is straightforward—here's how to modify your code to make it work perfectly.

完整修改后的代码 #

We'll expand your existing code to generate plots with unique titles, then combine them neatly with subplot():

library(shiny)
library(ggplot2)
library(plotly)
library(grid)

shinyApp(
  ##### ui #######
  ui = fluidPage(
    fluidRow(
      sliderInput("n", "Number of plots", value = 1, min = 1, max = 5)
    ),
    fluidRow(
      plotlyOutput("plots")
    )
  ),
  ##### server ######
  server = function(input, output) {
    data("cars")
    # define max number of plots
    max_plots <- 5
    
    # generate the plots
    output$plots <- renderPlotly({
      # Initialize empty list to hold our plots
      plot_list <- list()
      
      # Loop to create each plot with a unique title
      for (i in 1:input$n) {
        # Create a ggplot with a custom title
        base_plot <- ggplot(cars, aes(x = speed, y = dist)) +
          geom_point(color = sample(colors(), 1)) + # Add unique color for each plot
          ggtitle(paste("Subplot", i, ": Speed vs. Stopping Distance"))
        
        # Convert to Plotly and refine title layout (prevents overlap)
        plot_list[[i]] <- ggplotly(base_plot) %>%
          layout(
            title = list(
              text = paste("Subplot", i, ": Speed vs. Stopping Distance"),
              font = list(size = 12),
              x = 0.5, # Center the title
              y = 0.98 # Position title near the top to avoid clipping
            )
          )
      }
      
      # Combine plots into a grid (2 per row for better layout)
      subplot(plot_list, nrows = ceiling(input$n/2), margin = 0.05) %>%
        layout(showlegend = FALSE) # Hide legend since colors are just for differentiation
    })
  }
)

Key Changes Explained #

• Unique Titles: We use a loop with i to generate a distinct title for each subplot (e.g., "Subplot 1: Speed vs. Stopping Distance").
• Title Layout: The layout() function for each Plotly plot adjusts the title's position and font size to prevent overlap with the plot content or other subplots.
• Clean Grid: subplot() organizes the plots into a responsive grid (2 per row by default here) with a small margin to keep things spaced out.
• Visual Differentiation: Adding a random color to each plot's points helps users tell subplots apart at a glance.

Alternative: Plotly Native Syntax #

If you prefer to skip ggplot and use Plotly's native functions, here's how to adjust the loop:

for (i in 1:input$n) {
  plot_list[[i]] <- plot_ly(
    cars, 
    x = ~speed, 
    y = ~dist, 
    type = "scatter", 
    mode = "markers",
    marker = list(color = sample(colors(), 1))
  ) %>%
    layout(
      title = list(
        text = paste("Subplot", i, ": Speed vs. Stopping Distance"),
        font = list(size = 12),
        x = 0.5
      ),
      xaxis = list(title = "Speed"),
      yaxis = list(title = "Stopping Distance")
    )
}

Either approach will give you properly titled subplots that update dynamically with your slider input.

内容的提问来源于stack exchange，提问作者Naive_Natural2511