使用R语言绘制散点图

学习目标

我们所采用的学习内容来自B站的Lizongzhang老师的R语言的学习分享
今天学习的主要内容是关于
绘制散点图

学习内容

下面是学习的主要内容
直接上代码,大家可以查看视频,我也的注释也比较详细
在使用%>%这个符号的时候,快捷键为control+M

library(tidyverse)
library(ggplot2)
data(mpg)

plot(mpg$displ,mpg$cty,
     pch=4,
     col="blue",
     las=1,
     #设置图标
     main = "city mile per gallon& enginw displacement",
     xlab = "englisg displacement",
     ylab = "city mile per gallon",
     #设置字体的大小
     cex.main=1.0,
     cex.lab=1.2,
     cex.axis=1.2,
     #设置字体的打印方法
     font.main=4,
     font.lab=2,
     font.axis=3,
     #设置横纵坐标的范围
     xlim=c(1.5,7),
     ylim=c(9,35),
     #设置关闭纵横坐标的值
     xaxt="n",
     yaxt="n"
     )
#自动设置横纵坐标
axis(1,at=seq(0,8,1),labels=seq(0,8,1))
axis(2,at=seq(0,40,2),labels=seq(0,40,2),las=1)
#at:设置要在线上画的点 
#pch输入对应的编号,然后可以设置需要的绘制的图像

#标记点并进行颜色更改
#points(mpg$displ[mpg$cyl==5],mpg$cty[mpg$cyl==5],
#       pch=6,
#       col="red")
#points(mpg$displ[mpg$cyl==6],mpg$cty[mpg$cyl==6],
#       pch=9,
#       col="green")
#points(mpg$displ[mpg$cyl==8],mpg$cty[mpg$cyl==8],
#       pch=8,
#       col="orange")
#简便写法
legend(5.5,36,#设置图标所在的位置
       legend = c("4 cyliners","5 cyliners",
                  "6 cyliners","8 cyliners"),
       pch=c(5,6,8,3),
       col=c("blue","red","green","orange"),
       cex=0.8,
       bty="n")

mpg %>% 
  ggplot(aes(displ,cty,
             color=drv,
             shape=drv))+
  geom_point()+
  geom_smooth(aes(color=drv),
              method = lm,
              se=F)+
  labs(x="Engine size",
       y="MPG on the citywa",
       title = "Fuel Efficiency")+
  theme_light()+
  theme(text = element_text(face="bold",
                            color="blue"))

可以绘制如下图像可得

还可以进行图像的颜色进行修改

mpg %>% 
  ggplot(aes(displ,cty,
             color=cyl,
             shape=drv))+
  geom_point()+
  geom_smooth(method = lm,
              se=F)

可以进行这样的设置得到以下图像

若不对画布设置,会得到以下结果

#不对画布进行设置
mpg %>% 
  ggplot(aes(displ,cty))+
  geom_point(aes(color=drv))+
  geom_smooth(method = lm,
              se=F)

只对smooth设置颜色

#对smooth设置颜色
mpg %>% 
  ggplot(aes(displ,cty))+
  geom_point()+
  geom_smooth(method = lm,
              se=F,
              aes(color=drv))

内容小结

视频链接如下
使用ggplot绘制散点图