如何在ggplot2中为多数据集绘图设置匹配数据颜色的图例？

使用ggplot2绘制9个数据集（District1至District9）的散点图，绘图主体的点颜色显示正常，但图例中所有点均为浅蓝色。尝试用scale_fill_manual修正无效，要求在不合并数据集的前提下，让图例中每个条目的颜色与对应数据集的颜色匹配。

原绘图代码：

gfg_plot <- ggplot(NULL, aes(x = Area, y = Richness, fill = District )) +
geom_point(data=District1, col="blue") +
geom_point(data=District2, col="black")+
geom_point(data=District3, col="Purple")+
geom_point(data=District4, col="Green")+
geom_point(data=District5, col="Orange")+
geom_point(data=District6, col="Cyan")+
geom_point(data=District7, col="coral")+
geom_point(data=District8, col="red")+
geom_point(data=District9, col="skyblue")+
theme_few() +
xlab("Area")+
ylab("Average richness")+
labs(title = "PingshanSAR_plot")+
scale_x_log10(breaks = trans_breaks("log10", function(x) 10^x),
labels = trans_format("log10", math_format(10^.x))) +
scale_y_log10(breaks = trans_breaks("log10", function(x) 10^x),
labels = trans_format("log10", math_format(10^.x))) +
theme(plot.title = element_text(size = 15),
legend.title = element_blank(),
legend.text = element_text(color = NULL))

plot(gfg_plot)

尝试过的无效代码：

scale_fill_manual(name = "District",
                     values = c("District1" = "blue", "District8" = "red", 
"District2"= "black","District3" = "Purple", "District6" = "Cyan" ,
"District4" = "Green","District5"= "Orange", "District7"="coral", 
"District9"= "skyblue"))+

核心问题 #

1. 你在全局aes中使用了fill = District，但散点图默认使用color（轮廓色）而非fill（填充色），美学映射不匹配。
2. 每个geom_point单独指定col时，没有将对应数据集与District类别绑定，导致ggplot无法识别每个点所属的类别，图例只能显示默认颜色。

修改后的完整代码 #

gfg_plot <- ggplot(NULL, aes(x = Area, y = Richness)) +
  # 为每个图层绑定对应的District类别，并指定颜色
  geom_point(data=District1, aes(color = "District1"), col="blue") +
  geom_point(data=District2, aes(color = "District2"), col="black")+
  geom_point(data=District3, aes(color = "District3"), col="Purple")+
  geom_point(data=District4, aes(color = "District4"), col="Green")+
  geom_point(data=District5, aes(color = "District5"), col="Orange")+
  geom_point(data=District6, aes(color = "District6"), col="Cyan")+
  geom_point(data=District7, aes(color = "District7"), col="coral")+
  geom_point(data=District8, aes(color = "District8"), col="red")+
  geom_point(data=District9, aes(color = "District9"), col="skyblue")+
  theme_few() +
  xlab("Area")+
  ylab("Average richness")+
  labs(title = "PingshanSAR_plot")+
  scale_x_log10(breaks = trans_breaks("log10", function(x) 10^x),
                labels = trans_format("log10", math_format(10^.x))) +
  scale_y_log10(breaks = trans_breaks("log10", function(x) 10^x),
                labels = trans_format("log10", math_format(10^.x))) +
  # 使用scale_color_manual绑定类别与颜色
  scale_color_manual(values = c(
    "District1" = "blue", "District2" = "black", "District3" = "Purple",
    "District4" = "Green", "District5" = "Orange", "District6" = "Cyan",
    "District7" = "coral", "District8" = "red", "District9" = "skyblue"
  )) +
  theme(plot.title = element_text(size = 15),
        legend.title = element_blank(),
        legend.text = element_text(color = NULL))

plot(gfg_plot)

关键说明 #

• 每个geom_point的aes(color = "DistrictX")是将当前图层与DistrictX类别绑定，让ggplot识别图例条目对应的数据集。
• 使用scale_color_manual而非scale_fill_manual，因为散点图的点颜色由color美学控制（fill仅适用于带填充的点形状，如shape=21）。
• 移除全局aes中的fill = District，避免不必要的美学映射干扰。

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