如何在R的Plotly中让散点与分组柱状图的偏移对齐？

在Plotly绘制分组柱状图时，同一分类下的不同组柱子会自动偏移排列，但添加散点标记时，散点默认落在分类轴的中心位置，无法与对应组的柱子位置对齐。

解决方案 #

利用Plotly支持的offsetgroup参数，将散点的分组与柱状图的分组绑定，让散点自动继承对应分组的偏移量，实现位置对齐。

修改后的代码示例 #

library(dplyr)
library(tidyr)

# 预处理数据，避免重复计算
summary_data <- iris %>% 
  group_by(Species) %>% 
  summarize(y1 = mean(Sepal.Length),
            y2 = mean(Sepal.Width)) %>% 
  pivot_longer(cols = c('y1', 'y2'))

filter_data <- summary_data %>% 
  filter(value == y1 & y1 > 6) # 匹配原逻辑：筛选y1大于6的行

plotly::plot_ly() %>% 
  # 分组柱状图
  add_trace(data = summary_data,
            x    = ~Species,
            y    = ~value,
            type        = 'bar', 
            name        = ~name,
            color       = ~name,
            legendgroup = ~name,
            showlegend  = TRUE) %>%
  # 散点标记：添加offsetgroup绑定分组
  add_trace(
    data = filter_data,
    x    = ~Species,
    y    = ~value,
    type        = 'scatter',
    mode        = 'markers',
    name        = ~name,
    color       = ~name,
    legendgroup = ~name,
    offsetgroup = ~name, # 核心参数：绑定到对应分组，继承柱状图的偏移量
    marker      = list(size = 10)
  )

关键说明 #

• offsetgroup是实现对齐的核心：将散点的分组与柱状图的分组（此处为name变量，对应y1、y2两组）绑定后，Plotly会自动为散点计算与对应柱子完全一致的偏移量，让散点精准落在对应柱子的上方。
• 提前预处理数据可以避免重复执行分组、汇总操作，让代码更简洁高效。

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