Неожиданное поведение с использованием cbind с измененным ggplotGrobs

Question

Я пытаюсь редактировать некоторые графики, созданные ggplot2, используя функции, предоставляемые сеткой пакетов и gridExtra. Я понимаю, что только ggplot2 может создавать действительно красивые многогранные сюжеты. Однако в некоторых случаях мне нравится создавать отдельные сюжеты, а затем объединять их вместе позже. Пытаясь сделать именно это, я столкнулся с каким-то неожиданным поведением с использованием cbind() с grid.draw() или grid.arrange() при использовании графика ggplot2, который был отредактирован. Ниже приведен код для MWE:

#Load libraries 
    library(ggplot2); library(gridExtra) 

#Load data 
    data(mtcars) 

#Ggplot 
    p = qplot(wt,mpg,data=mtcars,color=cyl) 
    grob = ggplotGrob(p) 

#Bold xlabel 
    grobEdited = editGrob(grid.force(grob),gPath("xlab","GRID.text"),grep=TRUE,gp=gpar(fontface="bold")) 

#Visualize 
    grid.newpage() 
    grid.draw(grobEdited) 

Он работал, как ожидалось. Теперь, чтобы проиллюстрировать эту проблему, позволяет cbind() два одинаковых отредактированных графиков ggplot2:

#Cbind example with edited graphs 
    grid.newpage() 
    grid.draw(cbind(grobEdited,grobEdited)) 

Он не работает, как ожидалось! Теперь проверьте cbind() на неопубликованных графах:

#Cbind example with grob 
    grid.newpage() 
    grid.draw(cbind(grob,grob)) 

Работы, как и ожидалось. Я новичок в сетчатых фигурах, так что я что-то делаю неправильно?

Answer 1

Я публикую ответ, следующий за комментарием от пользователя @ user20650. Самый простой обходной путь заключается в cbind() в ggplot2 графиков перед редактированием их с помощью функции редактирования, предоставляемые grid или gridExtra:

#Edit after cbind()        
    grobEdited = editGrob(grid.force(cbind(grob,grob)),gPath("xlab","GRID.text"),global=TRUE,grep=TRUE,gp=gpar(fontface="bold")) 

#Visualize 
    grid.newpage() 
    grid.draw(grobEdited)