拼图神器-customLayout，一个R包解决

杜雨老师在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进行调整。而且只要你想象力足够丰富，拼成意见艺术品也不是不可能，动起手来吧！