R Plotly散点图标记大小不符合指定值问题求助

问题说明 #

你遇到的问题是：基于offset字段计算的标记大小未正确应用到散点图，生成的图表标记大小不符合预期，且图例中不同传感器类别的标记大小不一致。

问题原因 #

1. 当使用color = ~sensor_position进行分组时，Plotly会为每个传感器类别创建独立的轨迹（trace），顶层plot_ly()中的marker设置无法被每个轨迹正确继承，导致大小映射失效。
2. 图例标记默认采用每个轨迹的第一个数据点大小，因此出现大小不一致的情况。

解决方案 #

修改代码如下，核心调整3个关键点：

library(plotly)

offset_plot_colors <- c('#845EC2', '#D65DB1', '#FF6F91', '#FF9671', '#FFC75F', '#F9F871')

df <- data.frame(
  insert_position = c(1, 2, 3, 4, 5, 6, 
                      1, 2, 3, 4, 5, 6, 
                      1, 2, 3, 4, 5, 6, 
                      1, 2, 3, 4, 5, 6),
  experiment = c(100, 100, 100, 100, 100, 100, 
                 101, 101, 101, 101, 101, 101, 
                 102, 102, 102, 102, 102, 102,
                 103, 103, 103, 103, 103, 103),
  sensor_position = c("s1", "s2", "s3", "s4", "s5", "s6", 
                      "s1", "s2", "s3", "s4", "s5", "s6", 
                      "s6", "s1", "s2", "s3", "s4", "s5", 
                      "s5", "s6", "s1", "s2", "s3", "s4"),
  offset = c( -0.10187856, -0.11539658, -0.01525474,  0.06469351, -0.13144734,  0.10990038
            , -0.11939423, -0.12415050, -0.01897634,  0.06963700, -0.12348225,  0.11077662
            ,  0.09999526, -0.11111048, -0.13619725, -0.03287019,  0.05424941, -0.12881697
            , -0.12830725,  0.09734471, -0.11105168, -0.12477904, -0.02409957,  0.06817639)
)

# 计算标记大小并限制在2-20区间（匹配你的预期范围）
df$size <- pmax(pmin(abs(df$offset) * 150, 20), 2)

offset_plot1 <- plot_ly(df, 
  x = ~experiment, y = ~insert_position, 
  color = ~sensor_position, 
  colors = offset_plot_colors
) %>%
  add_markers(
    marker = list(opacity=1, size = ~size), # 将size映射移至add_markers内，确保每个轨迹正确读取
    text = ~paste("Sensor:", sub(".*_", "", sensor_position), "<br>Offset:", round(offset, digits = 2), "<br>size:", round(size, digits = 1)), 
    hoverinfo = "text"
  )

offset_plot1 <- offset_plot1 %>% layout(
  title = "Offset vs Insert Position vs Experiment",
  xaxis = list(title = "Experiment"),
  yaxis = list(title = "Insert Position"),
  legend = list(
    title = list(text = "Sensor Position"), # 修正图例标题（原标题"Offset"不准确）
    marker = list(size = 10) # 统一图例标记大小
  )
)

offset_plot1

修改点说明 #

1. 调整size映射位置：将size = ~size从plot_ly()顶层移至add_markers()内，确保每个分组轨迹都能正确读取对应数据点的size值，避免Plotly自动归一化大小。
2. 统一图例标记：通过legend.marker.size设置固定大小（示例设为10），让图例所有标记大小一致。
3. 修正hover文本：将df$offset改为~offset，确保hover文本对应每个数据点的正确值，避免全局变量引用问题。
4. 区间限制优化：用pmax(pmin(...))强制size值落在2-20区间，完全匹配你提到的预期范围。

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