散点图中的重叠趋势线，R

Question

我正在尝试使用 R 中的 geom_smooth() 覆盖多条趋势线。我目前有此代码。

ggplot(mtcars2, aes(x=Displacement, y = Variable, color = Variable))
+ geom_point(aes(x=mpg, y = hp, col = "Power")) 
+ geom_point(aes(x=mpg, y = drat, col = "Drag Coef."))

（mtcars2 是 mtcars 的规范化形式）

这给了我这张图表。

我正在尝试使用 geom_smooth(method='lm') 为这两个变量绘制两条趋势线。有什么想法吗？

（奖励：如果可能，我还想实现 'shape=1' 参数来区分变量。以下方法不起作用）

geom_point(aes(x=mpg, y = hp, col = "Power", shape=2))

更新 我设法做到了。

ggplot(mtcars2, aes(x=Displacement, y = Variable, color = Variable)) 
+ geom_point(aes(x=disp, y = hp, col = "Power")) 
+ geom_point(aes(x=disp, y = mpg, col = "MPG")) 
+ geom_smooth(method= 'lm',aes(x=disp, y = hp, col = "Power"))
+ geom_smooth(method= 'lm',aes(x=disp, y = mpg, col = "MPG"))

看起来像这样。

但这是一段丑陋的代码。如果有人能让这段代码看起来更漂亮，那就太好了。另外，我还不能实现 'shape=2' 参数。

Answer 1

您的生活似乎比需要的更艰难...您可以将其他参数传递给aes()，例如group 和shape。

我不知道你的标准化是否正确，但这应该足以让你朝着正确的方向前进：

library(ggplot2)
library(reshape2)

#Do some normalization
mtcars$disp_norm <- with(mtcars, (disp - min(disp)) / (max(disp) -  min(disp)))
mtcars$hp_norm <- with(mtcars, (hp - min(hp)) / (max(hp) -  min(hp)))
mtcars$drat_norm <- with(mtcars, (drat - min(drat)) / (max(drat) -  min(drat)))

#Melt into long form
mtcars.m <- melt(mtcars, id.vars = "disp_norm", measure.vars = c("hp_norm", "drat_norm"))

#plot
ggplot(mtcars.m, aes(disp_norm, value, group = variable, colour = variable, shape = variable)) +
  geom_point() +
  geom_smooth(method = "lm")

产量：