<div dir="ltr">Obrigado Éder, já havia conseguido resolver antes com a ajuda do colega Gledson, porém achei <div>muito interessante a solução proposta por você.</div><div>Mais uma vez obrigado pela ajuda.</div><div>Att...</div>
</div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-03-12 19:49 GMT-03:00 Éder Comunello <span dir="ltr"><<a href="mailto:comunello.eder@gmail.com" target="_blank">comunello.eder@gmail.com</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Boa tarde,</div><div><br></div><div>Uma sugestão, alocando o resultado em um arranjo matricial (array):</div>
<div><br></div><div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### <code r></font></div>
<div><font face="courier new, monospace">### Partindo de um data.frame (DF)</font></div><div><font face="courier new, monospace">DF <- as.data.frame(matrix(runif(50), 10, 5, byrow=T)); DF</font></div><div><font face="courier new, monospace">LST <- lapply(1:length(DF), function(x) as.matrix(DF/DF[,x]))</font></div>
<div><font face="courier new, monospace">ARR <- array(unlist(LST), dim = c(nrow(LST[[1]]), ncol(LST[[1]]), length(LST)))</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### Algumas operações possíveis</font></div>
<div><font face="courier new, monospace">ARR</font></div><div><font face="courier new, monospace">ARR[,,c(3:4)]</font></div><div><font face="courier new, monospace">ind <- which(ARR>5, arr.ind=T); ind</font></div><div>
<font face="courier new, monospace">data.frame(ind, val=ARR[ind])</font></div><div><font face="courier new, monospace">### </code></font></div></div></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">
Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br>
</div></div>
<br><br><div class="gmail_quote">Em 12 de março de 2014 13:06, Rodrigo Muniz <span dir="ltr"><<a href="mailto:uenf.rodrigo@gmail.com" target="_blank">uenf.rodrigo@gmail.com</a>></span> escreveu:<div><div class="h5">
<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">Olá Gledson, eu precisava de um outro dataframe, então coloquei o comando "as.data.frame" e deu certo.<div>Muito obrigado.</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-03-12 13:32 GMT-03:00 gledson picharski <span dir="ltr"><<a href="mailto:gledson.picharski@gmail.com" target="_blank">gledson.picharski@gmail.com</a>></span>:<div>
<div><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Rodrigo,<div><br></div><div>teria que saber que tipo de saída deseja para lhe ajudar mais adequadamente, </div>
<div>mas uma forma de dividir todas as colunas por todas do data.frame é:</div><div><br></div><div><div>
<div>DF <- as.data.frame(matrix(rnorm(100), ncol = 20, nrow = 5))</div></div><div>lapply(DF,"/",DF)</div></div><div><br></div><div><br></div><div>abraço</div><div>Gledson</div><div><br></div><div><br></div><div>
<br>
</div><div><br><div><br></div></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 12 de março de 2014 10:23, Rodrigo Muniz <span dir="ltr"><<a href="mailto:uenf.rodrigo@gmail.com" target="_blank">uenf.rodrigo@gmail.com</a>></span> escreveu:<div>
<div><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Obrigado Henrique, ainda não deu certo, mas pelo menos já tenho uma ideia por onde começar.<div>Att...</div>
</div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-03-11 22:57 GMT-03:00 Henrique Dallazuanna <span dir="ltr"><<a href="mailto:wwwhsd@gmail.com" target="_blank">wwwhsd@gmail.com</a>></span>:<div><div>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Assumindo DF como seu data.frame:<div><br></div><div><div>DF <- as.data.frame(matrix(rnorm(100), ncol = 20, nrow = 5))</div>
<div>DF[-1] / DF[-ncol(DF)]</div></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">
2014-03-11 20:40 GMT-03:00 Rodrigo Muniz <span dir="ltr"><<a href="mailto:uenf.rodrigo@gmail.com" target="_blank">uenf.rodrigo@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div>
<div dir="ltr">Caros membros da lista,<div>Desculpe por não enviar nenhum exemplo ou lista de comando. </div><div>Tenho um dataframe com 1500 colunas e 700 linhas, eu preciso fazer uma razão</div><div>entre todas as colunas, ou seja, C1/C2, C1/C3, C1/C4....C1499/C1500. Fazer essa divisão de forma manual apenas por indexação dos vetores é simples, porém, isso daria muito trabalho e acredito que deve haver um jeito mais fácil de fazer isso. Porém não tenho a menor ideia de como começar a fazer-lo.</div>
<div>Por isso peço a ajuda de vocês, se alguém conhece alguma forma, algum exemplo, ou mesmo algum material que eu possa consultar, para que eu tenha esse "input" inicial.</div><div>Desde já agradeço.</div><div>
Att... <span><font color="#888888"><br clear="all"><div><br></div>-- <br><b>Rodrigo A. Muniz</b><div>Eng. Agrônomo. Ms Produção Vegetal (UENF)</div><div>Doutorando em Engenharia de Sistemas Agrícolas (ESALQ/USP)</div>
<div>Cel (19) 8300-4333 (Pessoal)</div>
<div>Tel <a href="tel:%2819%29%203375-1196" value="+551933751196" target="_blank">(19) 3375-1196</a> (Residêncial)</div><div>Tel <a href="tel:%2819%29%203447-8537" value="+551934478537" target="_blank">(19) 3447-8537</a> (Trabalho)</div>
</font></span></div></div>
<br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<span><font color="#888888"><br></font></span></blockquote>
</div><span><font color="#888888"><br><br clear="all"><div><br></div>-- <br>
Henrique Dallazuanna<br>Curitiba-Paraná-Brasil<br>25° 25' 40" S 49° 16' 22" O
</font></span></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div></div></div><div><div><br><br clear="all">
<div><br></div>-- <br>
<b>Rodrigo A. Muniz</b><div>Eng. Agrônomo. Ms Produção Vegetal (UENF)</div><div>Doutorando em Engenharia de Sistemas Agrícolas (ESALQ/USP)</div><div>Cel (19) 8300-4333 (Pessoal)</div><div>Tel <a href="tel:%2819%29%203375-1196" value="+551933751196" target="_blank">(19) 3375-1196</a> (Residêncial)</div>
<div>Tel <a href="tel:%2819%29%203447-8537" value="+551934478537" target="_blank">(19) 3447-8537</a> (Trabalho)</div>
</div></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div></div></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div></div></div><div><div><br><br clear="all">
<div><br></div>-- <br>
<b>Rodrigo A. Muniz</b><div>Eng. Agrônomo. Ms Produção Vegetal (UENF)</div><div>Doutorando em Engenharia de Sistemas Agrícolas (ESALQ/USP)</div><div>Cel (19) 8300-4333 (Pessoal)</div><div>Tel <a href="tel:%2819%29%203375-1196" value="+551933751196" target="_blank">(19) 3375-1196</a> (Residêncial)</div>
<div>Tel <a href="tel:%2819%29%203447-8537" value="+551934478537" target="_blank">(19) 3447-8537</a> (Trabalho)</div>
</div></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div></div></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>
<b>Rodrigo A. Muniz</b><div>Eng. Agrônomo. Ms Produção Vegetal (UENF)</div><div>Doutorando em Engenharia de Sistemas Agrícolas (ESALQ/USP)</div><div>Cel (19) 8300-4333 (Pessoal)</div><div>Tel (19) 3375-1196 (Residêncial)</div>
<div>Tel (19) 3447-8537 (Trabalho)</div>
</div>