[R-es] Consulta

[Ricardo Borda]

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-0001.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-0001.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-0001.obj>