Я не знаю способа объединить два участка в одном. Тем не менее, вы можете использовать iplot.location()
и iplot.size
, как вы уже упоминали:
library(iplots)
iPlotsRestore <- function(setting) {
invisible(lapply(1:length(iplot.list()), function(x) {
iplot.location(x = setting[[x]]['x'], y = setting[[x]]['y'], plot = iplot.list()[[x]])
iplot.size(width = setting[[x]]['width'], height = setting[[x]]['height'], plot = iplot.list()[[x]])
}))
}
iplotsStore <- function() {
setting <- lapply(iplot.list(), function(x) iplot.location(plot = x))
return(setting)
}
setting <- list(structure(c(542, 527, 432, 416), .Names = c("x", "y", "width", "height")), structure(c(10, 0, 432, 416), .Names = c("x", "y", "width", "height")), structure(c(885, 0, 873, 609), .Names = c("x", "y", "width", "height")))
invisible(lapply(iplot.list(), iplot.off)) # delete all plots
ihist(iris$Sepal.Width) # recreate three demo plots
ihist(iris$Petal.Length)
ihist(iris$Sepal.Width)
iPlotsRestore(setting) # recreate old window settings
Используйте IplotsStore
, чтобы получить список параметров окна для всех текущих графиков, которые можно сохранить в файл. Используйте iPlotsRestore
для восстановления параметров окна снова.