在RStudio中绘制X轴先降后升的带标准误差棒折线图

我有一项大学作业，需要用采集的数据绘制带标准误差棒的均值折线图。实验测量了温度变化时盐水虾的心率（分为饥饿组和喂食组，此处仅用饥饿组数据starved2_0，包含温度、心率均值和标准误差），温度从20℃以2℃为步长降至6℃后再回升至20℃。我希望绘制X轴显示为20→6→20的折线图，但未能成功。已尝试两种方法：

• 用序列作为X轴：数据点正确，但X轴显示为1-15且无误差棒
• 直接以温度为X轴绘图：重复温度点被合并，不符合实验过程的展示需求

给出的数据：

temperature<-c(20,18,16,14,12,10,8,6,8,10,12,14,16,18,20)
mean<-c(104.50,113.89,103.16,89.57,82.63,77.95,74.41,71.29,76.10,83.71,86.58,100.40,104.39,130.31,111.00)
se<-c(6.85,6.22,4.10,3.82,4.39,2.85,2.94,3.50,7.56,4.87,4.13,5.36,5.22,9.49,13.38)

尝试的代码：
第一种方法：

x=c(20,18,16,14,12,10,8,6,8,10,12,14,16,18,20)
y=c(104.5,113.89,103.16,89.57,82.63,77.95,74.41,71.29,76.1,83.71,86.58,100.4,104.39,130.31,111)
ggplot(data.frame(x=1:length(x),y))+
  geom_point(aes(x=x, y=y))
ggplot(x,y)

第二种方法：

ggplot(starved2_0,aes(x=temp,y=mean))+
  geom_errorbar(aes(ymin=mean-se, ymax=mean+se),width=.1)+
  geom_line()+
  geom_point()

核心思路是保留数据的原始顺序，用索引作为绘图的X轴，再将温度值设置为X轴的刻度标签，这样既保证折线按实验顺序绘制，又能显示对应的温度值，同时添加误差棒。

完整代码：

library(ggplot2)

# 整理数据框，添加顺序列记录实验步骤
starved2_0 <- data.frame(
  temperature = c(20,18,16,14,12,10,8,6,8,10,12,14,16,18,20),
  mean = c(104.50,113.89,103.16,89.57,82.63,77.95,74.41,71.29,76.10,83.71,86.58,100.40,104.39,130.31,111.00),
  se = c(6.85,6.22,4.10,3.82,4.39,2.85,2.94,3.50,7.56,4.87,4.13,5.36,5.22,9.49,13.38),
  order = 1:15
)

# 绘制带误差棒的折线图
ggplot(starved2_0, aes(x = order, y = mean)) +
  geom_errorbar(aes(ymin = mean - se, ymax = mean + se), width = 0.2) +
  geom_line(color = "#2c3e50", linewidth = 1) +
  geom_point(size = 3, color = "#e74c3c") +
  scale_x_continuous(
    breaks = 1:15,
    labels = starved2_0$temperature
  ) +
  labs(
    x = "温度(℃)",
    y = "心率均值",
    title = "饥饿组盐水虾心率随温度变化（降温→升温）"
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 45, vjust = 0.5)
  )

代码说明 #

• order列确保折线严格按照实验的温度变化顺序绘制，不会因温度重复合并数据点
• scale_x_continuous将X轴刻度从1-15替换为对应温度值，完美匹配实验过程的展示需求
• 同时保留了误差棒、折线和散点，满足作业对图表元素的要求

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