R语言ggplot绘制物种累积曲线无法调整图例顺序的问题

scale_color_manual默认不会按照values参数的传入顺序排列图例，而是按映射标签的字母顺序自动排序；同时你当前代码中点的样式为硬编码，没有和线的颜色映射绑定，不仅会导致图例顺序无法自定义，还会出现图例样式和实际绘图元素不匹配的问题。

在所有和分组相关的标尺（颜色、形状、填充）中新增breaks参数，严格按照你需要的顺序传入映射的标签字符串，同时给每个标签指定对应的视觉属性，即可固定图例顺序。建议把点的美学属性也统一纳入映射，不要单独硬编码，让图例同时显示点和线的样式，和图中元素完全对应。

修改后的完整可运行代码如下：

library(ggplot2)

# 构造示例数据，若你已完成数据导入可跳过此段
data <- data.frame(
  Samples = 1:5,
  S.est. = c(43.92,63.8,76.51,86.25,94.4),
  Singletons.Mean = c(32.04,33.08,32.78,34.27,36.13),
  Doubletons.Mean = c(8.88,17.87,18.42,17.5,16.44),
  Chao.1.Mean = c(101.8,96.43,106.6,120.16,134.01),
  Jack.1.Mean = c(44.1,84.71,102.78,117.02,128.17)
)

p2 <- ggplot(data = data, aes(x = Samples)) +
  # 点的属性统一纳入映射，和线共用分组规则
  geom_point(aes(y = S.est., colour = "S (est)", shape = "S (est)", fill = "S (est)"), size = 2.5, stroke = 0.8)+
  geom_point(aes(y = Singletons.Mean, colour="Singletons", shape = "Singletons", fill = "Singletons"), size = 2.5, stroke = 0.8)+
  geom_point(aes(y = Doubletons.Mean, colour="Doubletons", shape = "Doubletons", fill = "Doubletons"), size = 2.5, stroke = 0.8)+
  geom_point(aes(y = Chao.1.Mean, colour = "Chao 1", shape = "Chao 1", fill = "Chao 1"), size = 2.5, stroke = 0.8)+
  geom_point(aes(y = Jack.1.Mean, colour = "Jack 1", shape = "Jack 1", fill = "Jack 1"), size = 2.5, stroke = 0.8)+
  geom_line(aes(y = S.est., colour = "S (est)"), linewidth = 1, alpha = 0.8) + 
  geom_line(aes(y = Singletons.Mean, colour="Singletons"), linewidth = 1, alpha = 0.8) +
  geom_line(aes(y = Doubletons.Mean, colour="Doubletons"), linewidth = 1, alpha = 0.8) +
  geom_line(aes(y = Chao.1.Mean, colour = "Chao 1"), linewidth = 1, alpha = 0.8) + 
  geom_line(aes(y = Jack.1.Mean, colour = "Jack 1"), linewidth = 1, alpha = 0.8) +
  labs(x = "Sampling days", y = "Number of species") +
  scale_x_continuous(limits = c(1, 12), breaks = seq(2,12,2)) +
  scale_y_continuous(limits = c(0, 200), breaks = seq(0,200,20)) +
  # 所有分组标尺统一breaks顺序，保证图例完全按要求排列
  scale_color_manual(name = "Richness estimators", 
                     breaks = c("S (est)", "Singletons", "Doubletons", "Chao 1", "Jack 1"),
                     values=c("S (est)" = "#006600",
                              "Singletons" = "#660099", 
                              "Doubletons" = "#669999", 
                              "Chao 1" = "#CC0000", 
                              "Jack 1" = "#00CCCC"))+
  scale_shape_manual(name = "Richness estimators",
                     breaks = c("S (est)", "Singletons", "Doubletons", "Chao 1", "Jack 1"),
                     values = c("S (est)" = 22,
                                "Singletons" = 17,
                                "Doubletons" = 19,
                                "Chao 1" = 21,
                                "Jack 1" = 19))+
  scale_fill_manual(name = "Richness estimators",
                    breaks = c("S (est)", "Singletons", "Doubletons", "Chao 1", "Jack 1"),
                    values=c("S (est)" = "#006600",
                             "Singletons" = "#660099", 
                             "Doubletons" = "#669999", 
                             "Chao 1" = "#CC0000", 
                             "Jack 1" = "#00CCCC"))+
  theme_bw(base_size = 12) +
  # 主题细节优化
  theme(
    legend.position = c(0.22, 0.78),
    panel.grid.minor = element_blank(),
    axis.title = element_text(face = "bold"),
    legend.background = element_rect(fill = alpha("white", 0.8))
  )

p2

• 统一映射逻辑：不要硬编码点的颜色、形状、填充属性，全部放入aes()和线共用分组，避免图例和图中元素样式不匹配
• 精简坐标轴：去掉x轴的0断点，采样从第1天开始，0位置无实际数据无需展示；用seq()函数生成断点比手动输入更简洁不易出错
• 提升元素辨识度：给点加细描边、给线条加轻微透明度，避免点被线完全遮挡，数据重叠区域也能清晰识别
• 调整图例位置：将图例放到图内空白区域，添加半透明白色背景，不遮挡数据的同时节省绘图区外空间，增大图表有效展示面积
• 精简视觉元素：去掉次要网格线，保留主要网格线即可，减少无关视觉干扰，画面更整洁
• 统一文字规范：通过theme_bw(base_size=...)设置全局基础字号，轴标题适当加粗，提升整体可读性

内容的提问来源于stack exchange，提问作者Andrés Felipe Tigreros-Andrade