| library(bcdata) #get data from the BC Data Catalogue | |
| library(bcmaps) #get maps | |
| library(tidyr) #clean popn data file | |
| library(dplyr) #summarize data | |
| library(stringr) #clean and align RD names | |
| library(ggplot2) #make plot | |
| library(sf) #clip RD with BC boundaries | |
| #get and tidy some population change data from the BC Data Catalogue | |
| rd_popn <- bcdc_get_data( |
| library(here) | |
| library(readr) | |
| library(dplyr) | |
| library(ggplot2) | |
| library(scales) | |
| library(ggrepel) | |
| ## Data for School District 61 Population Estimates & Projections from BCStats | |
| ## manual online tool: https://bcstats.shinyapps.io/popApp/ |
This is Steph's "living" document with instructions/documentation of my set-up on a MacBook Pro M1 (2020), with a focus on #rstats data science and meta tools 📊
| library(dplyr) | |
| library(ggplot2) | |
| library(purrr) | |
| # make a small df | |
| planets_i_know <- c("Tatooine", "Naboo", "Alderaan", "Endor") | |
| data <- starwars %>% | |
| filter(!is.na(homeworld)) %>% | |
| group_by(homeworld, gender) %>% |
| install.packages("devtools") | |
| library(devtools) | |
| install_github("bcgov/bcgroundwater") | |
| library(bcgroundwater) | |
| ## use ?bcgroundwater to see the Help menu for functions in the package | |
| ## get data for OBS WELL 447 - Surrey (Tynehead Park) |
| library(dplyr) ## starwars data ships with dplyr | |
| library(tibble) | |
| ## I am trying to use add_row() to add a total row with a sum of the other rows. | |
| ## This does not work | |
| foo <- starwars %>% | |
| select(name, height) %>% | |
| filter(height > 200) %>% | |
| add_row(name = "Total", height = sum(height)) |