散点图
堆积柱形图
library(ggplot2)ggplot(mtcars,aes(mpg,wt))+geom_point()
簇状柱形图
library(ggplot2)
ggplot(mtcars,aes(factor(cyl),fill=factor(am)))+geom_bar()
直方图
密度图
library(ggplot)
ggplot(mtcars,aes(factor(cyl),fill=factor(am)))+geom_bar(position="dodge")
箱线图
library(ggplot)
ggplot(mtcars,aes(mpg,color=factor(vs)))+geom_density()ggplot(mtcars,aes(mpg,fill=factor(vs)))+geom_density()
library(ggplot)
ggplot(mtcars,aes(factor(vs),mpg))+geom_boxplot()
library(ggplot)
ggplot(mtcars,aes(wt,mpg,color=qsec))+geom_point()
4.调整图像的元素
4.1形状
形状:geom_XXX(shape=x),x=1,2,3…,不同数值是不同的形状
大小:size=x,x=1,2,3…,数值越大,尺寸越大
4.2 颜色
color:是对图形的边缘、点和线进行描绘;
fill:填充图形内部的颜色
指定填充一种颜色:直接在aes外部填写,color="某种颜色”
4.3文本注释
annotate(“text”,x=,y=,label=“”)
text :表示添加类型为文本
x=,y=表示在指定位置上放上文本
label :表示填写的文本内容
4.4标题:
labs(little =“”,x=“”,y=“”)
4.5 加线条
加竖线:geom_vline(xintercept=)
加横线:geom_hline(yintercept=)
4.6 xy轴互换
coord_flip()
4.7调整轴刻度的范围
x轴:xlim(下限,上限)
y轴:ylim(下限,上限)
4.8 修改轴上的值
X:scale_x_continuous(breaks(),labels=c()
Y:scale_y_continuous(breaks(),labels=c()
library(ggplot)
ggplot(mtcars,aes(wt,mpg,color=factor(vs)))+geom_point()
library(ggplot)
ggplot(mtcars,aes(wt,mpg,color=factor(vs)))+geom_point()+annotate("text",x=4,y=20,label="yes")+labs(title="hello",x="xxx",y="yyy")+geom_vline(xintercept=3)+geom_hline(yintercept=20)+xlim(3,4)+ylim(15,25)+scale_x_continuous(breaks = c(3.00,3.25,3.50,3.75,4.00),labels=c("a","b","c","d","e"))
5 分面作图
下面是两个经常要用到的分面函数。
facet_wrap(facets, nrow = NULL, ncol = NULL, scales = “fixed”, shrink = TRUE, as.table = TRUE, drop = TRUE)
facet_grid(facets, margins = FALSE, scales = “fixed”, space = “fixed”, shrink = TRUE, labeller = “label_value”, as.table = TRUE, drop = TRUE)
其中facet_wrap和facet_grid不同在于facet_wrap是基于一个因子进行设置,facets表示形式为:变量(单元格) 而facet_grid是基于两个因子进行设置,facets表示形式为:变量变量(行列),如果把一个因子用点表示,也可以达到facet_wrap的效果,也可以用加号设置成两个以上变量
5.1 轴刻度一致
单变量作图
library(ggplot)
ggplot(mtcars,aes(wt,mpg,color=factor(vs)))+geom_point()+annotate("text",x=4,y=20,label="yes")+labs(title="hello",x="xxx",y="yyy")+geom_vline(xintercept=3)+geom_hline(yintercept=20)+xlim(3,4)+ylim(15,25)
library(ggplot)
ggplot(mtcars,aes(wt,mpg))+geom_point()+facet_grid(~vs,scales="free")
library(ggplot)
ggplot(mtcars,aes(wt,mpg))+geom_point()+facet_grid(vs~.)