R语言---ggplot绘图
散点图
堆积柱形图
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~.)