ggplot2平滑函数：作为y函数的平滑？

Question

我正在尝试为使用ggplot绘制的数据添加线性回归;然而，由于我的数据的性质，我需要绘制它，使得线性回归中的响应变量是x轴，而不是y。有没有办法改变回归的方式（我尝试通过指定替代映射来改变＆＃34; formula = y~x＆＃34; to＆＃34; formula = x~y＆＃34;但没有运气）从图中指定的映射？或者，在添加回归后，是否有一种简单的方法可以反转情节？谢谢！任何帮助表示赞赏。

Answer 1

一种直截了当的方式（你建议）将使y和x的情节反转，然后＆＃34;反转＆＃34;最后的情节。我使用了严重的右倾斜＆＃34;噪音＆＃34;所以这个例子确实清楚地说明了什么是合适的。

library(tidyverse)

set.seed(42)
foo <- data_frame(x = 1:100, y = 2 + 0.5*x + 3*rchisq(100, 3))

foo %>% 
  ggplot(aes(x=y, y=x)) + geom_point() + stat_smooth(method = "lm") + coord_flip()