Как разбить на страницы несколько графиков в R в отдельных файлах jpeg?

Я хотел бы построить несколько графиков в отдельных файлах растровых изображений, используя шаблон имени файла (например, для JPEG) файл.% 03d.jpg ] в R. Я пробовал использовать что-то вроде:

somevar <- 1
jpg(paste(sep='',filename,'.%03d.jpg'))
while(somevar <= n)
{
  plot(data[somevar])
  dev.new()
  somevar <- somevar + 1
}
dev.off()

, но он создает один файл .jpg и несколько файлов Rplotnnn.pdf . Как изменить устройство по умолчанию на jpg и использовать собственный шаблон имени файла?