geom_smooth与geom_point无图例显示，求绘制目标图形的解决方案

你的代码没有显示图例，是因为没有将图层的区分属性（比如颜色、线型）纳入aes()映射中——ggplot2只有当美学属性关联到映射规则时，才会自动生成图例。以下是两种可行的解决方案：

方法1：通过aes()映射颜色生成统一图例 #

将曲线和散点的颜色定义在aes()内，同时可自定义图例名称：

x=1:20
y=sample(20)

df <- tibble(x=x,y=y)
ggplot(df,aes(x,y))+
  geom_smooth(aes(color = "拟合曲线"), se = FALSE)+  # 为拟合曲线指定图例标签
  geom_point(aes(color = "散点"))+                  # 为散点指定图例标签
  labs(color = "数据类型")+                         # 修改图例标题
  theme(legend.position = "right")                  # 可选：调整图例位置

方法2：手动指定样式并强制显示图例 #

如果需要用线型、形状分别区分图层，可手动设置样式后开启show.legend，再统一图例标题：

x=1:20
y=sample(20)

df <- tibble(x=x,y=y)
ggplot(df,aes(x,y))+
  geom_smooth(color = "#2ecc71", linetype = "solid", 
              aes(linetype = "拟合曲线"), se = FALSE)+
  geom_point(color = "#e74c3c", shape = 16, 
             aes(shape = "散点"))+
  labs(linetype = "数据类型", shape = "数据类型")+
  guides(linetype = guide_legend(order=1), shape = guide_legend(order=2))+ # 调整图例顺序
  theme(legend.position = "right")

说明：两种方法的核心都是让ggplot2识别到需要区分的图层元素，从而生成对应的图例。如果不需要区分样式，仅需显示单个图例，也可以通过scale_color_manual等函数自定义颜色映射。

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