R语言Plotly气泡图：解决图例重复与横向拉伸问题

问题1：图例中var1取值重复显示 #

重复图例通常是因为分组trace未正确关联导致的。直接通过color参数映射var1，Plotly会自动将同组数据归为一类，生成唯一的图例项，彻底避免重复。

问题2：图表横向拉伸、手动宽高设置无效 #

默认autosize = TRUE会让Plotly自动适配容器，覆盖手动宽高设置。关闭自动调整，同时限制x轴范围、调整边距即可解决。

完整修正代码 #

library(plotly)

# 生成示例数据集
set.seed(123)
df <- data.frame(
  var1 = rep(c("a", "b", "c", "d", "e"), each = 10),
  x = rnorm(50, mean = rep(1:5, each = 10), sd = 0.5),
  y = rnorm(50, mean = rep(5:1, each = 10), sd = 0.5),
  size = sample(1:20, 50, replace = TRUE)
)

# 修正后的气泡图代码
p <- plot_ly(df, 
             x = ~x, 
             y = ~y, 
             color = ~var1,  # 自动分组，避免图例重复
             size = ~size,
             sizes = c(10, 100),
             type = "scatter", 
             mode = "markers",
             marker = list(opacity = 0.7, sizemode = "diameter")) %>%
  layout(
    title = "修正后的气泡图",
    xaxis = list(title = "X轴", constrain = "domain"),  # 限制x轴范围，防止横向拉伸
    yaxis = list(title = "Y轴"),
    width = 800, 
    height = 600,
    autosize = FALSE,  # 关闭自动适配，确保宽高设置生效
    margin = list(l = 50, r = 50, b = 50, t = 50)  # 调整边距，避免内容裁剪
  )

p

关键说明 #

1. 图例重复解决：使用color = ~var1替代手动循环添加trace，Plotly会自动管理分组和图例，不会生成重复项。如果需要手动添加trace，需为同组trace设置相同的legendgroup，仅第一个trace设置showlegend = TRUE。
2. 横向拉伸解决：autosize = FALSE强制启用手动宽高；constrain = "domain"确保x轴范围不超出图表宽度；margin参数优化布局，避免内容被容器边缘裁剪。

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