提高R和ggplot2中EMF输出的质量

Question

我正在使用ggplot2和win.graph命令生成并保存EMF文件.输出图表质量低,线条看起来很锯齿.我真的需要以EMF格式(导出到pdf解决问题,但我需要EMF文件).我怎样才能让它变得高品质？(emf输出在这里,以防你想看到它)

require(ggplot2)
my.dates = as.Date(c("2011-07-22","2011-07-23",
                     "2011-07-24","2011-07-28","2011-07-29"))
my.vals  = c(5,6,8,7,3)
my.data <- data.frame(date =my.dates, vals = my.vals)
plot(my.dates, my.vals)
p <- ggplot(data = my.data, aes(date,vals))+ geom_line(size = 1.5)
p <- p + scale_x_date(format="%m/%d", ' ')
win.graph(width=860/72, height=450/72,pointsize = 12)

print(p)
savePlot("c:/test.emf",type="emf")
dev.off()

Answer 1

EMF是基于矢量的.我将EMF文件粘贴到powerpoint幻灯片中,我注意到它们被渲染为低分辨率.如果右键单击EMF文件并选择编辑照片,它将正确呈现它.这解决了我的问题.

更新: 我继续写了一个小的VBA脚本来取消组合EMF文件.它将其分解为可以轻松缩放的图形对象.现在看起来很不错.