| # function to do a dodged half-boxplot and jittered points next to each other | |
| # | |
| # data_in should be a data frame | |
| # factor_col should be a bare column name (not a string) | |
| # although it will work if that column is factor or a character type | |
| # numeric_col is the y axis continuous variable | |
| # offset is the width of the boxplots and jittered point cloud | |
| # | |
| # the basic approach is to draw a boxplot without the tails | |
| # (e.g. only the interquartile range) and then use segments to add the |
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).
| needs(tidyverse, magrittr, scales) | |
| jose.porto <- read_csv("http://api.clubelo.com/porto") | |
| jose.chelsea <- read_csv("http://api.clubelo.com/chelsea") | |
| jose.inter <- read_csv("http://api.clubelo.com/inter") | |
| jose.real <- read_csv("http://api.clubelo.com/realmadrid") | |
| jose.mufc <- read_csv("http://api.clubelo.com/manunited") | |
| jose.all <- bind_rows( | |
| jose.porto %>% filter(From >= as.Date("2002-01-22") & To <= as.Date("2004-06-30")), |