如何测试两个ggplot对象在功能上是否等效？

有时两个ggplot对象的视觉输出完全一致，但对象本身的结构或属性并不相同，这时需要一种方法来判断它们的视觉等效性。目前ggplot2官方并未提供原生支持，因此需要社区实现的解决方案或封装函数。

以下是一个初步实现的预期效果：

library(ggplot2)
p1 <- ggplot(cars, aes(dist, speed)) + ggplot2::geom_point() 
p2 <- ggplot(cars, aes(dist, speed)) + geom_point() + scale_x_continuous(breaks = seq(0, 125, 25))
equivalent_ggplot(p1, p2)
#> [1] TRUE

equivalent_ggplot(p1, p2 + geom_blank())
#> [1] TRUE

欢迎大家提出改进方案或其他实现方法。

内容的提问来源于stack exchange，提问作者moodymudskipper