<div dir="ltr"><div><div><div>Hola chic@s,<br><br></div>querría construir mi primera función, y tengo una duda respecto al comando par( mfrow =c(3,3)). Primero de todo, tengo una tabla con 10 variables, para cada variable, unos 145 datos. Quiero representar para cada variable su gráfica de dispersión respecto a las demás. Es decir, coger la primera variable y la segunda, y hacer gráfica, coger la primera variable y la tercera, y hacer gráfica, y así hasta acabar con la primera variable, y coger la segunda, y lo mismo. Coger la segunda variable y la tercera, y gráfica, coger la segunda variable y la cuarta, y gráfica. Quiero hacer una función con dos whiles, para automatizar el proceso. El problema radica en el comando par( mfrow =c(3,3)).<br><br></div>Tal y como lo conozco, se escribirlo, y después colocar dos gráficas, por ejemplo<br><br></div><div><div><div><div>par( mfrow =c(2,1)).<br></div><div>indexplot bla bla bla<br></div><div>indexplot bla bla bla.<br><br></div><div>Pero ahora con el while, no puedo poner "dos" gráficas, sinó que es un bucle. Entonces no se si para mi caso tengo que utilizar el comando par y adaptarlo un poco, o con el comando par no puedo hacer lo que yo quiero y hay otro comando en R que desconzco.<br><br></div><div>Os adjunto el codigo base que he pensado (tengo que pensar aun los argumentos y que resultado poner, porque el resultado seria la representación de las gráficas, así que tampoco lo tengo muy claro)<br><br></div><div>Muchas gracias!<br></div><div><br><br><br><br><br>//PAC2<br>sudo R<br>library(Rcmdr)<br>setwd("/home/albert/Documentos/UOC/PAC2/R")<br>dir()<br>wb <- read.table("Dades_PAC1Des96_Des08_PUNTS.csv", header=T, <a href="http://as.is">as.is</a>=T, sep=",")<br>head(wb)<br>tail(wb)<br><br>genGraphics <- function(arguments){<br><br>i=1<br>j=2 <br><br>  while i<=10 {<br><br>          while j<=10 {<br>        <br>            par( mfrow =c(3,3))    ??????????????????????????<br>            xyplot(wb[i] ~ wb[j], type="p", pch=16, <br>                auto.key=list(border=TRUE), par.settings=simpleTheme(pch=16), <br>                scales=list(x=list(relation='sliced'), y=list(relation='sliced')), <br>                data=comma)<br>            j=j+1<br>            }<br>      i=i+1<br><br>  }<br><br>return(resultat)<br>}<br><br><br>-- <br><div class="gmail_signature"><div dir="ltr"><div><b><br></b></div><b><div><b><br></b></div><font face="comic sans ms, sans-serif" color="#999999">Albert Montolio Aguado</font></b></div></div>
</div></div></div></div></div>