Экспорт графики формата eps/emf в R

Question

Я экспортировал рисунок формата eps и emf и открыл его словом. Рисунок очень грубый после преобразования в pdf файл (см. Ниже Рис.1). Если экспортировать рисунок в формате PDF напрямую, такой проблемы нет (см. Ниже Рис.2)

Кто-нибудь может мне помочь с этим? Спасибо!

x=(1:100)
y=x+rnorm(100)*10
postscript("Z:/eps.eps", width = 5, height = 5, horizontal = FALSE,
           onefile = FALSE, paper = "special", colormodel = "cmyk")
plot(x,y,type='l',xlab='',ylab='')
dev.off()


pdf("Z:/pdf.pdf")
plot(x,y,type='l',xlab='',ylab='')
dev.off()

Answer 1

Если вы экспортируете свой график в Powerpoint, используя мой новый export пакет в собственном векторном формате Office, и оттуда сохранить в формате PDF вы увидите, что вы сохраните хорошее качество:

install.packages("export")
library(export)
x=(1:100)
y=x+rnorm(100)*10
plot(x,y,type='l',xlab='',ylab='')
graph2ppt(file="plot.pptx", width=7, height=5)
graph2doc(file="plot.docx", width=7, height=5)

Вот снимок экрана экспортированного графика в Powerpoint:

После экспорта в PDF в Powerpoint (Файл... Сохранить как...PDF...) вы увидите, что он останется в хорошем качестве (на векторной основе, так что вы можете увеличивать столько, сколько хотите) - вот увеличьте экспортированный PDF, чтобы показать это:

Обратите внимание, что в экспортированном Powerpoint вы также можете щелкнуть правой кнопкой мыши на Разгруппировать, чтобы внести любые необходимые небольшие изменения в макет графика (экспорт выполняется в собственном формате OfficeML DrawingML).

Рецепт выше работает для базовых участков R, lattice участки и ggplot2 графики, а также пакет позволяет экспортировать статистические данные в таблицы в Powerpoint & Word, а также...