ggplot实现点用连续色、文本用离散色的绘图问题求助

需求说明：

• 用geom_point根据Student_votes的数值显示连续渐变颜色
• 用geom_text_repel根据Chosen的离散值（Yes显示绿色，No显示红色）着色

问题原因 #

你遇到的Discrete value supplied to continuous scale错误，本质是同一个color美学被同时用于连续值和离散值，ggplot默认只能绑定一套颜色比例尺，两者冲突导致报错。这个需求完全可行，只需要给两个图层的颜色映射分开设置独立的比例尺即可。

解决办法（推荐方案） #

使用ggnewscale包的new_scale_color()函数，它能让ggplot在同一个图中使用多套独立的颜色比例尺。

步骤1：安装并加载依赖包

install.packages("ggnewscale")
library(ggnewscale)
library(ggplot2)

步骤2：修改后的完整代码

dataset2 <- data.frame(
  x_value = c(1, 2, 3, 4, 5),
  y_value = c(10, 15, 8, 12, 20),
  Points = c(50, 30, 45, 60, 40),
  Name = c("A", "B", "C", "D", "E"),
  Chosen = c("Yes", "No", "Yes", "No", "Yes"),
  Student_votes = c(15, 20, 10, 25, 18))

ggplot(dataset2, aes(x = x_value, y = y_value, size = Points)) +
  # 先绘制点图层，绑定连续颜色比例尺
  geom_point(aes(color = Student_votes)) +  
  scale_color_continuous(name = "学生投票数") +
  # 启动新的颜色比例尺，与前面的独立
  new_scale_color() +
  # 绘制文本图层，绑定离散颜色比例尺
  geom_text_repel(aes(label = Name, color = Chosen), size = 5) +
  scale_color_manual(values = c("Yes" = "green", "No" = "red"), name = "是否选中") +
  theme_bw()

代码说明 #

• 先绘制geom_point并设置连续颜色比例尺，new_scale_color()会告诉ggplot后续的颜色映射不再沿用之前的规则
• 用scale_color_manual手动指定Yes和No对应的颜色，完全匹配你的需求

替代方案（无需额外装包） #

如果不想安装新包，可以把其中一个图层的颜色用fill美学，但geom_point需要设置shape = 21（带填充的点型），geom_text_repel不支持fill，所以只能给点用fill：

ggplot(dataset2, aes(x = x_value, y = y_value, size = Points)) +
  geom_point(aes(fill = Student_votes), shape = 21, color = "black") +  
  scale_fill_continuous(name = "学生投票数") +
  geom_text_repel(aes(label = Name, color = Chosen), size = 5) +
  scale_color_manual(values = c("Yes" = "green", "No" = "red"), name = "是否选中") +
  theme_bw()

这种方案里点的边框是黑色，填充色是连续渐变，文本用离散颜色，也能实现需求，但视觉效果和原需求略有差异。

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