library(devEMF) emf(file = "trial.emf", emfPlus = FALSE) plot(1:10, seq(10, 100, 10), type = "l", xlab = "Time", ylab = "Distance") dev.off() # When you paste this image in word you can resize it and it will keep its quality