schochastics

################################################################################
# replication of https://i.redd.it/q0udc4wfhvjz.gif
# originally posted to r/dataisbeautiful by u/Tjukanov
################################################################################
library(tidyverse)
library(gganimate)
library(lubridate)

#data from: https://www.ncdc.noaa.gov/ibtracs/index.php?name=wmo-data
df <- read_csv("Allstorms.ibtracs_wmo.v03r09.csv") 

schochastics

schochastics

library(rvest)
library(tidyverse)
 
leagues <- "http://www.footballsquads.co.uk/archive.htm" %>% 
   read_html() %>% 
   html_nodes("a") %>% 
   html_attr("href")
 
leagues_tbl <- as_tibble(str_split(leagues,"/",simplify = T)) %>% 
   mutate(link=leagues) %>% 

schochastics

#install UMAP from https://github.com/lmcinnes/umap
#install.packages("rPython")

umap <- function(x,n_neighbors=10,n_components=2,min_dist=0.1,metric="euclidean"){
  x <- as.matrix(x)
  colnames(x) <- NULL
  rPython::python.exec( c( "def umap(data,n,d,mdist,metric):",
                           "\timport umap" ,
                           "\timport numpy",
                           "\tembedding = umap.UMAP(n_neighbors=n,n_components=d,min_dist=mdist,metric=metric).fit_transform(data)",

schochastics

library(rvest)
library(tidyverse)
# helper functions 

get_theo_refs_cache <- function(url){
  doc <- read_html(url)  
  caps <- doc %>% html_nodes("caption") %>% html_text()
  skippy <- (any(caps=="Hypothesis" | caps=="Hypotheses"))+0
  refs <- doc %>% 
    html_table() %>% 

schochastics

library(igraph)
library(smglr)
library(tidyverse)
library(ggraph)
g <- sample_islands(9,40,0.2,10)
g <- simplify(g)
V(g)$grp <- rep(1:9,each=40)
el <- get.edgelist(g)
E(g)$col <- case_when(
V(g)$grp[el[,1]]==1 & V(g)$grp[el[,2]]  == 1 ~ 1,

schochastics

schochastics

library(tidyverse)
library(gganimate)
ascii <- c(";", ":", "!", "?", ".", "'", "\"", "(", ")", "[", "]", "{", 
           "}", "@", "*", "/", "\\", "&", "#", "%", "`", "^", "+", "<", 
           "=", ">", "|", "~", "$", "0", "1", "1", "10", "2", "2", "3", 
           "3", "4", "4", "5", "5", "6", "6", "7", "7", "8", "8", "9", "9", 
           "a", "a", "A", "b", "b", "B", "c", "c", "C", "d", "d", "D", "e", 
           "e", "E", "f", "f", "F", "g", "g", "G", "h", "h", "H", "i", "i", 
           "I", "j", "j", "J", "k", "k", "K", "l", "l", "L", "m", "m", "M", 
           "n", "n", "N", "o", "o", "O", "p", "p", "P", "q", "q", "Q", "r", 

schochastics

library(rvest)
library(tidyverse)
library(gganimate)
library(extrafont)
loadfonts()

get_season <- function(x){
 url <- paste0("https://www.basketball-reference.com/leagues/NBA_",x,"_totals.html")
 url %>% 
  read_html() %>% 

schochastics

pyramid <- function(ymax=5,mcol="#CD3333",xoffset=0){
  f <- function(a,b,y){
    (y-b)/a
  }
  
  a1 <- ymax/0.65
  b1 <- 0
  c1 <- -ymax/(1-0.65)
  d1 <- -c1
  a2 <- -ymax/(1-0.65)