我们所采用的学习内容来自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设置颜色
mpg %>%
ggplot(aes(displ,cty))+
geom_point()+
geom_smooth(method = lm,
se=F,
aes(color=drv))
视频链接如下
使用ggplot绘制散点图