Estoy usando un paquete (treemap) que usagrid paquete para producir un treemap. Sin embargo, me gustaría trazar varios de estos mapas de ruta juntos, para agregardiferentes esquemas de color a estas parcelas.tmPlot usos de la funcióngrid.newpage Función, que borra la ventana gráfica. No he encontrado una manera de ahorrargrid.newpage objetos que puedes hacer porggplot2objetos. ¿Hay una manera de trazar variosgrid.newpage objetos a una misma ventana?

## Example

library(treemap)

# load Gross national income data
data(GNI2010)

size <- aggregate(GNI ~ continent, GNI2010, sum)
size <- size[with(size, order(GNI, decreasing = T)),]

cont <- size$continent

widths <- c(sum(size[c(1,3,5),]$GNI),
sum(size$GNI) - sum(size[c(1,3,5),]$GNI))

heights <- c(sum(size[c(1,2),]$GNI),
sum(size[c(3,4),]$GNI),
sum(size[c(5,6),]$GNI))

palettes <- c("Greens", "Blues", "Reds", "Oranges", "Purples", "Greys")

i <- 1 # This is to be replaced by for loop

x <- subset(GNI2010, continent == cont[i], cex = 5)

# create treemap

layout(matrix(1:6, 3, byrow = TRUE), widths = widths, heights = heights)
x1 <- tmPlot(x,
index=c("iso3"),
vSize="population",
vColor="GNI",
type="value", title = "", 
position.legend = "none",
palette = palettes[i])
grid.text(cont[i], 0.5, 0.5, gp=gpar(fontsize=20, font = 2, col = "white"))

## x1 is does not make a plot as such and tmPlot overwrites layout

Entiendo que mi solución para escalar las parcelas basadas en la suma del INB no es correcta. Podría hacer otra pregunta sobre eso más adelante, una vez que averigüe cómo trazar estos mapas en una misma ventana.

EDITAR: Creo que la respuesta a esta pregunta es "no". Actualmente no puede guardar los objetos de grid.newpage por nombre, ni tampoco puede guardar varios de estos en una página, porque la función" borra el dispositivo actual o se mueve a una nueva página ", como se dice en ladescripción. Sin embargo, es posible encontrar alrededores.tmPlot El paquete no es compatible actualmente (hasta el 23 de marzo de 2013)viewports, pero la versión de desarrollo hace.