графики, сгенерированные «plot» и «ggplot» бок о бок

Есть ли способ поставить сюжет, сгенерированныйplot функция и сюжет поggplot функция в R на одной странице бок о бок?

Легко поместить графики, созданные одной и той же функцией, на одну страницу, используяpar или жеmultiplot функция, но я не могу понять, вопрос выше.

 Justin23 окт. 2012 г., 02:33
Вы можете посмотреть наgridExtra пакет. Это может сделать это, я думаю.

Ответы на вопрос(2)

рафические объекты. Посмотрите на функцию grid.arrange в пакете gridExtra

 mnel23 окт. 2012 г., 04:32
Если это читатьЕсли они оба основаны на сетке графических систем?
 JAponte29 окт. 2012 г., 14:56
Функция сюжета не основана на сетке. Вероятно, это то, что вы имеете в виду, DWin? Тем не менее, я читал, что есть способы встроить график в систему сетки.
 42-23 окт. 2012 г., 04:35
Возможно, я читал более раннюю версию, в которой говорилось «решетка» и «ggplot2» ... или это пиво, которое я пью, имеет особые качества. Один из тех, кто проголосовал за ваш ответ, мой.
Решение Вопроса

Вы можете сделать это с помощьюgridBase пакет и viewPorts.

library(grid)
library(gridBase)
library(ggplot2)

# start new page
plot.new() 

# setup layout
gl <- grid.layout(nrow=1, ncol=2)
# grid.show.layout(gl)

# setup viewports
vp.1 <- viewport(layout.pos.col=1, layout.pos.row=1) 
vp.2 <- viewport(layout.pos.col=2, layout.pos.row=1) 
# init layout
pushViewport(viewport(layout=gl))
# access the first position
pushViewport(vp.1)

# start new base graphics in first viewport
par(new=TRUE, fig=gridFIG())

plot(x = 1:10, y = 10:1)

# done with the first viewport
popViewport()

# move to the next viewport
pushViewport(vp.2)

ggplotted <- qplot(x=1:10,y=10:1, 'point')
# print our ggplot graphics here
print(ggplotted, newpage = FALSE)

# done with this viewport
popViewport(1)

Этот пример является модифицированной версиейэтот блог поДилан Бодетт

 Paul Rigor06 апр. 2014 г., 19:34
Откуда берется gridFIG ()?
 Elaine23 окт. 2012 г., 06:39
Вы дали очень аккуратный ответ. Благодарю.

Ваш ответ на вопрос