wykresy wygenerowane przez 'plot' i 'ggplot' obok siebie:

Question

Czy istnieje sposób, aby umieścić wykres generowany przez funkcję plot, a wykres za pomocą funkcji ggplot w R na jednej stronie obok siebie?

Łatwo jest umieścić działki utworzone przez tę samą funkcję na jednej stronie przy użyciu funkcji par lub multiplot, ale nie mogę zrozumieć powyższego pytania.

Answer 1

Możesz to zrobić, używając pakietu gridBase i 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) 

Przykład ten jest zmodyfikowaną wersją this blog post przez Dylan Beaudette

Answer 2

Tak. Oba są graficznymi systemami opartymi na siatce i zwracają obiekty graficzne. Rzuć okiem na funkcję grid.arrange w gridExtra package