R语言中如何绘制沿y轴深度变化的物种数据折线图

问题原因 #

你的代码中geom_line()默认会按照x轴变量（value）的数值大小连接数据点，而你的value随depth并非单调变化，导致折线沿x轴延伸，而非按深度的顺序连接。

解决方法 #

要让折线沿深度（y轴）变化，核心是让ggplot按照depth的顺序连接点，以下是几种可行方案：

方案1：先排序数据，再用geom_line()指定分组

geom_line()会按照数据框的行顺序连接点，因此先将数据按depth升序排序，再指定group=1确保所有点属于同一组，即可按深度顺序连接：

# 按depth升序排序数据集
test_sorted <- test[order(test$depth), ]

# 绘图
ggplot(test_sorted, aes(x = value, y = depth)) +
  geom_line(group = 1) +  # 指定同一分组，按行顺序连接
  geom_point() +
  scale_y_reverse() +  
  labs(title = "Sea Depth vs Value",
       x = "Value", y = "Sea Depth (cm)") +
  theme_minimal()

方案2：用geom_path()替代geom_line()

geom_path()会严格按照数据框的行顺序连接点，无需额外指定分组；如果数据未按depth排序，先排序再使用即可：

# 若数据未按depth排序，先执行此步
test_sorted <- test[order(test$depth), ]

# 用geom_path按行顺序连接点
ggplot(test_sorted, aes(x = value, y = depth)) +
  geom_path() +
  geom_point() +
  scale_y_reverse() +  
  labs(title = "Sea Depth vs Value",
       x = "Value", y = "Sea Depth (cm)") +
  theme_minimal()

方案3：绘图时直接指定排序逻辑

无需提前创建排序后的数据集，可在geom_line()的data参数中直接对数据排序（需要加载dplyr包）：

library(dplyr)

ggplot(test, aes(x = value, y = depth)) +
  geom_line(aes(group = 1), data = arrange(test, depth)) +
  geom_point() +
  scale_y_reverse() +  
  labs(title = "Sea Depth vs Value",
       x = "Value", y = "Sea Depth (cm)") +
  theme_minimal()

内容的提问来源于stack exchange，提问作者Gonzalo de Quesada