Я использую пакет (treemap) который используетgrid пакет для создания древовидной карты. Тем не менее, я хотел бы построить несколько из этих древовидных карт, чтобы добавитьразные цветовые решения на эти участки.tmPlot функция используетgrid.newpage функция, которая очищает графическое окно. Я не нашел способ сохранитьgrid.newpage объекты, которые вы можете сделать дляggplot2объекты. Есть ли способ построить несколькоgrid.newpage объекты в одно и то же окно?

## 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

Я понимаю, что мое решение масштабировать графики на основе суммы ВНД неверно. Я мог бы задать еще один вопрос об этом позже, когда выясню, как построить эти древовидные карты в одном окне.

РЕДАКТИРОВАТЬ: Я думаю, что ответ на этот вопроснетMsgstr "В настоящее время вы не можете сохранять объекты grid.newpage по имени, а также не можете сохранить некоторые из них на странице, потому что функция" стирает текущее устройство или перемещается на новую страницу ", как сказано вописание, Тем не менее, можно найти обходные пути.tmPlot пакет не поддерживает (по состоянию на 23 марта 2013 г.)viewportс, но версия для разработки делает.