Malte Grosser

library(dplyr) library(ggplot2) mtcars2% group_by(cyl) %>% summarize(avg=mean(mpg)) %>% left_join(.,mtcars) ggplot(mtcars2,aes(x=disp,y=mpg))+ geom_point()+ geom_line(aes(x=disp,y=avg))+ facet_grid(cols=vars(cyl),scales = "free") # ---- mtcars %>% group_by(cyl) %>% mutate(avg=mean(mpg)) %>% ggplot(aes(x=disp,y=mpg)) + geom_point() + geom_line(aes(x=disp,y=avg))+ facet_grid(cols=vars(cyl),scales = "free")


``` > tibble(Datum = seq.Date(from = ymd("2012-01-01"), to = ymd("2012-02-02"), by = 1), + Wochentag = as.character(wday(Datum, label = TRUE, abbr = FALSE)), + Tag = day(Datum), + Monat =...

1. Style of Tasks Currantly not clear. Prefered: Question Ansewer. Styleguide: [Tidyverse](http://style.tidyverse.org/) 2. Current order of parts & chapters (+ current maintainers) I. Idioms II. Non Standard Evaluation III. Read...

* dense time dimension * `tidyr::spread / gather` for time dimension: `time_spread(data, id = , min_date = , max_date = , by = timestep)` should give some long data back