在ggplot中为基于水位设置的外部传入标记形状与颜色创建图例

我来给你捋捋怎么搞定这个问题哈～核心关键点在于：ggplot的图例是基于美学映射（也就是aes()里的参数）生成的，你之前把形状、颜色直接写在aes()外面，属于全局统一设置，ggplot自然不会生成对应的图例。正确的思路是先把水位值转换成分类变量，再把形状、颜色映射到这个分类变量上，最后手动指定每个分类对应的样式。

具体步骤和代码示例 #

1. 预处理数据集：新增水位分类变量 #

先给你的数据加一列用来标记水位所属的区间，比如叫level_group：

library(ggplot2)
library(dplyr) # 用case_when需要加载dplyr

# 先构造一个示例数据集（你可以替换成自己的真实数据）
df <- data.frame(
  latitude = runif(50, 30, 40),
  longitude = runif(50, 100, 120),
  water_level = c(runif(25, 90, 100), runif(25, 25, 75))
)

# 新增分类变量：根据水位区间分组
df$level_group <- case_when(
  df$water_level >= 90 & df$water_level <= 100 ~ "90-100",
  df$water_level >= 25 & df$water_level <= 75 ~ "25-75",
  TRUE ~ "其他" # 处理不在这两个区间的情况，可选保留或删除
)

2. 绘制图形并映射美学属性 #

把shape和color都放进aes()里，映射到刚才的level_group变量，然后用scale_*_manual手动指定每个分组对应的样式：

ggplot(df, aes(x = longitude, y = latitude, shape = level_group, color = level_group)) +
  geom_point(size = 3) + # 可以根据需求调整点的大小
  # 手动指定形状：方形对应编码15，圆形对应编码16（ggplot形状编码可查官方说明）
  scale_shape_manual(values = c("90-100" = 15, "25-75" = 16, "其他" = 17)) +
  # 手动指定颜色
  scale_color_manual(values = c("90-100" = "blue", "25-75" = "red", "其他" = "gray")) +
  # 自定义图例标题（两个属性映射同一变量时，标题设成一样会自动合并图例）
  labs(shape = "水位区间", color = "水位区间") +
  theme_bw()

关键细节说明 #

• 为啥之前的做法没有图例？因为geom_point(color = "blue", shape = 15)这种写法是全局统一设置，给所有点套同一种样式，ggplot不会把这种操作当成需要区分分组的映射，自然不会生成图例。
• 必须把样式属性（shape、color）和数据中的分类变量绑定，放在aes()里，ggplot才会识别这是需要区分的分组，进而生成对应的图例。
• 如果你的数据里没有“其他”区间的水位值，可以删掉case_when里的TRUE ~ "其他"部分，同时在scale_*_manual里也去掉对应的设置就行。

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