如何在R语言Plotly中仅显示图例而不渲染对应数据点

算力阿峰

2026-9-26

实现Plotly仅展示图例不显示数据点的操作方法

你可以通过两种方案实现需求，按需选择即可：

方案一：基于现有代码修改（保留原有数据映射逻辑）

直接在你原有代码基础上调整散点透明度、隐藏多余图表元素即可，修改后代码如下：

library(tidyverse)
library(plotly)

mtcars %>% 
  mutate(cyl = factor(cyl)) %>% 
  plot_ly() %>% 
  add_markers(x = ~mpg,
              y = ~hp,
              color = ~cyl,
              colors = c("4" = "red", "6" = "green", "8" = "blue"),
              # 散点完全透明不可见
              opacity = 0,
              # 禁用散点悬浮提示
              hoverinfo = "none") %>% 
  # 强制图例标记保持不透明
  style(legendopacity = 1) %>% 
  layout(
    # 隐藏X轴全部元素
    xaxis = list(visible = FALSE),
    # 隐藏Y轴全部元素
    yaxis = list(visible = FALSE),
    # 设置背景为纯白，隐藏多余边框网格
    plot_bgcolor = "white",
    paper_bgcolor = "white"
  )

方案二：构造空Trace实现（性能更优，无需绑定实际数据）

如果你只需要展示自定义图例，不需要关联实际的散点数据，可以直接构造空的散点轨迹，不需要加载业务数据集：

library(plotly)

plot_ly() %>% 
  add_trace(
    type = "scatter", 
    mode = "markers",
    # 坐标设为NA，不会渲染任何数据点
    x = NA, 
    y = NA,
    # 自定义图例分类和配色
    color = factor(c(4,6,8)),
    colors = c("4" = "red", "6" = "green", "8" = "blue"),
    showlegend = TRUE
  ) %>% 
  layout(
    xaxis = list(visible = FALSE),
    yaxis = list(visible = FALSE),
    plot_bgcolor = "white",
    paper_bgcolor = "white"
  )