PaulC91

library(tidyverse)
library(lubridate)
library(stringr)
library(hrbrthemes)
library(sf)
library(leaflet)

# R script to chart and map Paris tree data

# data available here https://opendata.paris.fr/explore/dataset/les-arbres/ ----------------

PaulC91

library(tidyverse)
library(tidygraph)
library(igraph)
library(networkD3)

# https://www.kaggle.com/unitednations/refugee-data/data
asylum_seekers_raw <- read_csv("asylum_seekers.csv")

# get the top 10 countries of origin by 'Total decisions'
top_orig <- asylum_seekers_raw %>%

PaulC91

library(tidyverse)
library(sf)

#https://www.cultureofinsight.com/blog/2018/05/02/2018-04-08-multivariate-dot-density-maps-in-r-with-sf-ggplot2/

svk.dot <- st_read("shp/hranice_obce_3.shp", stringsAsFactors = FALSE, quiet = TRUE) %>% 
  st_transform(4326)

colnames(svk.dot)[1] <- "id"

PaulC91

library(googlesheets)

# do this initially to save your token in the app's working direcotory
# once it's saved you can comment this code out
token <- gs_auth(cache = FALSE)
saveRDS(token, file = "googlesheets_shiny_token.rds")

# then this code in your app will authenticate and read in a workbook of your choice each time it's loaded
gs_auth(token = "googlesheets_shiny_token.rds")
sheet_key <- "your_google_sheet_key_here"

PaulC91

library(discogger)
library(tidyverse)
library(sf)
library(rnaturalearth)
library(countrycode)
library(scico)

my_records <- discogs_user_collection("pacampbell91")

my_releases <- map_chr(my_records$content, "id") %>% 

PaulC91

library(rvest)
library(tidyverse)
library(tidygraph)
library(ggraph)

wc_squads <- html("https://en.wikipedia.org/wiki/2018_FIFA_World_Cup_squads")

tables <- wc_squads %>% 
  html_table()

PaulC91

library(rmarkdown)
library(ggplot2)
library(purrr)

ppt_render <- function (data) {
  params <- list(data = data)
  group <- unique(data$class)
  
  rmarkdown::render("report.Rmd", output_file = paste0("mpg_", group, ".pptx"), params = params)
}

PaulC91

# Data available here
# https://www.ons.gov.uk/file?uri=/peoplepopulationandcommunity/birthsdeathsandmarriages/livebirths/adhocs/009010babynames1996to2017englandandwales/adhocallbabynames1996to2017.xls
library(tidyverse)
library(readxl)

rank_names <- map_chr(2017:1996, paste0, "-rank")
count_names <- map_chr(2017:1996, paste0, "-count")

cnames <- c(rank_names, count_names) %>% sort(decreasing = TRUE)

PaulC91

library(tidyverse)
library(gapminder)
library(openxlsx)

gm <- gapminder %>% 
  select(-continent)

# to get latest year as first tab in workbook
years <- unique(gm$year) %>% sort(decreasing = TRUE)

PaulC91

library(highcharter)
library(tibble)

df <- tibble(
  group = c(rep("G1", 3), rep("G2", 4)),
  cat = c("B", "C", "D", "A", "B", "C", "D"),
  index = c(2, 3, 4, 1, 2, 3, 4),
  n = runif(7)
)