在R的ggplot2散点图中添加误差棒及图表调整求助

先给你一份完整的可运行代码，覆盖你提到的所有需求，再拆解关键修改点：

# 先加载ggplot2包，假设raw_data是你的原始数据集，combinedsum是汇总后的均值+标准误数据
library(ggplot2)

ggplot(raw_data, aes(x = Salt_concentration, y = Generation_time)) +
  # 绘制原始数据散点
  geom_point(alpha = 0.6, size = 2) +
  # 绘制均值±标准误的误差棒
  geom_errorbar(data = combinedsum, 
                aes(x = Salt_concentration, ymin = mean - se, ymax = mean + se),
                width = 0.3, color = "darkred") +
  # 标记均值点（替代你原来的第二条误差棒，更直观）
  geom_point(data = combinedsum, aes(y = mean), size = 3, color = "darkred") +
  # Y轴设置：修改标签、范围和扩展值
  scale_y_continuous(name = "世代时间（分钟）", 
                     limits = c(0, 180), 
                     expand = c(0, 0)) +
  # X轴设置：修正离散/连续类型错误，调整标签、范围和刻度
  scale_x_continuous(name = "盐浓度（%）", 
                     expand = c(0, 0), 
                     limits = c(0, 10.3), 
                     breaks = seq(0, 10, 1)) +
  # 添加P值注释
  annotate("text", x = 1.5, y = 75,
           label = expression(italic(p)~"= 3.647e-05"), size = 4) +
  # 应用经典主题
  theme_classic()

关键修改说明： #

• 补全了ggplot基础框架：必须从ggplot()定义核心数据和映射，加上geom_point()才能显示原始散点（你原来的代码只写了误差棒，缺失散点层）
• 修正X轴scale错误：你之前用scale_x_discrete却给了连续数值的limits，会导致报错。如果盐浓度是数值变量，用scale_x_continuous更合适；如果是分类变量（如字符串），再换成scale_x_discrete且limits要匹配分类值
• 修复expand语法：原来的expand(0,0)要写成expand = c(0,0)
• 优化均值标记：把你原来的第二条误差棒（水平短横线）换成均值点标记，更清晰直观，也可以用geom_crossbar同时显示均值和误差范围
• 调整标签为中文（需要英文可改回你原来的文本）

额外实用提示： #

• 确保combinedsum中的Salt_concentration和原始数据的x轴变量完全匹配，否则误差棒会错位
• 如果需要更专业的显著性标记，可以用ggsignif包自动添加，示例代码：

  # 先安装包：install.packages("ggsignif")
  library(ggsignif)
  geom_signif(annotations = "p = 3.647e-05", xmin = 0, xmax = 2, y_position = 75)
  

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