03-R语言绘图

R语言绘图•R语言是一门快速发展的开源软件，是SAS、STATA和SPSS这类商业软件的竞争对手。就业市场对R语言的需求正在迅速上升，微软等公司也同时承诺将致力让R语言成为数据科学通用语言。内置绘图功能#Createdataforthegraph.x-c(11,30,39,20)labels-c(70后,80后,90后,00后)#Givethechartfileaname.png(file=birth_of_age.jpg)#Plotthechart.pie(x,labels)#Savethefile.dev.off()•ggplot2是由HadleyWickham创建的一个十分强大的可视化R包。按照ggplot2的绘图理念，Plot(图)=data(数据集)+Aesthetics(美学映射)+Geometry(几何对象)：•data:数据集，主要是dataframe；•Aesthetics:美学映射，比如将变量映射给x,y坐标轴，或者映射给颜色、大小、形状等图形属性；•Geometry:几何对象，比如柱形图、直方图、散点图、线图、密度图等。•install.packages(“ggplot2”,repos=)•指定北京大学的镜像作为数据来源安装ggplot加载及数据准备加载library(ggplot2)#loadthedatasetdata(mtcars)df-mtcars[,c(mpg,cyl,wt)]#将cyl转为因子型factordf$cyl-as.factor(df$cyl)head(df)数据导入出导出导出为CSV文件write.csv(mpg,file=/Users/yuanzhengwen/R/mpg.csv)从CSV文件导入d-read.csv('/Users/yuanzhengwen/R/mpg.csv')1.散点图命令：qplot(x=mpg,y=wt,data=df,geom=point)1.添加趋势线命令qplot(x=mpg,y=wt,data=df,geom=c(point,smooth))1.添加颜色与形状命令：qplot(x=mpg,y=wt,data=df,colour=cyl,shape=cyl)2.箱线图构造数据#构造数据集set.seed(1234)wdata-data.frame(sex=factor(rep(c(F,M),each=200)),weight=c(rnorm(200,55),rnorm(200,58)))head(wdata)2.箱线图命令：qplot(sex,weight,data=wdata,geom=boxplot,fill=sex)3.小提琴图命令：qplot(sex,weight,data=wdata,geom=violin)4.小提琴图命令：qplot(sex,weight,data=wdata,geom=violin)3.直方图、密度图命令：qplot(weight,data=wdata,geom=histogram,fill=sex)3.直方图、密度图命令：qplot(weight,data=wdata,geom=density,color=sex,linetype=sex)4.使用ggplot函数绘图散点图命令：ggplot(data=df,aes(x=mpg,y=wt))+geom_point()4.使用ggplot函数绘图改变点的形状、大小、颜色命令：ggplot(data=df,aes(x=mpg,y=wt))+geom_point(color=blue,size=2,shape=23)4.使用ggplot函数绘图创建图层命令：b-ggplot(data=mtcars,aes(x=wt,y=mpg))4.使用ggplot函数绘图改变点的形状、大小、颜色命令：ggplot(data=df,aes(x=mpg,y=wt))+geom_point(color=blue,size=2,shape=23)4.使用ggplot函数绘图添加图层可能添加的图层有：geom_point():散点图geom_smooth():平滑线geom_quantile():分位线geom_rug():边际地毯线geom_jitter():避免重叠geom_text():添加文本注释4.使用ggplot函数绘图添加散点图图层命令：b+geom_point()4.使用ggplot函数绘图将变量cyl映射给点的颜色和形状命令：b+geom_point(aes(color=factor(cyl),shape=factor(cyl)))4.使用ggplot函数绘图自定义颜色命令：b+geom_point(aes(color=factor(cyl),shape=factor(cyl)))+scale_color_manual(values=c(#999999,#E69F00,#56B4E9))+theme_classic()4.使用ggplot函数绘图添加回归曲线命令：b+geom_smooth()4.使用ggplot函数绘图散点图+线性回归命令：b+geom_point()+geom_smooth(method=lm,se=FALSE)#去掉置信区间4.使用ggplot函数绘图LOESS局部加权非参数回归命令：b+geom_point()+geom_smooth(method=loess)4.使用ggplot函数绘图将变量映射给颜色和形状命令：b+geom_point(aes(color=factor(cyl),shape=factor(cyl)))+geom_smooth(aes(color=factor(cyl),shape=factor(cyl)),method=lm,se=FALSE,fullrange=TRUE)4.使用ggplot函数绘图添加文本注释命令：b+geom_text(aes(label=rownames(mtcars)))3.图片导出命令：setwd()设置当前工作目录getwd()查询当前工作目录ggsave(output.pdf)Thanksforyourattention!