添加第二个图例？

Question

我必须重新创建此图：

1）我注意到图中的一些实际数据点的大小各不相同。这是怎么回事？

2）如何添加第二个图例qsec？

这是我当前的图形和代码：

(gp3 <-ggplot(mtcars, aes(x=wt, y=mpg, color=factor(cyl))) + geom_point(alpha = 0.5, size = 4.5) + geom_smooth(method = lm) + theme_light())

Answer 1

qsec是数据集mtcars的另一个变量。如果仔细观察，会发现在第一个图形上，点的大小不是单个值。

因此，看来您必须在qsec中将size变量作为aes参数传递：

ggplot(mtcars, aes(x=wt, y=mpg, size = qsec, color=factor(cyl))) + 
  geom_point(alpha = 0.5) + 
  geom_smooth(method = lm) + 
  theme_light()