Как создать гистограмму для каждого столбца в наборе данных на отдельной странице

Question

Я пытаюсь создать один PDF-файл, который будет иметь гистограмму частоты для каждого столбца в моем наборе данных, но каждая гистограмма будет находиться на отдельной странице.

Я могу использовать приведенный ниже код для создания гистограммы для каждого столбца, но он размещает все это на одной странице. Есть ли способ разделить каждую страницу, преобразовать их в pdf, а затем поместить все в один файл?

ggplot(gather(df), aes(value))+
  geom_histogram(bins = 4)+
  facet_wrap(~key, scales = 'free_x')

Готовым продуктом будет один файл PDF, содержащий 300+ (по 1 на каждый столбец) гистограмм.

РЕДАКТИРОВАТЬ 1:

Для этого кода

df <- data.frame(
  X = sample(c(0,1,2,3), 10, replace = TRUE),
  Y = sample(c(0,1,2,3), 10, replace = TRUE),
  Z = sample(c(0,1,2,3), 10, replace = TRUE)
)

Я бы хотел 3 отдельные гистограммы в 1 файле PDF.

Answer 1

Просто вызовите функцию pdf(), затем используйте цикл for для итерации по каждому столбцу:

pdf('plots.pdf')
for(i in 1:length(df)){
  ggplot(data = df) +
    geom_histogram(mapping = aes(x = df[,i]), bins = 4)
}
dev.off()