我想绘制物种丰度（x轴）与海拔（y轴）的关系图，并添加geom_smooth，但由于分布是高斯分布，因此一个x轴值对应多个y轴值。现在我有x轴上的高程，但我想旋转plot/geom_smooth。有没有办法做到这一点？

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()