Patricio Fuenmayor Viteri
2011-Oct-06 00:31 UTC
[R-es] Resumen de R-help-es, Vol 32, Envío 5
Ricardobueno ... no es tan complicado ... te copio parte de un código que tengo
para eso.Esto genera 8 gráficas en pdf
En resumen lo que haces es en el bucle, llamas a las variables que quieres que
se grafiquen pero por referencia, no por nombre ... para que te sirva el
contador del "for", es decir datos[,i] donde i varía de acuerdo al
contador...los títulos los debes grabar en un vector para luego llamarlo en el
main del plot, igual como referencia... titulos <- names(datos)lo mismo
puedes hacer con los colores ... puedes asignarles los que quieras ... siempre y
cuando tengas predefinido un array con los nombres de los colores..también el
nombre del archivo pdf que quieres lo puedes llamar por referencia ...
# GRAFICAS DE PARTICIPACION TASAS ACTIVASwin.graph(width=11,
height=7,pointsize=10)par(las=1)for(i in 1:8){niv <-
bceact03[bceact03$ORD==i,c(4,5)]*100col00 <-
as.character(sisact01[[i]][,6])plot(sisact01[[i]][,2],sisact01[[i]][,4],pch=20,lwd=20,col=col00,xlab="tasa
(porcentaje)", ylab="participación
(porcentaje)",main=paste("Segmento:",main01[i]))grid(nx=NULL,ny=NULL,col="lightgray",lty="dotted",lwd=1,equilogs=TRUE)abline(v=niv,col=c("blue","red"),lwd=2)text(sisact01[[i]][,2],sisact01[[i]][,4],sisact01[[i]][,1],cex=0.8,pos=1,offset=-0.4)text(sisact01[[i]][,2],sisact01[[i]][,4],sisact01[[i]][,2],cex=0.6,pos=1,offset=0.2)dev.copy2pdf(file=paste("ptc",file01[i],".pdf",sep=""))}
donde bceact03 y sisact01 son arreglos de datos
Saludos.> Message: 6
> Date: Wed, 5 Oct 2011 19:11:59 -0500
> From: Ricardo Borda <ricardobordah@yahoo.es>
> To: r-help-es@r-project.org
> Subject: [R-es] Consulta
> Message-ID:
> <CAGSRbNvEY=99y4AttR_WBhivuKimsTDW44DieTtM=mGT1iLskQ@mail.gmail.com>
> Content-Type: text/plain; charset="iso-8859-1"
>
> Buenas noches
>
>
> Quiero generar un archivo con 25 gráficos tal y como lo adjunto en el Pdf.
> Quisiera saber qué debo hacer para que cada gráfico me aparezca con su
> respectivo título. Los títulos son los siguientes:
>
>
> names(por)
>
> [1] "C6.0" "C8.0"
"C10.0"
> "C11.0" "C12.0"
"C13.0"
>
>
> [7] "C14.0" "C14.1"
"C15.0"
> "C16.0" "C16.1"
"C17.0"
>
>
> [13] "C17.1" "C18.0"
"C18.1n9c"
> "C18.2n6c" "C18.2n9t"
"C18.3n3"
>
>
> [19] "C20.0" "C20.1"
"C20.3n6"
> "C20.4n6" "C20.5n3"
"C22.0"
>
>
> [25] "GRASA.NO.IDENTIFICADA"
>
>
> Estos títulos corresponden al nombre de las variables de la base de datos:
> experimento.
>
>
>
> *El programa que estoy utilizando es el siguiente:*
>
> datos<-read.csv2("experimento.csv")
>
> attach(datos)
>
> por<-datos[,c(6:30)]/datos[,31]
>
> tipo<-factor(datos$Tipo)
>
> pdf("graficos6.pdf")
>
> parametros<-function(y){
>
> a<-boxplot(y~Tipo, data=por)
>
> return()
>
> }
>
> sim<-apply(por,2,parametros)
>
> dev.off()
>
>
>
>
>
>
>
> --
> Atentamente:
>
> Ricardo A. Borda Hernández
> Docente de Estadística
> ------------ próxima parte ------------
> Se ha borrado un adjunto en formato HTML...
> URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20111005/60716923/attachment.html>
> ------------ próxima parte ------------
> A non-text attachment was scrubbed...
> Name: graficos6.pdf
> Type: application/pdf
> Size: 60711 bytes
> Desc: no disponible
> URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20111005/60716923/attachment.pdf>
> ------------ próxima parte ------------
> A non-text attachment was scrubbed...
> Name: experimento.csv
> Type: application/octet-stream
> Size: 4658 bytes
> Desc: no disponible
> URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20111005/60716923/attachment.obj>
>
> ------------------------------
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
> Fin de Resumen de R-help-es, Vol 32, Envío 5
> ********************************************
[[alternative HTML version deleted]]