ggplotGrob 对象上的 cbind 失败并显示 "Error in mmm < each : comparison of these types is not implemented"
cbind on ggplotGrob objects fails with "Error in mmm < each : comparison of these types is not implemented"
这似乎类似于 @baptiste 在 2014 年试图解决的问题。我正在重新审视我在 6 月份写的代码，其中涉及创建三个 ggplotGrobs 并将它们与对 cbind 的调用结合起来。现在，此代码失败并显示消息："Error in mmm < each : comparison of these types is not implemented."
我认为这将特定于我的特定应用程序，但我能够制作一个非常简单、可重现的示例。即使在两个相同的 ggplotGrobs 上执行 cbind，此代码仍然失败。
library(ggplot2)
library(gtable)
# Make some plots
pl1 <- ggplot(mtcars, aes(x = disp, y = mpg)) +
geom_point()
pl2 <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Species)) +
geom_point()
# Convert to grobs
pl1_grob <- ggplotGrob(pl1)
pl2_grob <- ggplotGrob(pl2)
# Bind them together -- Error!
combined_grob <- cbind(pl1_grob, pl2_grob)
错误和相关回溯在这里：
> combined_grob <- cbind(pl1_grob, pl2_grob)
Error in mmm < each : comparison of these types is not implemented
> traceback()
8: comp(x_val, y_val)
7: unit(comp(x_val, y_val), x_unit)
6: compare_unit(x$heights, y$heights, pmax)
5: cbind_gtable(x, y, size = size)
4: f(init, x[[i]])
3: Reduce(function(x, y) cbind_gtable(x, y, size = size), gtables)
2: cbind(deparse.level, ...)
1: cbind(pl1_grob, pl2_grob)
此代码在 OS X 10.11.6 上的 R-3.4.2 和 grid_3.4.2、gtable_0.2.0 和 ggplot2_2.2.1 上失败， AND 在 Linux 上使用 R-3.3.2（从 Ubuntu 16.04 上的源代码编译）与 grid_3.3.2、gtable_0.2.0 和 ggplot2_2.2.1 .
在制作上面的示例之前，我注意到 "lemon" 包 ("gtable_show_lemonade") 中的一个小插图在接近尾声时在两个 gtables 的 cbind 上失败并出现相同的错误。我通过 运行 来自源代码的这个小插图的代码确认了这个错误，它是这样的：
library(lemon)
edit(vignette('gtable_show_lemonade', package = 'lemon'))
# Then use whichever editor you opened to copy the temporary filename
# of the vignette source, and run this with source()
已编译的小插图（cbind 失败）在这里：https://cran.r-project.org/web/packages/lemon/vignettes/gtable_show_lemonade.html
小插图编译期间的失败是在 OS X 10.11 (El Capitan) 上使用上述 R-3.4.2 实例 运行 获得的。
对于解决此问题的任何帮助，我将不胜感激！因为我想用我的 Mac 来生成数字（更好的字体情况），我希望有一种方法可以重载函数来解决这个问题。
更新：
如果指定了默认值 size = 'max'（或 size = 'min'），这将是一个 "only" 问题。我认为我可以使用 size = 'first' 或 size = 'last' 来解决它，它们不会执行违规的高度比较，但默认行为不起作用肯定不方便（并且在某些情况下size = 'max' 有用）。
我从来没有设法在 gtable 中修复这个问题，所以 gridExtra 有一个名为 gtable_cbind 的修改版本。
这似乎类似于 @baptiste 在 2014 年试图解决的问题。我正在重新审视我在 6 月份写的代码，其中涉及创建三个 ggplotGrobs 并将它们与对 cbind 的调用结合起来。现在，此代码失败并显示消息："Error in mmm < each : comparison of these types is not implemented."
我认为这将特定于我的特定应用程序，但我能够制作一个非常简单、可重现的示例。即使在两个相同的 ggplotGrobs 上执行 cbind，此代码仍然失败。
library(ggplot2)
library(gtable)
# Make some plots
pl1 <- ggplot(mtcars, aes(x = disp, y = mpg)) +
geom_point()
pl2 <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Species)) +
geom_point()
# Convert to grobs
pl1_grob <- ggplotGrob(pl1)
pl2_grob <- ggplotGrob(pl2)
# Bind them together -- Error!
combined_grob <- cbind(pl1_grob, pl2_grob)
错误和相关回溯在这里：
> combined_grob <- cbind(pl1_grob, pl2_grob)
Error in mmm < each : comparison of these types is not implemented
> traceback()
8: comp(x_val, y_val)
7: unit(comp(x_val, y_val), x_unit)
6: compare_unit(x$heights, y$heights, pmax)
5: cbind_gtable(x, y, size = size)
4: f(init, x[[i]])
3: Reduce(function(x, y) cbind_gtable(x, y, size = size), gtables)
2: cbind(deparse.level, ...)
1: cbind(pl1_grob, pl2_grob)
此代码在 OS X 10.11.6 上的 R-3.4.2 和 grid_3.4.2、gtable_0.2.0 和 ggplot2_2.2.1 上失败， AND 在 Linux 上使用 R-3.3.2（从 Ubuntu 16.04 上的源代码编译）与 grid_3.3.2、gtable_0.2.0 和 ggplot2_2.2.1 .
在制作上面的示例之前，我注意到 "lemon" 包 ("gtable_show_lemonade") 中的一个小插图在接近尾声时在两个 gtables 的 cbind 上失败并出现相同的错误。我通过 运行 来自源代码的这个小插图的代码确认了这个错误，它是这样的：
library(lemon)
edit(vignette('gtable_show_lemonade', package = 'lemon'))
# Then use whichever editor you opened to copy the temporary filename
# of the vignette source, and run this with source()
已编译的小插图（cbind 失败）在这里：https://cran.r-project.org/web/packages/lemon/vignettes/gtable_show_lemonade.html
小插图编译期间的失败是在 OS X 10.11 (El Capitan) 上使用上述 R-3.4.2 实例 运行 获得的。
对于解决此问题的任何帮助，我将不胜感激！因为我想用我的 Mac 来生成数字（更好的字体情况），我希望有一种方法可以重载函数来解决这个问题。
更新：
如果指定了默认值 size = 'max'（或 size = 'min'），这将是一个 "only" 问题。我认为我可以使用 size = 'first' 或 size = 'last' 来解决它，它们不会执行违规的高度比较，但默认行为不起作用肯定不方便（并且在某些情况下size = 'max' 有用）。
我从来没有设法在 gtable 中修复这个问题，所以 gridExtra 有一个名为 gtable_cbind 的修改版本。