This is for an update to the the SpatioTemporal Task View.
If you have any other suggestions, please leave a comment below - or raise an issue here: https://github.com/mdsumner/ctv-mdsumner/issues (or just email/tweet me).
(This is not the final presentation format).
| tt %>% | |
| mutate( | |
| laststation = as.character(laststation), | |
| TagID = as.character(TagID) | |
| ) %>% | |
| group_by(laststation) %>% | |
| ggplot(aes(TagID, kmday)) + | |
| geom_segment(aes(xend=TagID, yend=0)) + | |
| geom_point(shape="—", size=5) + | |
| facet_wrap(~laststation, nrow=1, scales="free_x") + |
| library(SmarterPoland) | |
| library(riverplot) | |
| library(RColorBrewer) | |
| library(graphics) | |
| library(reshape2) | |
| library(plyr) | |
| library(stringr) | |
| library(countrycode) | |
| # DOWNLOAD THE DATA |
