如何将两个图像（）图拼成一个？

Question

我想通过做类似的事情在一个中添加两个图像（）图：

p1 <- image(something)
p2 <- image(something)

library(gridExtra)
library(grid)
library(lattice)
grid.arrange(p1,p2,ncol = 2)

可悲的是，这不起作用。 也许有人有提示。

Answer 1

以下是在一行/两列中排列两个图像的示例：

x <- y <- seq(-2*pi, 2*pi, len = 27)
r <- sqrt(outer(x^2, y^2, "+"))
par(mfrow=c(1,2)) 
i1 <- image(z = z <- sin(r^2)*exp(-r/6), col  = gray((0:32)/32))
i2 <- image(z = z <- cos(r^42)*exp(-r/6), col  = gray((0:32)/32))

重要的部分是par(mfrow=c(1,2))，它可以显示以下图表或图像（i1和i2）。 上面的代码生成以下图像：

注意：图片示例取自offical R documentation