R:检测两个图形是否相同

Question

我目前正在开发一个包，以在 R 中生成视觉能力评估项目。这些项目通常从一个合成开始，然后以某种方式转换合成元素以创建新的合成。我需要知道的是，如果有替代转换会导致相同的组合。以数学方式检查每个组合的潜在选项并查看组合是否对某些变换保持不变(例如，圆不能旋转)或者不同的变换是否导致相同的结果(例如旋转 180 度的等边三角形与翻转相同)似乎太累了由于众多潜在的组合。

因此，我想知道是否有任何可用的方法可以检查 R 中的两个图是否相同？

假设我们有两组命令，它们都产生正方形:

plot(c(0,1), c(0,1), type='n')
  lines(c(.15,.85,.85,.15,.15),c(.15,.15,.85,.85,.15))

plot(c(0,1), c(0,1), type='n')
  rect(.15,.15,.85,.85)

是否有任何工具可用于两个图形渲染的逐像素比较？

Answer 1

您可以将图片保存为 png 并加载它们并比较各自的栅格。比较栅格只是比较像素矩阵。例如用你的例子做这个:

png(filename="pic1.png")
plot(c(0,1), c(0,1), type='n')
lines(c(.15,.85,.85,.15,.15),c(.15,.15,.85,.85,.15))
dev.off()

png(filename="pic2.png")
plot(c(0,1), c(0,1), type='n')
rect(.15,.15,.85,.85)
dev.off()

然后比较栅格我们发现它们是相同的:

library(png)
pic1 = as.raster(readPNG("pic1.png"))
pic2 = as.raster(readPNG("pic2.png"))

identical(pic1,pic2)
[1] TRUE