如何使用geom_smooth绘制物种丰度vs海拔图，处理多Y轴值并旋转图表？

需要以物种丰度（对应数据的n_observations字段）为X轴、海拔（elevation字段）为Y轴绘制散点图，并添加geom_smooth拟合曲线。由于数据呈高斯分布，单个X轴值对应多个Y轴值。当前代码将海拔设为X轴，希望调整为目标轴设置，同时确保拟合曲线方向正确。

用户提供的原始代码：

data<-data.frame("n_observations"=c(10,30,50,40,10),"elevation"=c(100,200,300,400,500))

data %>
  ggplot(aes(n_observations,elevation)) + #At the moment i have aes(elevation,n_observations)
  geom_point() +
  geom_smooth()

1. 修正管道符错误：原始代码中data %>缺少一个百分号，需改为data %>%。
2. 调换坐标轴映射：直接将aes()中的参数从aes(elevation, n_observations)改为aes(n_observations, elevation)，这就实现了以物种丰度为X轴、海拔为Y轴的需求，无需额外旋转图表——ggplot会根据你设定的x/y轴自动调整图表方向。
3. 确保拟合曲线方向正确：geom_smooth()默认对Y变量（此处为elevation）做关于X变量（n_observations）的回归拟合，只要坐标轴映射正确，拟合曲线就会自动对应目标变量关系。

修正后的完整代码：

data <- data.frame(
  n_observations = c(10, 30, 50, 40, 10),
  elevation = c(100, 200, 300, 400, 500)
)

data %>%
  ggplot(aes(x = n_observations, y = elevation)) +
  geom_point() +
  geom_smooth(method = "lm") # 针对高斯分布可指定线性回归方法，不指定则用默认loess

补充说明 #

• 如果不需要指定拟合方法，默认的loess方法也能适配这类数据；若明确用线性回归，添加method = "lm"参数即可。
• 此处无需用coord_flip()旋转图表——该函数是用来临时互换x/y轴显示，而我们直接修改aes()的变量映射，从根源上定义了轴的对应关系，更贴合需求。

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