ggplot2实现23组数据独特点形状及易区分线条颜色方案咨询

1. 突破默认6种点形状的限制 #

ggplot2其实支持0-25共26种点形状，完全覆盖23组需求。你只需要手动指定形状集合，同时把分组变量转成有序因子，就能保证图例按数字顺序排列。

示例代码：

library(ggplot2)

# 先把分组列转成有序因子，强制图例按1-23排序
df$group <- factor(df$group, levels = 1:23, ordered = TRUE)

# 定义23个独特形状（直接用0到22就行，也可以挑辨识度高的）
custom_shapes <- 0:22

# 基础绘图框架
ggplot(df, aes(x = x, y = y, color = group, shape = group)) +
  geom_line(linewidth = 1) +  # 线条加粗一点，方便区分
  geom_point(size = 3) +      # 点放大，形状更清晰
  scale_shape_manual(values = custom_shapes) +  # 绑定自定义形状
  theme(legend.position = "right")

2. 让相邻线条颜色更易区分 #

别用默认的配色，选经过优化的高区分度色板：

• 用viridis系列：对色弱友好，相邻颜色差异明显，直接用scale_color_viridis_d()就行
• 或者用colorspace包生成定性配色，专门应对多分组场景

示例（viridis方案）：

ggplot(df, aes(x = x, y = y, color = group, shape = group)) +
  geom_line(linewidth = 1) +
  geom_point(size = 3) +
  scale_shape_manual(values = custom_shapes) +
  scale_color_viridis_d(option = "plasma", begin = 0, end = 0.9) +  # 去掉首尾接近的颜色
  theme(legend.position = "right")

示例（colorspace自定义配色）：

library(colorspace)
# 生成23个高区分度的定性颜色
custom_colors <- qualitative_hcl(n = 23, palette = "Dark2")

ggplot(df, aes(x = x, y = y, color = group, shape = group)) +
  geom_line(linewidth = 1) +
  geom_point(size = 3) +
  scale_shape_manual(values = custom_shapes) +
  scale_color_manual(values = custom_colors) +
  theme(legend.position = "right")

3. 优化图例可读性 #

23组的图例如果堆在一起会很乱，可以调整成多列，或者移到底部：

ggplot(df, aes(x = x, y = y, color = group, shape = group)) +
  geom_line(linewidth = 1) +
  geom_point(size = 3) +
  scale_shape_manual(values = custom_shapes) +
  scale_color_viridis_d(option = "plasma") +
  # 把图例分成2列，减少纵向长度
  guides(color = guide_legend(ncol = 2), shape = guide_legend(ncol = 2)) +
  theme(legend.position = "bottom")

小提示 #

• 点形状0-14是空心，15-20是实心，21-25是带填充的（如果不需要填充色，用0-22足够）
• 如果觉得某些形状太像（比如0正方形和15实心正方形），可以手动替换成更独特的，比如把custom_shapes改成c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,16,17,18,19,20,21,22,23,24)

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