At the top of the file there should be a short introduction and/ or overview that explains what the project is. This description should match descriptions added for package managers (Gemspec, package.json, etc.)
Show what the library does as concisely as possible, developers should be able to figure out how your project solves their problem by looking at the code example. Make sure the API you are showing off is obvious, and that your code is short and concise.
| library(tidyverse) | |
| library(writexl) | |
| library(broom) | |
| mtcars %>% | |
| mutate(cyl = factor(cyl), | |
| am = factor(am)) %>% | |
| select(disp:wt) %>% | |
| map(~ summary(lm(.x ~ cyl * am, data = mtcars))) %>% | |
| map( ~ tidy(.x)) %>% | |
| writexl::write_xlsx(., "mtcars_example.xlsx") |
| #======================================================================= | |
| # Install required packages | |
| #======================================================================= | |
| install.packages("ggridges") | |
| #======================================================================= | |
| # Load required packages | |
| #======================================================================= |
| library(tidyverse) | |
| library(writexl) | |
| library(broom) | |
| mtcars %>% | |
| select(disp:wt) %>% | |
| map(~ summary(lm(.x ~ factor(cyl) * factor(am), data = mtcars))) %>% | |
| map( ~ tidy(.x)) %>% | |
| writexl::write_xlsx(., "mtcars_example.xlsx") |
| library(tidyverse) | |
| library(beepr) | |
| beep(4,mtcars %>% | |
| group_by(am, cyl) %>% | |
| summarize_at(vars(wt, mpg), funs(mean, sd)) %>% | |
| print()) | |
| --- | |
| title: 'Find the #Group' | |
| output: | |
| html_document: | |
| df_print: paged | |
| --- | |
| ```{r} | |
| library(tidyverse) | |
| ``` |
| # generate dataset with 1x year per every 12 months | |
| df <- data.frame(Month = rep(1:12, 3), | |
| Year = c(2000, rep(NA, 11), | |
| 2001, rep(NA, 11), | |
| 2002, rep(NA, 11))) | |
| # view the funky dataset | |
| df | |
| # fill the dataset with missing year! |
| library(tidyverse) | |
| # generate random data | |
| xdf <- data.frame(id = rep(1:100, 2), | |
| risk = c(rnorm(100, mean = 10, sd = 1), rnorm(100, mean = 7, sd = 1)), | |
| year = c(rep(2016, 100), rep(2017, 100))) %>% | |
| mutate(id = factor(id), | |
| year = factor(year)) | |
| # summarize data |
| #week 21 | |
| library(tidyverse) | |
| url <- "https://raw.githubusercontent.com/TheUpshot/chipotle/master/orders.tsv" | |
| df <- read_tsv(url) | |
| tidy_df <- df %>% | |
| separate(choice_description, c("Filling 1", "Filling 2", "Filling 3", "Filling 4", "Filling 5", "Filling 6", | |
| "Filling 7", "Filling 8", "Filling 9", "Filling 10"), | |
| extra = "merge", |
| tribble_df <- tribble(~day, ~person, ~action, | |
| "Monday", "Tom", "sprinting", | |
| "Tuesday", "Susan", "strolling", | |
| "Saturday", "Wonder Woman", "flying") | |
| tribble_df %>% | |
| mutate(glue_output = glue::glue("On {day} I realized {person} was {action} by the street")) |