ggplotly中组合geom_bar与geom_point图表的图例设置问题

嘿，我懂你想做的这种组合图——既有柱状图展示各指标的基准情况，又用散点体现变化，还得让两个元素的图例都正常显示对吧？我把你的代码补全并整理好了，顺便给你拆解下关键细节，确保你能顺利实现：

完整可运行代码 #

library(ggplot2)
library(dplyr)
library(ggthemes)
library(plotly)

set.seed(369)
obs <- 6

# 生成结构化的示例数据
df <- tibble(
  指标 = paste0("指标", 1:obs),
  基准值 = round(100 + rnorm(obs) * 10, 2),
  变化值 = round(基准值 + rnorm(obs) * 5, 2) # 散点对应指标的波动/变化值
)

# 绘制组合可视化
p <- ggplot(df, aes(x = 指标)) +
  # 柱状图：通过fill映射生成图例
  geom_bar(aes(y = 基准值, fill = "基准值"), 
           stat = "identity", width = 0.6, alpha = 0.7) +
  # 散点图：必须在aes内设置shape才能生成图例（这是你提到的关键点）
  geom_point(aes(y = 变化值, shape = "变化点"), 
             size = 4, color = "#2c3e50") +
  # 自定义图例样式，让两个图例合并展示
  scale_fill_manual(values = "#3498db", name = "") +
  scale_shape_manual(values = 16, name = "") +
  # 调整标签和主题
  labs(title = "指标基准值与变化情况", y = "数值") +
  theme_economist() +
  theme(legend.position = "top",
        axis.text.x = element_text(angle = 45, hjust = 1))

# 可选：转成交互式plotly图
ggplotly(p)

核心细节说明 #

• 柱状图图例生成：我给geom_bar的aes里加了fill = "基准值"，这相当于手动给柱状图指定一个分组标识，ggplot会自动为它生成图例，再用scale_fill_manual自定义颜色和图例名称。
• 散点图图例生成：你提到的shape参数一定要放在aes()内部，而不是直接写在geom_point()外面——只有这样ggplot才会把它识别为需要图例的映射项。如果想固定散点形状，用scale_shape_manual指定具体形状代码（比如16是实心圆）。
• 图例整合：把两个图例的name设为空字符串，它们会自动合并成一个统一的图例组，视觉上更整洁。
• plotly兼容：用ggplotly()转换后，图例的交互性（比如点击隐藏/显示图层）会保留，如果遇到显示异常，可以给两个图层加上legendgroup参数来关联（比如geom_bar(..., legendgroup = "1")和geom_point(..., legendgroup = "2")）。

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