杜雨老师在10月份更新的R包中选择了一个可以用来将图形进行拼接的R包
customLayout
特点
- 它可以用来完成自由拼图，可以使用矩阵自定义图形位置和顺序，用数字来定义每一个模块的长宽比
- 这个包不仅支持数字拼图，还支持R内置的base绘图对象、grid绘图对象等（也就是支持ggplot2对象）。
包的下载
- 可以通过CRAN网站下载
- 同时也提供了github版本
# 第一种方法
install.packages("customLayout")
# 第二种方法
library(devtools)
install_github("zzawadz/customLayout")
用法
- 通过设置基本的参数看这个包的工作原理是什么
library(customLayout)
library(magrittr)
lay <- lay_new(
mat = matrix(1:4, ncol = 2),
widths = c(3, 2),
heights = c(2, 1))
lay_show(lay)
图一
- 参数解释：mat给出要拼图的数据矩阵，将1：4数字按照纵向顺序拼成两行，因为ncol指定了两列，只能是两行两列，宽比例为3：2，高的比例为2：1。
- 再给个例子
lay2 <- lay_new(
matrix(1:4, nc = 2),
widths = c(3, 5),
heights = c(2, 4))
lay_show(lay2)
图二
- 还支持将上面两个图形矩阵拼接为一个，并且还可以设置比例（不过这里的比例是以每个矩阵为整体而变化）
cl = lay_bind_col(lay, lay2, widths = c(3, 1))
lay_show(cl)
图三
- 除此之外，还可以将一个模块嵌入到另一个模块的特定位置，如将一幅图插入到另一幅图的第四个区域
lay <- lay_new(
matrix(1:4, nc = 2),
widths = c(3, 2),
heights = c(2, 1))
lay_show(lay)
lay2 <- lay_new(
matrix(1:4, nc = 2),
widths = c(3, 5),
heights = c(2, 4))
lay_show(lay2)
slay <- lay_split_field(lay, lay2, field = 4)
lay_show(slay)
图四
支持基础绘图拼接
- 设定模块
par(mar = c(3, 2, 2, 1))
lay <- lay_new(
matrix(1:4, nc = 2),
widths = c(3, 2),
heights = c(2, 1))
lay2 <- lay_new(matrix(1:3))
cl <- lay_bind_col(lay, lay2, widths = c(3, 1))
lay_show(cl)
图五 模块设定
- 绘图
lay_set(cl) # initialize drawing areaset.seed(123)
plot(1:100 + rnorm(100))
plot(rnorm(100), type = "l")
hist(rnorm(500))
acf(rnorm(100))
pie(c(3, 4, 6), col = 2:4)
pie(c(3, 2, 7), col = 2:4 + 3)
pie(c(5, 4, 2), col = 2:4 + 6)
图六 往上面设定好的模块中放图
以上就是关于R包customLayout的介绍，可以用于临时的对图形的拼接，后期再用ps进行调整。而且只要你想象力足够丰富，拼成意见艺术品也不是不可能，动起手来吧！