R语言ggplot中geom_point与geom_bar分组颜色统一问题求助

问题原因 #

你的代码里存在两个核心问题导致颜色不匹配：

1. 分组变量类型不一致：散点图的group是数值型，柱状图的attribute_group被转成了因子，ggplot对数值和因子的颜色映射逻辑不同。
2. 未指定统一的颜色尺度：两个图各自使用默认的颜色映射，没有强制绑定同一套颜色与分组的对应关系。

解决步骤 #

1. 统一分组变量类型：将两个数据框中的分组字段都转为因子，并确保分组水平（levels）完全一致（都是1-4）。
2. 定义固定颜色映射：创建一个颜色向量，给每个分组编号绑定固定颜色。
3. 在两个图中复用颜色尺度：分别用scale_color_manual()（散点图）和scale_fill_manual()（柱状图）调用同一个颜色映射。

修改后的完整代码 #

# 构造示例数据
id <- c(1,2,3,4,5,6,7,8)
mean <- c(13,23,42,53,64,75,75,8)
total <- c(52,34,23,15,14,62,16,12)
group <- c(3,2,1,4,3,2,2,1)
df1 <- data.frame(id,mean,total,group)
# 将df1的group转为因子，指定水平为1-4
df1$group <- factor(df1$group, levels = c("1","2","3","4"))

attribute <- c("round","square","round","square","round","square","round","square")
value <- c(14,13,55,76,46,3,5,6)
attribute_group <- c(1,1,2,2,3,3,4,4)
# 修正df2的创建（原代码漏传数据）
df2 <- data.frame(attribute, value, attribute_group)
# 将df2的attribute_group转为因子，水平与df1一致
df2$attribute_group <- factor(df2$attribute_group, levels = c("1","2","3","4"))

# 定义统一的分组颜色映射
group_colors <- c("1" = "#E69F00", "2" = "#56B4E9", "3" = "#009E73", "4" = "#D55E00")

# 绘制散点图
ggplot(df1, aes(mean, total, color = group)) + 
  geom_point(size=3) +
  # 应用统一颜色尺度
  scale_color_manual(values = group_colors)

# 绘制柱状图
ggplot(df2, aes(x=attribute, y=value, fill=attribute_group)) +
  geom_bar(position="dodge",stat="identity") + 
  coord_flip() +
  ggtitle("Characterization") +
  # 应用同一套颜色尺度
  scale_fill_manual(values = group_colors)

额外注意点 #

• 不要在geom_point里直接写color = all_data$group，应该把颜色映射放在aes()内部，这样ggplot才能正确关联分组与颜色尺度。
• 如果不想手动指定颜色，也可以用ggplot的预设调色板（比如scale_color_viridis_d()和scale_fill_viridis_d()），只要两个图都调用同一个离散型调色板函数即可。

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