Estimados
Hace unos días envié un correo porque tenía problemas para guardar los gráficos
en el disco rígido, utilizando R server 9, comentaba que el código antes
funcionaba pero que tenía fallas.
No encuentro mi mensaje en la lista para continuar el hilo, encontré el
problema, no lo comprendo del todo pero cambiando jpg por png funciona,
aparentemente hay un inconveniente para guardar en jpg.
Un código reproducible de internet con una modificación en el tipo de archivo
es:
names = LETTERS[1:26] ## Gives a sequence of the letters of the alphabet
beta1 = rnorm(26, 5, 2) ## A vector of slopes (one for each letter)
beta0 = 10 ## A common intercept
for(i in 1:26){
x = rnorm(500, 105, 10)
y = beta0 + beta1[i]*x + 15*rnorm(500)
mypath <-
file.path("C:","R","SAVEHERE",paste("myplot_",
names[i], ".png", sep = ""))
png(file=mypath)
mytitle = paste("my title is", names[i])
plot(x,y, main = mytitle)
dev.off()
}
El original pero con jpg está en
https://www.r-bloggers.com/automatically-save-your-plots-to-a-folder/
Javier Rubén Marcuzzi
[[alternative HTML version deleted]]
Gracias, Javier. Solo funciona con lattice, ¿no? ¿O sí es posible hacerlo con ggplot2? El 14 de marzo de 2017, 11:21, <javier.ruben.marcuzzi en gmail.com> escribió:> > Estimados > > Hace unos días envié un correo porque tenía problemas para guardar los > gráficos en el disco rígido, utilizando R server 9, comentaba que el código > antes funcionaba pero que tenía fallas. > > No encuentro mi mensaje en la lista para continuar el hilo, encontré el > problema, no lo comprendo del todo pero cambiando jpg por png funciona, > aparentemente hay un inconveniente para guardar en jpg. > > Un código reproducible de internet con una modificación en el tipo de > archivo es: > > names = LETTERS[1:26] ## Gives a sequence of the letters of the alphabet > > beta1 = rnorm(26, 5, 2) ## A vector of slopes (one for each letter) > beta0 = 10 ## A common intercept > > for(i in 1:26){ > x = rnorm(500, 105, 10) > y = beta0 + beta1[i]*x + 15*rnorm(500) > > mypath <- file.path("C:","R","SAVEHERE",paste("myplot_", names[i], > ".png", sep = "")) > > png(file=mypath) > mytitle = paste("my title is", names[i]) > plot(x,y, main = mytitle) > dev.off() > } > > El original pero con jpg está en https://www.r-bloggers.com/ > automatically-save-your-plots-to-a-folder/ > > Javier Rubén Marcuzzi > > [[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 >-- Mauricio [[alternative HTML version deleted]]
En general, no es buena idea exportar gráficos estadísticos a jpg. Es un formato optimizado para fotos. El chiste de referencia está aquí <https://www.labnol.org/software/tutorials/jpeg-vs-png-image-quality-or-bandwidth/5385/> . Un saludo, Carlos J. Gil Bellosta http://www.datanalytics.com El 14 de marzo de 2017, 16:21, Mauricio Monsalvo <m.monsalvo en gmail.com> escribió:> Gracias, Javier. > Solo funciona con lattice, ¿no? ¿O sí es posible hacerlo con ggplot2? > > El 14 de marzo de 2017, 11:21, <javier.ruben.marcuzzi en gmail.com> escribió: > > > > > Estimados > > > > Hace unos días envié un correo porque tenía problemas para guardar los > > gráficos en el disco rígido, utilizando R server 9, comentaba que el > código > > antes funcionaba pero que tenía fallas. > > > > No encuentro mi mensaje en la lista para continuar el hilo, encontré el > > problema, no lo comprendo del todo pero cambiando jpg por png funciona, > > aparentemente hay un inconveniente para guardar en jpg. > > > > Un código reproducible de internet con una modificación en el tipo de > > archivo es: > > > > names = LETTERS[1:26] ## Gives a sequence of the letters of the alphabet > > > > beta1 = rnorm(26, 5, 2) ## A vector of slopes (one for each letter) > > beta0 = 10 ## A common intercept > > > > for(i in 1:26){ > > x = rnorm(500, 105, 10) > > y = beta0 + beta1[i]*x + 15*rnorm(500) > > > > mypath <- file.path("C:","R","SAVEHERE",paste("myplot_", names[i], > > ".png", sep = "")) > > > > png(file=mypath) > > mytitle = paste("my title is", names[i]) > > plot(x,y, main = mytitle) > > dev.off() > > } > > > > El original pero con jpg está en https://www.r-bloggers.com/ > > automatically-save-your-plots-to-a-folder/ > > > > Javier Rubén Marcuzzi > > > > [[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 > > > > > > -- > Mauricio > > [[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 >[[alternative HTML version deleted]]