1 安装
# 获取ggplot2 最容易的就是下载整个tidyverse: install.packages"tidyverse") # 也可以选择只下载ggplot2: install.packages"ggplot2") # 或者下载GitHub上的开发者版本 # install.packages"devtools") devtools::install_github"tidyverse/ggplot2")
2 快速入门
1 基本设置
libraryggplot2) ggplotdiamonds) #以diamonds数据集为例 #gg <- ggplotdf, aesx=xcol, y=ycol)) 其中df只能是数据框 ggplotdiamonds, aesx=carat)) # 如果只有X-axis值 Y-axis can be specified in respective geoms. ggplotdiamonds, aesx=carat, y=price)) # if both X and Y axes are fixed for all layers. ggplotdiamonds, aesx=carat, color=cut)) # 'cut' 变量每种类型单独一个颜色, once a geom is added. #aes代表美化格式 ggplot2 把 X 和 Y 轴也当作和颜色、尺寸、形状等相同的格式 设定颜色不是基于数据框中的变量)，需要在aes)外面设置 ggplotdiamonds, aesx=carat), color="steelblue")
2 层
ggplot2 中的层也叫做 ‘geoms’.一旦完成基本设置，就可以再上面添加不同的层 此documentation 中提供所有的层的信息，增加层后，图形才会展示出来。
libraryggplot2) gg <- ggplotdiamonds, aesx=carat, y=price)) gg + geom_point)
gg + geom_pointsize=1, shape=1, color="steelblue", stroke=2) # 'stroke' 控制点边界的宽度 静态设置格式
gg + geom_pointaessize=carat, shape=cut, color=color, stroke=carat)) # carat, cut color 动态根据数据框中变量设置格式
ggplotdiamonds, aesx=carat, y=price, color=cut)) + geom_point) + geom_smooth) # Adding scatterplot geom layer1) and smoothing geom layer2).
#或者是在geom层里面自定义美化格式ggplotdiamonds) + geom_pointaesx=carat, y=price, color=cut)) + geom_smoothaesx=carat, y=price, color=cut))
#把不同平滑曲线整合成一条
libraryggplot2) ggplotdiamonds) + geom_pointaesx=carat, y=price, color=cut)) + geom_smoothaesx=carat, y=price)) # Remove color from geom_smooth ggplotdiamonds, aesx=carat, y=price)) + geom_pointaescolor=cut)) + geom_smooth) # same but simpler
# 把不同颜色的散点的形状设成不同的 ggplotdiamonds, aesx=carat, y=price, color=cut, shape=color)) + geom_point)
添加水平或者垂直线
p1 <- gg3 + geom_hlineyintercept=5000, size=2, linetype="dotted", color="blue") # linetypes: solid, dashed, dotted, dotdash, longdash and twodash p2 <- gg3 + geom_vlinexintercept=4, size=2, color="firebrick")#添加垂直线 p3 <- gg3 + geom_segmentaesx=4, y=5000, xend=4, yend=10000, size=2, lineend="round"))#添加方块 p4 <- gg3 + geom_segmentaesx=carat, y=price, xend=carat, yend=price-500, color=color), size=2) + coord_cartesianxlim=c3, 5)) # x, y: start points. xend, yend: end points gridExtra::grid.arrangep1,p2,p3,p4, ncol=2)
3 标签
使用 labs 层来自定义标签
libraryggplot2) gg <- ggplotdiamonds, aesx=carat, y=price, color=cut)) + geom_point) + labstitle="Scatterplot", x="Carat", y="Price") # 增加坐标轴和图像标题 printgg)#保存图形
4 主题和格式调整
使用Theme函数控制标签的尺寸、颜色等，在element_text)函数内自定义具体的格式，想要清除格式，则设为element_blank)即可
gg1 <- gg + themeplot.title=element_textsize=30, face="bold"),
axis.text.x=element_textsize=15), #x轴文本
axis.text.y=element_textsize=15),
axis.title.x=element_textsize=25),
axis.title.y=element_textsize=25)) +
scale_color_discretename="Cut of diamonds") # add title and axis text, 改变图例标题
#scale_shape_discretename="legend title") 基于离散分类变量生成对应图例标题
#scale_shape_continuousname="legend title") 基于连续变量 shape fill color属性
printgg1)
#改变图形中所有文本的颜色等 gg2 + themetext=element_textcolor="blue")) # all text turns blue.
#改变点的颜色 gg3 + scale_colour_manualname='Legend', values=c'D'='grey', 'E'='red', 'F'='blue', 'G'='yellow', 'H'='black', 'I'='green', 'J'='firebrick'))
颜色表：
调整x y轴范围
三种方法：
Using coord_cartesianxlim=cx1,x2))
Using xlimcx1,x2))
Using scale_x_continuouslimits=cx1,x2)) 注意：第2、3种方法会删除数据框中不在范围之内的点的信息
#调整x y 轴范围
gg3 + coord_cartesianxlim=c0,3), ylim=c0, 5000)) + geom_smooth) # zoom in
#删除坐标范围之外的点 注意这时候平滑线也会相应改变 可能会误导分析 gg3 + scale_x_continuouslimits=c0,3)) + scale_y_continuouslimits=c0, 5000)) + geom_smooth) # deletes the points outside limits #> Warning message: #> Removed 14714 rows containing missing values geom_point).
#改变x y轴标签 间隔等 gg3 + scale_x_continuouslabels=c"zero", "one", "two", "three", "four", "five")) + scale_y_continuousbreaks=seq0, 20000, 4000)) # Y 是连续变量 X 是类型变量
#旋转文本角度 gg3 + themeaxis.text.x=element_textangle=45), axis.text.y=element_textangle=45))
gg3 + coord_flip) #把x和y轴对换
#设置图形内背景网格 gg3 + themepanel.background = element_rectfill = 'springgreen'), panel.grid.major = element_linecolour = "firebrick", size=3), panel.grid.minor = element_linecolour = "blue", size=1))
图形背景与边距
#设置图形外背景颜色和边距 gg3 + themeplot.background=element_rectfill="yellowgreen"), plot.margin = unitc2, 4, 1, 3), "cm")) # top, right, bottom, left
图例
gg3 + scale_color_discretename="") # 删除图例标题 p1 <- gg3 + themelegend.title=element_blank)) # 删除图例标题 p2 <- gg3 + scale_color_discretename="Diamonds") # 改变图例标题 gg3 + scale_colour_manualname='Legend', values=c'D'='grey', 'E'='red', 'F'='blue', 'G'='yellow', 'H'='black', 'I'='green', 'J'='firebrick'))# 改变图例标题和点颜色 #隐藏图例标题 gg3 + themelegend.position="none") # hides the legend #改变图例位置 p1 <- gg3 + themelegend.position="top") # top / bottom / left / right 图形外 #图形内 p2 <- gg3 + themelegend.justification=c1,0), legend.position=c1,0)) # legend justification 是图例的定标点 把图例的左下点作为 0,0) gridExtra::grid.arrangep1, p2, ncol=2) #相当于librarygridExtra) #grid.arrangep1, p2, ncol=2) #改变图例具体项目的顺序 按照需求在图例中创建一个新的类型变量 df$newLegendColumn <- factordf$legendcolumn, levels=cnew_order_of_legend_items), ordered = TRUE) #legend.title - 图例标题 #legend.text - 图例文本 #legend.key - 图例背景框 #guides - 图例符号 gg3 + themelegend.title = element_textsize=20, color = "firebrick"), legend.text = element_textsize=15), legend.key=element_rectfill='steelblue')) + guidescolour = guide_legendoverride.aes = listsize=2, shape=4, stroke=2))) # legend title color and size, box color, symbol color, size and shape.
5 多图绘制
gg1 + facet_wrap ~ cut, ncol=3) # cut类型变量的每种类型是一个图 设置为三列 gg1 + facet_wrapcolor ~ cut) # row: color, column: cut 左边的对应行 右边的对应列 gg1 + facet_wrapcolor ~ cut, scales="free") # row: color, column: cut 释放尺度限制 gg1 + facet_gridcolor ~ cut) # 为方便比较 把所有图片放在网格中 头信息去掉 更多的空间给图形
6 一些经常用到的特征
制作时间序列图形使用ggfortify)
使用ggfortify包很容易直接用一个时间序列对象来画时间序列图形，而不用把数据类型转换为数据框，更多请见
#下载ggfortify包 librarydevtools) install_github'sinhrks/ggfortify')
ggfortify 使得 ggplot2 知道怎么解译 ts 对象. 加载 ggfortify 包后, 你可以使用 ggplot2::autoplot 函数来操作 ts 对象
libraryggfortify) autoplotAirPassengers) + labstitle="AirPassengers") # where AirPassengers is a 'ts' object
autoplotAirPassengers, ts.colour = 'red', ts.linetype = 'dashed')#改变线的颜色和类型 #使用 helpautoplot.ts) or helpautoplot.*) for any other objects) 来查询可以改变的选项
autoplot 也能处理其他时间序列类型. 支持的包有:
zoo::zooreg
xts::xts
timeSeries::timSeries
tseries::irts
libraryxts) autoplotas.xtsAirPassengers), ts.colour = 'green')
也能通过命名改变{ggplot2} 几何图形类型. 支持线、条形、点图
autoplotAirPassengers, ts.geom = 'bar', fill = 'blue') autoplotAirPassengers, ts.geom = 'point', shape = 3)
同一张图上画多个时间序列
要求数据是数据框类型，且一列必须为时间数据
（1）转换成数据框后，累加层
# Approach 1: dataeconomics, package="ggplot2") # 数据初始化 economics <- data.frameeconomics) # 转换为数据框类型 ggploteconomics) + geom_lineaesx=date, y=pce, col="pcs")) + geom_lineaesx=date, y=unemploy, col="unemploy")) + scale_color_discretename="Legend") + labstitle="Economics") # 画多条线 使用 'geom_line's
（2）使用 reshape2::melt 设置 id 到日期格式来合并数据框. 然后增加一个 geom_line 把颜色格式设置为variable 此变量是在合并过程中被创建).
# Approach 2: libraryreshape2) df <- melteconomics[, c"date", "pce", "unemploy")], id="date") ggplotdf) + geom_lineaesx=date, y=value, color=variable)) + labstitle="Economics")# plot multiple time series by melting
条形图
ggplot 默认创建的是 ‘counts’ 型的条形图，即计算某一列变量中每种值出现的频数，这时候无需指定y轴的变量
但是呢，如果想具体指定y轴的值，这时候一定要在geom_bar内设置stat=”identity”
# 绝对条形图: Specify both X adn Y axis. Set stat="identity" df <- aggregatemtcars$mpg, by=listmtcars$cyl), FUN=mean) # 计算每个'cyl'对应的mpg变量均值 namesdf) <- c"cyl", "mpg")#为数据框增加变量名字 headdf) #> cyl mpg #> 1 4 26.66 #> 2 6 19.74 #> 3 8 15.10 gg_bar <- ggplotdf, aesx=cyl, y=mpg)) + geom_barstat = "identity") # Y axis is explicit. 'stat=identity' printgg_bar)
改变条形图的颜色和宽度
df$cyl <- as.factordf$cyl)#把cyl作为类型变量 gg_bar <- ggplotdf, aesx=cyl, y=mpg)) + geom_barstat = "identity", aesfill=cyl), width = 0.25) gg_bar + scale_fill_manualvalues=c"4"="steelblue", "6"="firebrick", "8"="darkgreen"))
改变颜色
libraryRColorBrewer) display.brewer.alln=20, exact.n=FALSE) # 展示所有颜色方案 ggplotmtcars, aesx=cyl, y=carb, fill=factorcyl))) + geom_barstat="identity") + scale_fill_brewerpalette="Reds") # "Reds" is palette name
gg <- ggplotmtcars, aesx=cyl)) p1 <- gg + geom_barposition="dodge", aesfill=factorvs))) # side-by-side 并列 p2 <- gg + geom_baraesfill=factorvs))) # stacked 堆积 gridExtra::grid.arrangep1, p2, ncol=2)
折线图
# 方法 1: gg <- ggploteconomics, aesx=date)) # 基本设置 gg + geom_lineaesy=psavert), size=2, color="firebrick") + geom_lineaesy=uempmed), size=1, color="steelblue", linetype="twodash") #没有图例 # 折线类型有: solid, dashed, dotted, dotdash, longdash and twodash
# 方法 2:
libraryreshape2)
df_melt <- melteconomics[, c"date", "psavert", "uempmed")], id="date") # melt by date.
gg <- ggplotdf_melt, aesx=date)) # setup
gg + geom_lineaesy=value, color=variable), size=1) + scale_color_discretename="Legend") # gets legend.有图例
丝带图
使用 geom_ribbon)画填充时间序列图 需要 ymin and ymax 两个参量
# Prepare the dataframe
st_year <- startAirPassengers)[1] #开始年份
st_month <- "01"
st_date <- as.Datepastest_year, st_month, "01", sep="-"))#开始日期
dates <- seq.Datest_date, length=lengthAirPassengers), by="month")#生产日期数组 以月为间隔
df <- data.framedates, AirPassengers, AirPassengers/2)#一定要记得构建数据框
headdf)
#> dates AirPassengers AirPassengers.2
#> 1 1949-01-01 112 56.0
#> 2 1949-02-01 118 59.0
#> 3 1949-03-01 132 66.0
#> 4 1949-04-01 129 64.5
#> 5 1949-05-01 121 60.5
#> 6 1949-06-01 135 67.5
# Plot ribbon with ymin=0
gg <- ggplotdf, aesx=dates)) + labstitle="AirPassengers") + themeplot.title=element_textsize=30), axis.title.x=element_textsize=20), axis.text.x=element_textsize=15))
gg + geom_ribbonaesymin=0, ymax=AirPassengers)) + geom_ribbonaesymin=0, ymax=AirPassengers.2), fill="green")
gg + geom_ribbonaesymin=AirPassengers-20, ymax=AirPassengers+20)) + geom_ribbonaesymin=AirPassengers.2-20, ymax=AirPassengers.2+20), fill="green")
区域图
geom_area和 geom_ribbon类似，只是 ymin设置为 0，如果想画重叠的区域图，使用 alpha aesthetic 使得最外层为透明的
# Method1: 非重叠区域
df <- reshape2::melteconomics[, c"date", "psavert", "uempmed")], id="date")
headdf, 3)
#> date variable value
#> 1 1967-07-01 psavert 12.5
#> 2 1967-08-01 psavert 12.5
#> 3 1967-09-01 psavert 11.7
p1 <- ggplotdf, aesx=date)) + geom_areaaesy=value, fill=variable)) + labstitle="Non-Overlapping - psavert and uempmed")
# Method2: 重叠区域 PS：因为没有构建成数据框，也就相应没有图例啦
p2 <- ggploteconomics, aesx=date)) + geom_areaaesy=psavert), fill="yellowgreen", color="yellowgreen") + geom_areaaesy=uempmed), fill="dodgerblue", alpha=0.7, linetype="dotted") + labstitle="Overlapping - psavert and uempmed")
gridExtra::grid.arrangep1, p2, ncol=2)
箱形图和小提琴图
可以使用: * outlier.shape * outlier.stroke * outlier.size * outlier.colour 来控制异常点的形状 大小 边缘
如果 notch 被设为 TRUE，见下图
p1 <- ggplotmtcars, aesfactorcyl), mpg)) + geom_boxplotaesfill = factorcyl)),
width=0.5, outlier.colour = "dodgerblue", outlier.size = 4, outlier.shape = 16, outlier.stroke = 2, notch=T) + labstitle="Box plot") # boxplot p2 <- ggplotmtcars, aesfactorcyl), mpg)) + geom_violinaesfill = factorcyl)), width=0.5, trim=F) + labstitle="Violin plot untrimmed)") # violin plot gridExtra::grid.arrangep1, p2, ncol=2)
密度图
ggplotmtcars, aesmpg)) + geom_densityaesfill = factorcyl)), size=2) + labstitle="Density plot") # Density plot
瓦片图（热力图）
corr <- roundcormtcars), 2)#生成相关系数矩阵 对称的 df <- reshape2::meltcorr) gg <- ggplotdf, aesx=Var1, y=Var2, fill=value, label=value)) + geom_tile) + theme_bw) + geom_textaeslabel=value, size=value), color="white") + labstitle="mtcars - Correlation plot") + themetext=element_textsize=20), legend.position="none") libraryRColorBrewer) p2 <- gg + scale_fill_distillerpalette="Reds") p3 <- gg + scale_fill_gradient2) gridExtra::grid.arrangegg, p2, p3, ncol=3)
相同坐标轴范围
ggplotdiamonds, aesx=price, y=price+runifnrowdiamonds), 100, 10000), color=cut)) + geom_point) + geom_smooth) + coord_equal)
自定义布局
gridExtra包能在一个网格中安排放置多个图形
librarygridExtra) grid.arrangeplot1, plot2, ncol=2)
改变主题
切换不同的内置主题：
theme_gray)
theme_bw)
theme_linedraw)
theme_light)
theme_minimal)
theme_classic)
theme_void)
ggthemes 包提供 另外的主题 这些主题模仿啦一些著名杂志或者软件的风格
#从 CRAN下载稳定版 install.packages'ggthemes', dependencies = TRUE) #或者下载开发者版本 library"devtools") install_githubc"hadley/ggplot2", "jrnold/ggthemes"))
ggplotdiamonds, aesx=carat, y=price, color=cut)) + geom_point) + geom_smooth) +theme_bw) + labstitle="bw Theme")
注记
librarygrid)
my_grob = grobTreetextGrob"This text is at x=0.1 and y=0.9, relative!
Anchor point is at 0,0", x=0.1, y=0.9, hjust=0,gp=gparcol="firebrick", fontsize=25, fontface="bold")))
ggplotmtcars, aesx=cyl)) + geom_bar) + annotation_custommy_grob) + labstitle="Annotation Example")
保存图片
plot1 <- ggplotmtcars, aesx=cyl)) + geom_bar) ggsave"myggplot.png") # 保存最近创建的图片 ggsave"myggplot.png", plot=plot1) #保存指定的图形
相关链接：
非常有用：https://ggplot2.tidyverse.org/reference/
Cheatsheets：http://www.rstudio.com/wp-content/uploads/2015/12/ggplot2-cheatsheet-2.0.pdf
教程：http://r-statistics.co/ggplot2-Tutorial-With-R.html
https://ggplot2.tidyverse.org/
时间序列画图包：http://rpubs.com/sinhrks/plot_ts