[R-es] Ayuda con dev.copy2pdf - Ejemplo reproducible

[daniel]

Eva por que no mantienes las proporciones del área del plot respecto
del tamaño de la hoja, no se si serán las mejores proporciones en tu
ejemplo, es cuestión de probar, pero algo así:

dev.copy2pdf(file="IntentoEnesimo.pdf",height=8.18, width=5.79)

Daniel Merino


El día 26 de febrero de 2013 07:11, Eva Prieto Castro
<evapcastro en yahoo.es> escribió:
>
> Buenos días:
>
> Sigo cabezudeando con el tema de los gráficos; a ver si a alguien se le ocurre alguna idea...
>
> Supongamos este código:
>
> library(plotrix)
> graphics.off()
> windows(width=8.27, height=11.69)
>
> plot(3:10)
> #plot(3:10, main="Axis break test")
> par(xpd=TRUE)
> text(4, 11,"Axis break test")
> axis.break()
> axis.break(2,2.9,style="zigzag")
> mtext("Texto adicional", side=1, line=2)
> text(4, 9,"Texto")
>
> dev.copy2pdf(file="IntentoEnesimo.pdf",height=11.69, width=8.27)
> shell.exec(file.path(getwd(), "IntentoEnesimo.pdf"))
>
> Como podéis comprobar, el título "Axis break test" aparece en la pantalla gráfica, pero no en el pdf. Ésto es así porque lo escribo con text(). Si retiro la línea text(4, 11,"Axis break test") y cambio plot(3:10) por plot(3:10, main="Axis break test") sí que aparece en el pdf. Es lógico: forma parte del plot, y se tiene en cuenta al "expandir" el plot para su volcado en pdf. Pero sucede que necesito lograr un correcto funcionamiento para este caso (fuera del plot, con text()), porque debo dar cobertura a gráficos que llevan "información" (texto, líneas emulando eje horizonal superior, etc.) fuera del plot pero anexa a éste. No sé si me explico...
>
> ¿Se os ocurre alguna forma?. He probado utilizando layout y tampoco lo consigo. Es como si el plot adquiriese el protagonismo total y absoluto para el dev.copy2pdf.
>
> Gracias.
>
> Eva
>
> P.D.: Debo descartar alternativas tales como el uso del paquete qqplot2 (no lo podría compatibilizar con funciones que tengo que usar necesariamente dentro de la región del plot), y también descarto hacer pdf() y dev.off().
>
>
>         [[alternative HTML version deleted]]
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>



-- 
Daniel