Exportar gráfico a archivo EPS en R

Un archivo EPS es un archivo gráfico guardado en formato de archivo PostScript encapsulado (EPS) . Los archivos EPS pueden contener imágenes, gráficos o incluso texto. En este artículo, discutiremos cómo exportamos un gráfico a un archivo EPS utilizando el lenguaje de programación R.

Método 1: Usando el método setEPS()

Los postscripts se pueden definir mediante el método setEPS() en R. postscript inicia el controlador del dispositivo de gráficos para producir gráficos PostScript. El archivo eps se almacena en el directorio de trabajo actual de forma predeterminada. Para guardarlo en una ubicación específica, especifique la ruta de destino completa junto con el nombre del archivo en la función postscript().

Ejemplo: 

# declaring the xpos vector 
xpos <- c(1:10)
  
# declaring the ypos vector 
# equivalent to x^2
ypos <- xpos^2
  
setEPS()
  
# naming the eps file
postscript("gfg.eps")
  
# plotting the x and y position
# vectors
plot(xpos,ypos)
dev.off()

Producción

Método 2: Usar ggplot2

La biblioteca ggplot se puede instalar y cargar en el espacio de trabajo para trabajar con gráficos. El método ggplot() de este paquete se usa para visualizar datos en forma de diagramas de dispersión, diagramas de caja y diagramas de series temporales. Este método recibe los datos en forma de puntos de datos y luego se muestra un diagrama de dispersión. En esta función, se implementa un mapeo estético (aes) seleccionando las variables x e y y se personaliza aún más mediante la adición de una representación gráfica de datos en forma de puntos usando el método geom_point() en el gráfico. El gráfico se puede guardar en formato eps utilizando el método ggplot.save(), que toma como argumento el nombre de la string del gráfico. 

Ejemplo:

# loading the required libraries
library("ggplot2")
  
# declaring the xpos vector 
xpos <- 1:10
  
# declaring the ypos vector equivalent 
# to x^2
ypos <- xpos^2
  
# declaring the data using x and y 
# position vectors
data_frame <- data.frame(x = xpos,       
                   y = ypos)
# plotting the data
ggplot(data_frame, aes(x, y)) + geom_point()
  
# save the eps plot
ggplot.save("gfg.eps")

Producción