search for: interseccion

...guiente" indica cual es el id de la siguiente intersección. Mi problema es que necesito crear una nueva columna llamada, por ejemplo, superficie_siguiente, que indique cual será la superficie de la siguiente intersección. Cuando la "siguiente" es igual a 0 significa que no hay nuevas intersecciones y se pondría en superficie_siguiente, por ejemplo NA. Lo he hecho con el siguiente bucle, pero es lentísimo. surface_n <- function(p,p.s,n) { if(p[n,]$siguiente != 0) p.s[n,]$superficie_siguiente <- p[p$id==p[n,]$siguiente,]$superficie return(p.s) } p.s <- cbind(p,superficie_sigui...

...> > intersección. Mi problema es que necesito crear una nueva columna > llamada, > > por ejemplo, superficie_siguiente, que indique cual será la superficie de > > la siguiente intersección. Cuando la "siguiente" es igual a 0 significa > que > > no hay nuevas intersecciones y se pondría en superficie_siguiente, por > > ejemplo NA. > > > > Lo he hecho con el siguiente bucle, pero es lentísimo. > > > > surface_n <- function(p,p.s,n) { > > if(p[n,]$siguiente != 0) p.s[n,]$superficie_siguiente <- > > p[p$id==p[n,]$siguie...

...gleado (o duckduckdeado ahora) e intentado algunas opciones como la siguiente (suponiendo que el archivo se llama graph): graph <- graph[graph$sol=="lim" & graph$dia==2,] pero esto elimina TODAS las filas que cumplen ambos criterios, es decir, la union de ambos criterios y no su interseccion, que es lo que necesito. He visto otras ideas en internet, pero son demasiado complicadas para hacer algo tan simple, ademas no me han funcionado, y pienso que debe haber un metodo simple. Alguna idea por favor ? Saludos y muchas gracias por su tiempo, ERIC.

...cual es el id de la siguiente > intersección. Mi problema es que necesito crear una nueva columna llamada, > por ejemplo, superficie_siguiente, que indique cual será la superficie de > la siguiente intersección. Cuando la "siguiente" es igual a 0 significa que > no hay nuevas intersecciones y se pondría en superficie_siguiente, por > ejemplo NA. > > Lo he hecho con el siguiente bucle, pero es lentísimo. > > surface_n <- function(p,p.s,n) { > if(p[n,]$siguiente != 0) p.s[n,]$superficie_siguiente <- > p[p$id==p[n,]$siguiente,]$superficie > return(p.s)...