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

library(tidyverse)
library(rvest)
library(ggimage)
library(lubridate)

#get first 25 leagues in Europe ----
url <- "https://www.transfermarkt.de/wettbewerbe/europa"
doc <- read_html(url)

leagues <- doc %>% html_nodes(".hauptlink a") %>% html_attr("href")

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

//MIT License

//Copyright (c) 2024 David Schoch 

//Permission is hereby granted, free of charge, to any person obtaining a copy
//of this software and associated documentation files (the "Software"), to deal
//in the Software without restriction, including without limitation the rights
//to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
//copies of the Software, and to permit persons to whom the Software is
//furnished to do so, subject to the following conditions:

schochastics

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")