<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div class="moz-cite-prefix">Resuelto<br>
<br>
Gracias Daniel y Carlos<br>
<br>
Hace exactamente lo que necesito.<br>
<br>
Un Saludo<br>
<br>
Leonardo<br>
<br>
On 18/03/13 18:48, Carlos Ortega wrote:<br>
</div>
<blockquote
cite="mid:CAOKbq8hBaajyOa-X_BMUpBJnFgr2nZvB8RyPDYypvXcvT7csgw@mail.gmail.com"
type="cite">
<div dir="ltr"><font face="verdana, sans-serif">Hola,</font>
<div><font face="verdana, sans-serif"><br>
</font></div>
<div style=""><font face="verdana, sans-serif">Además de la
solución de Daniel (perfectamente válida y compacta) quise
probar a hacerlo de otra forma....</font></div>
<div style=""><font face="verdana, sans-serif"><br>
</font></div>
<div style="">
<div><font face="verdana, sans-serif"><br>
</font></div>
<div><font face="verdana, sans-serif">library(sqldf)</font></div>
<div><font face="verdana, sans-serif">tmpa <- sqldf("select
N,P from df where P%2 == 0 order by P,N")</font></div>
<div><font face="verdana, sans-serif">tmpb <- sqldf("select
N,P from df where P%2 == 1 order by P, N desc")</font></div>
<div><font face="verdana, sans-serif">sqldf("select * from
tmpa union all select * from tmpb")</font></div>
<div><br>
</div>
</div>
<div style=""><font face="verdana, sans-serif"><br>
</font></div>
<div style=""><font face="verdana, sans-serif">Saludos,</font></div>
<div style=""><font face="verdana, sans-serif">Carlos Ortega</font></div>
<div style="">
<font face="verdana, sans-serif"><a moz-do-not-send="true"
href="http://www.qualityexcellence.es">www.qualityexcellence.es</a></font></div>
</div>
<div class="gmail_extra"><br>
<br>
<div class="gmail_quote">El 18 de marzo de 2013 17:25, daniel <span
dir="ltr"><<a moz-do-not-send="true"
href="mailto:daniel319@gmail.com" target="_blank">daniel319@gmail.com</a>></span>
escribió:<br>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">Leonardo,
otra vez usa dput para los datos.<br>
<br>
<br>
library(gtools)<br>
df <- structure(list(N = c(34, 35, 36, 37, 38, 39, 40,
41, 42, 43,<br>
44, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 34, 35, 36,
37,<br>
38, 39, 40, 41, 42, 43, 44, 35, 36, 34, 35), P =
structure(c(1L,<br>
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L,
2L,<br>
2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
3L,<br>
4L, 4L, 5L, 5L), .Label = c("6", "7", "8", "9", "10"), class
=<br>
"factor")), .Names = c("N",<br>
"P"), row.names = c(NA, -37L), class = "data.frame")<br>
str(df)<br>
df$P <- as.numeric(as.character(df$P))<br>
str(df)<br>
df[ order( df$P, ifelse( odd(df$P), -df$N, df$N)), ]<br>
sessionInfo()<br>
<br>
Espero haberte interpretado bien y si es así que lo anterior
te sirva<br>
para encontrar una mejor manera de hacerlo.<br>
<br>
Daniel Merino<br>
<br>
El día 18 de marzo de 2013 11:38, Leonardo Hernández Pérez<br>
<<a moz-do-not-send="true"
href="mailto:leonardo.hernandez@etecsa.cu">leonardo.hernandez@etecsa.cu</a>>
escribió:<br>
<div>
<div class="h5">> Hola Colegas:<br>
><br>
> Tengo un dataframe o un a matriz con estos datos:<br>
><br>
> N es un escalar y P un factor, quiero organizarlo
de forma tal que mantengan<br>
> esta estructura pero que los valores de N
correspondientes al factor P = 6<br>
> se mantengan organizados de forma ascendente, los
valores de N que<br>
> correspondan al factor P = 7 queden organizados de
forma descendente y así<br>
> sucesivamente con todos los demás factores.<br>
><br>
><br>
><br>
> N P<br>
> 34 6<br>
> 35 6<br>
> 36 6<br>
> 37 6<br>
> 38 6<br>
> 39 6<br>
> 40 6<br>
> 41 6<br>
> 42 6<br>
> 43 6<br>
> 44 6<br>
> 34 7<br>
> 35 7<br>
> 36 7<br>
> 37 7<br>
> 38 7<br>
> 39 7<br>
> 40 7<br>
> 41 7<br>
> 42 7<br>
> 43 7<br>
> 44 7<br>
> 34 8<br>
> 35 8<br>
> 36 8<br>
> 37 8<br>
> 38 8<br>
> 39 8<br>
> 40 8<br>
> 41 8<br>
> 42 8<br>
> 43 8<br>
> 44 8<br>
> 35 9<br>
> 36 9<br>
> 34 10<br>
> 35 10<br>
><br>
><br>
> El resultado que quiero es este<br>
><br>
> N P<br>
> 34 6<br>
> 35 6<br>
> 36 6<br>
> 37 6<br>
> 38 6<br>
> 39 6<br>
> 40 6<br>
> 41 6<br>
> 42 6<br>
> 43 6<br>
> 44 6<br>
> 44 7<br>
> 43 7<br>
> 42 7<br>
> 41 7<br>
> 40 7<br>
> 39 7<br>
> 38 7<br>
> 37 7<br>
> 36 7<br>
> 35 7<br>
> 34 7<br>
> 34 8<br>
> 35 8<br>
> 36 8<br>
> 37 8<br>
> 38 8<br>
> 39 8<br>
> 40 8<br>
> 41 8<br>
> 42 8<br>
> 43 8<br>
> 44 8<br>
> 36 9<br>
> 35 9<br>
> 34 10<br>
> 35 10<br>
><br>
> Es posible lograrlo??????<br>
><br>
> Un Saludo<br>
><br>
> Leonardo<br>
><br>
><br>
><br>
</div>
</div>
> ---<br>
> This message was processed by Kaspersky Mail Gateway
5.6.28/RELEASE running<br>
> at host <a moz-do-not-send="true"
href="http://imx3.etecsa.cu" target="_blank">imx3.etecsa.cu</a><br>
> Visit our web-site: <<a moz-do-not-send="true"
href="http://www.kaspersky.com" target="_blank">http://www.kaspersky.com</a>>,
<<a moz-do-not-send="true"
href="http://www.viruslist.com" target="_blank">http://www.viruslist.com</a>><br>
><br>
> _______________________________________________<br>
> R-help-es mailing list<br>
> <a moz-do-not-send="true"
href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
> <a moz-do-not-send="true"
href="https://stat.ethz.ch/mailman/listinfo/r-help-es"
target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
><br>
<span class="HOEnZb"><font color="#888888"><br>
<br>
<br>
--<br>
Daniel<br>
<br>
_______________________________________________<br>
R-help-es mailing list<br>
<a moz-do-not-send="true"
href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
<a moz-do-not-send="true"
href="https://stat.ethz.ch/mailman/listinfo/r-help-es"
target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
</font></span></blockquote>
</div>
<br>
<br clear="all">
<div><br>
</div>
-- <br>
<span style="font-family:verdana,sans-serif">Saludos,</span><br
style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif">Carlos Ortega</span><br
style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif"><a
moz-do-not-send="true"
href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a></span>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">---
This message was processed by Kaspersky Mail Gateway 5.6.28/RELEASE running at host imx2.etecsa.cu
Visit our web-site: <a class="moz-txt-link-rfc2396E" href="http://www.kaspersky.com"><http://www.kaspersky.com></a>, <a class="moz-txt-link-rfc2396E" href="http://www.viruslist.com"><http://www.viruslist.com></a>
</pre>
</blockquote>
<br>
</body>
</html>