search

Trackage / trip

trip package development
http://trackage.github.io/trip/
12 stars 2 forks source link

revive sepIdGaps #7

Open mdsumner opened 8 years ago

mdsumner commented 8 years ago

and add gantt charts: 

## automated way to split on long time gaps
sp_id <- sepIdGaps(loc1$sp_id, ptr$gmt)

## Gantt chart
ntrips <- nlevels(factor(ptr$sp_id))
plot(range(ptr$gmt), c(1, ntrips), type = "n")
spl <- split(ptr, ptr$sp_id)
srt <- order(unlist(lapply(spl, function(x) min(x$gmt))), decreasing = TRUE)
spl <- spl[srt]
lapply(seq_along(spl), function(i) lines(data.frame(range(spl[[i]]$gmt), c(i, i))))