Це розміщено в перекладі на групі Google ggplot2
Моя ситуація полягає в тому, що я працюю над функцією, яка виводить довільну кількість графіків (залежно від вхідних даних, наданих користувачем). Функція повертає список з n ділянок, і я хотів би викласти ці ділянки у форматі 2 x 2. Я борюся з одночасними проблемами:
- Як я можу дозволити гнучкості передавати довільну (n) кількість сюжетів?
- Як я можу також вказати, я хочу, щоб вони були викладені 2 x 2
Моя поточна стратегія використовує grid.arrange
з gridExtra
пакету. Це, мабуть, не оптимально, тим більше, що це важливо , але це зовсім не працює . Ось мій коментований зразок коду, експериментуючи з трьома сюжетами:
library(ggplot2)
library(gridExtra)
x <- qplot(mpg, disp, data = mtcars)
y <- qplot(hp, wt, data = mtcars)
z <- qplot(qsec, wt, data = mtcars)
# A normal, plain-jane call to grid.arrange is fine for displaying all my plots
grid.arrange(x, y, z)
# But, for my purposes, I need a 2 x 2 layout. So the command below works acceptably.
grid.arrange(x, y, z, nrow = 2, ncol = 2)
# The problem is that the function I'm developing outputs a LIST of an arbitrary
# number plots, and I'd like to be able to plot every plot in the list on a 2 x 2
# laid-out page. I can at least plot a list of plots by constructing a do.call()
# expression, below. (Note: it totally even surprises me that this do.call expression
# DOES work. I'm astounded.)
plot.list <- list(x, y, z)
do.call(grid.arrange, plot.list)
# But now I need 2 x 2 pages. No problem, right? Since do.call() is taking a list of
# arguments, I'll just add my grid.layout arguments to the list. Since grid.arrange is
# supposed to pass layout arguments along to grid.layout anyway, this should work.
args.list <- c(plot.list, "nrow = 2", "ncol = 2")
# Except that the line below is going to fail, producing an "input must be grobs!"
# error
do.call(grid.arrange, args.list)
Як мені не хочеться, я смиренно туляться в кутку, з нетерпінням чекаючи шалених відгуків громади, набагато мудрішої за мене. Особливо, якщо я роблю це складніше, ніж це потрібно.