```r
require(ggplot2)
ggplot(osos %>% arrange(datetime) %>% mutate(id = factor(id, levels = unique(id))), aes(datetime, id, col = id)) + 
       geom_point(cex = 0.5) + ylab("")
```

<img src="codigoParaAnimaciones_files/figure-html/DurationPlot-1.png" width="960" />