ggplot绘制3条折线：指定两条带自定义形状点，一条无点且保留控制

这问题我之前也碰到过！其实核心就是把形状和你的分组变量绑定，然后手动指定每个组的形状就行，甚至可以直接不给不需要点的系列加点图层。给你两种可行的方案：

方案1：利用形状映射+手动设置（推荐） #

先补全你的数据处理代码，然后通过ggplot的形状映射和scale_shape_manual来精准控制每个系列的点：

library(data.table)
library(ggplot2)

# 准备数据
years = 2001:2005
A = c(2, 3, 2.5, 2, 2.2)
B = c(2, 2.3, 2.8, 2, 3.2)
C = rep(2.1, 5)
DT = data.table(years, A, B, C)
# 宽表转长表，指定分组列和值列名称
mDT = melt(DT, id.var = "years", variable.name = "Series", value.name = "Value")

# 绘图
ggplot(mDT, aes(x = years, y = Value, color = Series)) +
  geom_line(linewidth = 1) +  # 绘制三条折线
  geom_point(aes(shape = Series), size = 3) +  # 将形状与分组变量绑定
  # 自定义每个系列的形状：A用实心圆(16)，B用实心上三角(17)，C设为NA不显示点
  scale_shape_manual(values = c("A" = 16, "B" = 17, "C" = NA)) +
  labs(title = "折线图：自定义点形状",
       x = "年份", y = "数值") +
  theme_minimal()

关键说明： #

• 通过aes(shape = Series)把形状和你的分组（A/B/C）关联，这样每个系列可以独立设置形状
• scale_shape_manual里给C指定NA，就会完全隐藏该系列的所有数据点
• 你可以替换形状编号为自己需要的：比如15是实心方块，18是实心菱形，0是空心正方形等等

方案2：单独给需要的系列加图层（更灵活） #

如果不想用映射，也可以针对每个系列单独调用geom_point，不给不需要点的系列加图层即可：

ggplot(mDT, aes(x = years, y = Value, color = Series)) +
  geom_line(linewidth = 1) +
  # 只给A系列加自定义点
  geom_point(data = mDT[Series == "A"], aes(shape = "A"), size = 3) +
  # 只给B系列加自定义点
  geom_point(data = mDT[Series == "B"], aes(shape = "B"), size = 3) +
  # 不给C系列加geom_point，自然就没有数据点
  scale_shape_manual(values = c("A" = 16, "B" = 17)) +
  labs(title = "折线图：自定义点形状（替代方案）",
       x = "年份", y = "数值", shape = "系列") +
  theme_minimal()

这种方法适合你需要对不同系列的点做更细致控制（比如不同大小、颜色）的场景。

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