```r
heikki2003 <- subset(osos, id == "Heikki" & year(datetime) == 2003)
with(heikki2003, plot(x,y, type="l"))
```

<img src="codigoParaAnimaciones_files/figure-html/unnamed-chunk-7-1.png" width="672" />