Javier,
O simplemente
Animal <-
c('A','A','A','B','B','C','D','D')
Edad <- c(2,3,4,3,4,2,4,5)
datos <- data.frame(Animal, Edad)
datos$nueva_edad <- with(datos, ave(Edad, Animal, FUN = min))
datos
Saludos,
Jorge.-
2012/4/25 Marcuzzi, Javier Rubén < <javier.ruben.marcuzzi en
gmail.com>>
> Encontré mi error, ahora funciona perfecto,
>
> Animal <-
c('A','A','A','B','B','C','D','D')
> Edad <- c(2,3,4,3,4,2,4,5)
> datos <- data.frame(Animal, Edad)
> m_m <- with(datos, tapply(Edad, Animal, function(x){
> minimo <- min(x)
> valor <- length(x)
> rep(minimo, valor)
> }))
> datos$repetido <- do.call(c, m_m)
> datos
>
> *From:*
> *Sent:* Wednesday, April 25, 2012 6:37 PM
> *To:* R-help-es en r-project.org
> *Subject:* conocer los mínimos
>
> Esperando que llegue el correo, les pregunto
>
> Deseo tener una columna en un data.frame donde obtengo una edad de inicio
> que queda constante, según el siguiente ejemplo:
>
> Animal <-
c('A','A','A','B','B','C','D','D')
> Edad <- c(2,3,4,3,4,2,4,5)
> datos <- data.frame(Animal, Edad)
> datos
> # el número menor en Edad es el que interesa (edad de inicio)
> Edad_Inicio_quiero <- c(2,2,2,3,3,2,4,4)
> datos_final_deberia <- data.frame(datos, Edad_Inicio_quiero)
> datos_final_deberia
>
> Se me ocurre plantear la siguiente forma para resolverlo, pero tengo
> problemas, según la siguiente captura de pantalla.
>
> [image: image]
> Por lo que veo, al utilizar min(x) elimino valores, cosa que no evito con
> mis if. ¿Como podría hacer?
>
> Javier
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20120425/c1dd886d/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: no disponible
Type: image/png
Size: 92806 bytes
Desc: no disponible
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20120425/c1dd886d/attachment-0001.png>