Foro de debate

problema al salvar gráficos

problema al salvar gráficos

de maribel García Arenas -
Número de respuestas: 3
Hola a todos, estoy intentando salvar unos gráficos en formato eps y que previamente veo en pantalla perfectamente.

El código relativo a los gráficos es:

x11(width=10, height=5, xpos=0,pointsize=14)
op <- par(mfrow = c(1, 2), # 2 x 2 pictures on one plot
               pty = "m", las=1, mar=c(6,5,5,6), cex=0.75,cex.axis=0.9,
 cex=1,xaxs="r")       # square plotting region,
plot(TukeyHSD(anovaGen, "Gen",ordered=TRUE))
plot(TukeyHSD(anovaSel, "Sel",ordered=TRUE))
dev.copy2eps(file=dirTukey, width=10.0, height=5.0, pointsize=14)


y el fichero dirTukey se genera, pero no puedo abrirlo, es como si el formato estuviera mal.

Sin embargo con el siguiente código si funciona correctamente.

x11(width=10, height=10, xpos=0,pointsize=14)
op <- par(mfrow = c(2, 2), pty = "m", cex=1,xaxs="r")       # square plotting region,
boxplot(Fitness~Gen, ylab="Fitness", xlab="Gen", data=datos,cex.axis=1.2,cex.lab=1.2)
boxplot(Fitness~PS, ylab="Fitness", xlab="PS", data=datos,cex.axis=1.2,cex.lab=1.2)
boxplot(Fitness~Op, ylab="Fitness", xlab="Op", data=datos,cex.axis=1.2,cex.lab=1.2)
boxplot(Fitness~Sel, ylab="Fitness", xlab="Sel", data=datos,cex.axis=1.2,cex.lab=1.2)
dev.copy2eps(file=dirBox, width=10.0, height=10.0, pointsize=14)

¿Podría alguien echarme una mano?

Un saludo a todos, Maribel
En respuesta a maribel García Arenas

Re: problema al salvar gráficos

de Manuel Muñoz Márquez -
Hola Maribel:

La instrucción x11 está pensada para ser usada en sesiones interactivas, por ello podrías tener problemas si no es ese el caso.

Una alternativa es usar la instrucción postcript en vez de x11.

Una cosa importante a tener en cuenta es que el gráfico (el fichero) no estará disponible hasta que no cierres el dispositivo con la instrucción dev.off() o bien cierres R.

Saludos.
En respuesta a Manuel Muñoz Márquez

Re: problema al salvar gráficos

de maribel García Arenas -
Antes de nada gracias por tu ayuda, y espero que puedas seguir ayudándome porque no he solucionado el problema todavía.

He añadido dev.off() y he eliminado el x11 aunque no sé por qué sustituirlo. 

De este modo al ejecutarlo me aparece la ventana y desaparece automáticamente, me aparece el fichero en el directorio correspondiente, pero al intentar abrirlo me dice que el formato no es legible. 

Te vuelvo a poner el código para que lo tengas a mano por si se te ocurre algo.

op <- par(mfrow = c(1, 2), # 2 x 2 pictures on one plot
               pty = "m", 
 cex=0.75,
 cex.axis=0.9,
 las=1,
 xaxs="r",
 mar=c(6, 15, 5, 3))       

plot(TukeyHSD(anovaGen, "Gen",ordered=TRUE))
plot(TukeyHSD(anovaSel, "Sel",ordered=TRUE))
dev.copy2eps(file=dirTukey, width=10.0, height=5.0, pointsize=14)
dev.off()


Un saludo y gracias por adelantado.

Maribel

En respuesta a maribel García Arenas

Re: problema al salvar gráficos

de Manuel Muñoz Márquez -
Hola Maribel:

En mi mensaje anterior te decía que cambiaras la instrucción x11 por postcript(). La instrucción postcript crea un nuevo dispositivo hacia el que se dirige la salida gráfica. Mira la ayuda de postcript mediante la instrucción ?postcript para más detalles.

Cuando acabes de dibujar cierras el fichero con dev.off()

Saludos.