Сохранение файла в формате pdf в R-языке

Question

Я хочу получить вывод этих графиков в два отдельных файла PDF.
Когда я запускаю программу, она генерирует файлы, но когда я открываю файлы, она дает мне следующее сообщение.
«Ошибка при открытии этого документа. Документ не открывается, потому что у него нет страниц»
Не могли бы вы рассказать мне, что я делаю неправильно?
Код следующие

plot_graph <- function(data_frame) 
{ 
require(lattice) 
pdf("myplot1.pdf") 
xyplot(V21 ~ V4|V1, data = data_frame) 
pdf(file = "myplot2.pdf") 
xyplot(V22 ~ V4|V1, data = data_frame) 
dev.off() 
} 

Answer 1

Вы должны вызвать dev.off() для каждого устройства вы открываете. Попробуйте

plot_graph <- function(data_frame) { 
    require(lattice) 
    pdf("myplot1.pdf") 
    print(xyplot(mpg ~ hp|gear, data = data_frame)) 
    dev.off() 
    pdf("myplot2.pdf") 
    print(xyplot(disp ~ hp| gear, data = data_frame)) 
    dev.off() 
} 
plot_graph(mtcars)