6

这似乎与@baptiste 在 2014 年试图解决的问题相似。我正在重新审视我在 6 月份写的代码，其中涉及创建三个 ggplotGrobs 并将它们与对 cbind 的调用结合起来。现在，此代码失败并显示以下消息：“mmm < each 中的错误：未实现这些类型的比较。”

我认为这将特定于我的特定应用程序，但我能够制作一个非常简单、可重现的示例。即使在两个相同的 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)

此代码在带有 grid_3.4.2、gtable_0.2.0 和 ggplot2_2.2.1 的 OS X 10.11.6 上的 R-3.4.2 以及带有 grid_3.3.2 的 Linux 上的 R-3.3.2（从 Ubuntu 16.04 上的源代码编译）失败、gtable_0.2.0 和 ggplot2_2.2.1。

在制作上面的示例之前，我注意到“lemon”包（“gtable_show_lemonade”）中的一个小插曲在两个 gtable 的 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'。我认为我可以使用size = 'first'or来解决它size = 'last'，它不会执行有问题的高度比较，但是默认行为不起作用肯定不方便（并且在某些情况下size = 'max'很有用）。

4

1 回答 1

6

我从未设法在 gtable 中修复此问题，因此 gridExtra 有一个修改版本，名为gtable_cbind.

于 2017-11-15T08:30:53.157 回答