การเพิ่มคุณภาพของเอาต์พุต EMF ใน R และ ggplot2

ฉันกำลังสร้างและบันทึกไฟล์ EMF ด้วย ggplot2 และด้วยคำสั่ง win.graph กราฟเอาต์พุตมีคุณภาพต่ำและเส้นดูหยัก ฉันจำเป็นต้องมีมันในรูปแบบ 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()