R语言学习（四）ggplot2包（一）

昨天学习的包如果要制作3D图表要和ggplot2包配合使用，所以最近先来学习ggplot2包

library(rayshader)
dat=diamonds
dsmall=diamonds[sample(nrow(diamonds),100),]

这里用的是自带的dimonds数据集,从中随机选取100个样本：

该数据集将近54,000颗钻石的价格和其他属性的数据集，carat克拉，cut切割质量，clarity净度，color钻石颜色，x、y、z长宽深，更多请看diamonds数据集内容

散点图

qplot(carat,price,data=dat)

不同效果的唯一值显示

qplot(carat,price,data=dat,color=color)
qplot(carat,price,data=dsmall,shape=cut)
qplot(carat,price,data=dsmall,color=color,shape=cut)

设置透明度，突出点的密集效果

qplot(carat,price,data=dsmall,alpha=I(0.1))

该函数的输入参数不管是数字还是字符串似乎都要用到I()函数，该函数是用于判断输入参数是否满足条件（as is)

拟合

library(splines)
qplot(carat,price,data=dsmall,geom=c("point","smooth"))
qplot(carat,price,data=dsmall,geom=c("point","smooth"),method="lm")
qplot(carat,price,data=dsmall,geom=c("point","smooth"),method="lm",formula=y~ns(x,5))

"smooth"表示平滑曲线；y~ns(x,n)表示具有n个自由度的样条拟合；

qplot(displ,hwy,data=mpg,color=factor(cyl),geom=c("smooth","point"),method="lm")

这里factor()函数类似于取唯一值，在上述代码中将连续性变量变成类别变量。

qplot(displ,hwy,data=mpg,facets=.~year)+geom_smooth()

这里facets=.~year表示分别按照year属性字段分组制图

箱图

qplot(color,price,data=dsmall,geom="boxplot")
qplot(color,price,data=dsmall,geom="boxplot",fill=color)
qplot(color,price,data=dsmall,geom="boxplot",size=I(1.5))
qplot(color,price,data=dsmall,geom="boxplot",fill=I("blue"))

改变颜色，线粗细

qplot(color,price,data=dsmall,geom="boxplot")+geom_boxplot(outlier.color="green",outlier.size = 10,fill="red",size=2)

设置点的大小颜色和线性的粗细，填充颜色

直方图

qplot(carat,data=diamonds,geom="histogram",color=color,fill=color)

color线的颜色

密度图

qplot(carat,data=diamonds,geom="density")
qplot(carat,data=diamonds,geom="density",color=color)

可用fill选择颜色

条状图

qplot(color,data=diamonds,geom="bar",fill=color)

折线图

qplot(date,unemploy/pop,data=economics,geom="line")
qplot(date,unemploy/pop,data=economics,geom=c("point","path"))

数据源选取economics包里的几个变量做的折线分析

保存读取图表，导出成图片

p=qplot(date,unemploy/pop,data=economics,geom="line")
save(p,file="plot.rdata")
lode("plot.rdata")
ggsave("plot.png",width=5,height=5)

教程资料来源于B站up主mmmm_007