R语言中为Plotly图形添加图例的技术求助（含两种应用场景）

Got it, let's tackle your problem step by step. The original code uses a single trace with multiple symbols, but Plotly won't automatically create legend entries for each symbol-text pair in that setup. Here's how to implement the legend for both scenarios you mentioned:

Scenario i: Legend placed alongside the plot #

To make the legend clearly map each marker to its corresponding text annotation, we'll split each point into its own trace. This way, each trace gets a dedicated legend entry showing the text label and matching symbol.

library(plotly)

# Organize your data into a data frame for easier iteration
df <- data.frame(
  x = 1:3,
  y = 1:3,
  symbol = 0:2,
  text_label = c("one", "two", "three")
)

# Initialize the plot
p <- plot_ly()

# Add a separate trace for each point to create individual legend entries
for (row in 1:nrow(df)) {
  p <- p %>%
    add_trace(
      type = "scatter",
      mode = "markers+text",
      x = df$x[row],
      y = df$y[row],
      symbol = df$symbol[row],
      symbols = df$symbol[row],
      size = 5,
      text = df$text_label[row],
      textfont = list(size = 8),
      textposition = 'bottom center',
      name = df$text_label[row],  # This sets the legend display text
      marker = list(line = list(width = 1.5))
    )
}

# Adjust legend position to sit alongside the plot (right side here)
p <- p %>% 
  layout(
    legend = list(
      orientation = "v",  # Vertical layout
      x = 1.05,  # Position just outside the plot area
      y = 0.5,
      font = list(size = 10)
    )
  )

p

How this works: #

• Splitting into individual traces ensures each symbol-text pair gets its own legend entry.
• The name parameter directly uses your text annotation as the legend label, so users can instantly connect the marker to its meaning.
• The legend is positioned outside the plot area to avoid overlapping with your data points.

Scenario ii: Render only the legend (no plot visible) #

To hide the plot entirely and just show the legend, we'll make the plot elements transparent/hidden while keeping the legend intact.

library(plotly)

df <- data.frame(
  x = 1:3,
  y = 1:3,
  symbol = 0:2,
  text_label = c("one", "two", "three")
)

p <- plot_ly()

for (row in 1:nrow(df)) {
  p <- p %>%
    add_trace(
      type = "scatter",
      mode = "markers",  # No need to show text since we're only displaying the legend
      x = df$x[row],
      y = df$y[row],
      symbol = df$symbol[row],
      symbols = df$symbol[row],
      size = 5,
      name = df$text_label[row],
      marker = list(
        line = list(width = 1.5),
        opacity = 0  # Make markers invisible so they don't appear in the plot area
      )
    )
}

# Hide all plot elements except the legend
p <- p %>% 
  layout(
    xaxis = list(visible = FALSE),  # Hide x-axis
    yaxis = list(visible = FALSE),  # Hide y-axis
    plot_bgcolor = "white",  # Match background to avoid odd coloring
    paper_bgcolor = "white",
    legend = list(
      orientation = "v",
      x = 0.5,  # Center the legend in the empty plot space
      y = 0.5,
      font = list(size = 12)
    )
  )

p

How this works: #

• Setting marker = list(opacity = 0) hides the actual data points without removing their legend entries.
• Disabling axis visibility and setting a white background removes all plot-related elements, leaving only the legend visible.
• The legend is centered in the empty space for a clean, standalone appearance.

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