Установка ширины в объекте gtable обрушивает график; это работало, но больше этого не происходит.

Question

Следующий код использовался, но больше не работает. Кто-нибудь знает, что происходит? Это должно быть некоторое изменение в базовом файле gtable.

require(cowplot) # for plot_grid() 
require(grid) # for unit_max() 

# make two plots 
plot.iris <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) + 
    geom_point() + facet_grid(. ~ Species) + stat_smooth(method = "lm") + 
    background_grid(major = 'y', minor = "none") + 
    panel_border() 
plot.mpg <- ggplot(mpg, aes(x = cty, y = hwy, colour = factor(cyl))) + 
    geom_point(size=2.5) 

g.iris <- ggplotGrob(plot.iris) # convert to gtable 
g.mpg <- ggplotGrob(plot.mpg) # convert to gtable 

iris.widths <- g.iris$widths[1:3] # extract the first three widths, 
            # corresponding to left margin, y lab, and y axis 
mpg.widths <- g.mpg$widths[1:3] # same for mpg plot 
max.widths <- unit.pmax(iris.widths, mpg.widths) # calculate maximum widths 
g.iris$widths[1:3] <- max.widths # assign max. widths to iris gtable 
g.mpg$widths[1:3] <- max.widths # assign max widths to mpg gtable 

plot_grid(g.iris, g.mpg, labels = "AUTO", ncol = 1) 

Полученный график выглядит следующим образом:

Что это должно выглядеть это (с линии оси у идеально выровнены по вертикали):

ошибка, кажется, происходит в эта линия:

g.iris$widths[1:3] <- max.widths 

Любое понимание будет оценено по достоинству.

Обратите внимание, что подобные решения были использованы в течение длительного времени, см., Например, here. И функция plot_grid() в cowplot использует код, подобный этому, также для выравнивания графиков, и он все еще работает. Так что это полностью озадачило меня. не

Answer 1

Редактировать
С grid версии 3.3.0, это больше не является проблемой. То есть строки кода, содержащие grid:::unit.list() ниже, могут быть удалены.

Проблема заключается в том, чтобы установить единицы измерения. Посмотрите на g.iris$widths. Вы заметите, что цифры есть, но единицы были сброшены. См. Это question and answer и this one. После преобразования участков в gtables, вам нужно: g.iris$widths = grid:::unit.list(g.iris$widths)

require(grid) # for unit_max() 
require(cowplot) 

# make two plots 
plot.iris <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) + 
    geom_point() + facet_grid(. ~ Species) + stat_smooth(method = "lm") + 
    background_grid(major = 'y', minor = "none") + 
    panel_border() 
plot.mpg <- ggplot(mpg, aes(x = cty, y = hwy, colour = factor(cyl))) + 
    geom_point(size=2.5) 

g.iris <- ggplotGrob(plot.iris) # convert to gtable 
g.mpg <- ggplotGrob(plot.mpg) # convert to gtable 

g.iris$widths = grid:::unit.list(g.iris$widths) 
g.mpg$widths = grid:::unit.list(g.mpg$widths) 

iris.widths <- g.iris$widths[1:3] # extract the first three widths, 
            # corresponding to left margin, y lab, and y axis 
mpg.widths <- g.mpg$widths[1:3] # same for mpg plot 

max.widths <- unit.pmax(iris.widths, mpg.widths) # calculate maximum widths 

g.iris$widths[1:3] <- max.widths # assign max. widths to iris gtable 
g.mpg$widths[1:3] <- max.widths # assign max widths to mpg gtable 

plot_grid(g.iris, g.mpg, labels = "AUTO", ncol = 1)