Meningkatkan kualitas keluaran EMF di R dan ggplot2

Saya membuat dan menyimpan file EMF dengan ggplot2 dan dengan perintah win.graph. grafik keluarannya berkualitas rendah dan garis-garisnya tampak bergerigi. Saya benar-benar perlu memilikinya dalam format EMF (mengekspor ke pdf menyelesaikan masalah tetapi saya memerlukan file EMF). Bagaimana saya bisa membuatnya berkualitas tinggi? (output emf ada di sini jika Anda ingin melihatnya)

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()