问一个ggplot的题

最近在自学R for Data Science 这本书
有一个画图题不太会，求大神帮忙看看
Recreate the R code necessary to generate the following graphs.

真希望能回答你。。。。缓冲一直打不开

楼主你看看这个是你要的吗？

1. library(ggplot2)
   
2. data(mpg)
   
3. 
   
4. # plot 1
   
5. p1 <- ggplot(mpg, aes(x=displ, y=hwy)) + geom_point(size=4) + stat_smooth(se=FALSE, aes(fill=drv), size=2)
   
6. p1
   
7. 
   
8. ## plot 2
   
9. p2 <- ggplot(mpg, aes(x=displ, y=hwy, col=drv)) + geom_point(size=4)
   
10. p2

复制代码

caoxiangfly 发表于 2016-11-22 04:53
楼主你看看这个是你要的吗？

谢谢，有点没搞懂图二外面一圈白色怎么弄的
图一我是
> ggplot(data=mpg,mapping=aes(x=displ,y=hwy))+
+ geom_point()+
+ geom_smooth(mapping=aes(class=drv),color="blue",se=FALSE)
然后得到了这个
. ΧWarning: Ignoring unknown aesthetics: class
`geom_smooth()` using method = 'loess'
不知道geom_smooth 里面也有fill
哈哈谢啦！