⚽

Ryo Nakagawara Ryo-N7

⚽

Ryo-N7 / player_minutes_LFC_10_11.r

Last active December 26, 2022 13:19

Player minutes chart Liverpool FC, 2010-2011 (Hodgson vs. Dalglish)

	## pacman pkg to load/install libraries from cran
	## polite is a github only pkg though.
	pacman::p_load(tidyverse, polite, scales, ggimage, ggforce,
	rvest, glue, extrafont, ggrepel, magick)
	loadfonts()

	## Squad details for 2010-2011 season
	url <- "https://www.transfermarkt.com/liverpool-fc/leistungsdaten/verein/31/reldata/GB1%262010/plus/1"

	session <- bow(url)

Ryo-N7 / wwc_goaldist.r

Created July 8, 2019 18:40

Women's World Cup #tidytuesday

	pacman::p_load(tidyverse, polite, scales, ggimage, ggforce, ggtextures, DT,
	cowplot, rvest, glue, extrafont, ggrepel, magick)
	loadfonts()

	theme_womenWorldCup <- function(
	title.size = 24,
	subtitle.size = 14,
	caption.size = 8,
	axis.text.size = 14,
	axis.text.x.size = 12,

Ryo-N7 / roman_emperors.RMD

Last active August 15, 2019 10:45

TidyTuesday (August 14): Roman Emperors

	1. Line-Plot
	2. Upset Plot (scroll down or Ctrl+F "Upset-Plot")


	# ---- Line-Plot
	# Packages

	```{r}
	pacman::p_load(dplyr, purrr, tidyr, ggplot2, ggtext, extrafont,
	scales, ggrepel, forcats,

Ryo-N7 / elo_europe_cups_plot.RMD

Last active September 1, 2019 14:47

Champions League + Europa League Elo ratings per team/group


	```{r setup, include=FALSE}
	knitr::opts_chunk$set(echo = TRUE, message = FALSE, warning = FALSE)
	```

	# Packages

	```{r}
	pacman::p_load(tidyverse, scales, lubridate,
	ggrepel, glue, extrafont,

Ryo-N7 / kloppo_v2.RMD

Created October 9, 2019 14:44

Klopp's Managerial History v2

	```{r message=FALSE}
	pacman::p_load(tidyverse, scales, lubridate, ggrepel,
	glue, extrafont, grid, gridExtra, ggtext)
	loadfonts(quiet = TRUE)

	```


	```{r}
	lfc_elo_raw <- read_csv("http://api.clubelo.com/liverpool")

Ryo-N7 / EPL_xGD_plot.r

Last active November 14, 2019 06:20

EPL Expected Goal Difference Plot (up to Nov. 10, 2019 // Matchday 12)

	# Packages
	pacman::p_load(tidyverse, understatr,
	glue, extrafont, magick)
	loadfonts(quiet = TRUE)

	## add_logo function from Thomas Mock
	add_logo <- function(plot_path, logo_path, logo_position, logo_scale = 10){

	# Requires magick R Package https://github.com/ropensci/magick

Ryo-N7 / age_utility_LFC_1920.r

Last active November 16, 2019 08:01

Liverpool FC Age-Utility Graph (Premier League 2019-2020)

	pacman::p_load(tidyverse, polite, scales, ggimage, ggforce,
	stringr, ggtext,
	rvest, glue, extrafont, ggrepel)
	loadfonts(quiet = TRUE)

	session <- bow("https://www.transfermarkt.com/liverpool-fc/leistungsdaten/verein/31/reldata/GB1%262019/plus/1")
	print(session)

	result_name <- scrape(session) %>%
	html_nodes("#yw1 .bilderrahmen-fixed") %>%

Ryo-N7 / viz_epl_part_one.R

Last active November 21, 2019 09:43

Visualize the EPL, Part 1

	## Packages
	pacman::p_load(tidyverse, polite, scales, ggimage, ggforce,
	understatr, cowplot, kableExtra, ggbeeswarm,
	jsonlite, xml2, qdapRegex, stringi, stringr,
	rvest, glue, extrafont, ggrepel, magick, ggtext)
	loadfonts(quiet = TRUE)

	## xPts Table
	premierleague2019 <- get_league_teams_stats("EPL", 2019)
	## NON-PENALTY xG

Ryo-N7 / viz_epl_part_two.R

Last active December 1, 2019 09:56

Visualize the EPL, Part 2

	####
	# Will keep updating this so if everything isn't there yet please be patient!
	####

	## Packages

	pacman::p_load(tidyverse, polite, scales, ggimage, ggforce,
	understatr, cowplot, kableExtra, ggbeeswarm,
	jsonlite, xml2, qdapRegex, stringi, stringr,
	rvest, glue, extrafont, ggrepel, magick, ggtext)

Ryo-N7 / lewandoski_shot_contrib_hinrunde1920.r

Created December 24, 2019 08:43

Lewandowski Shot Contribution (Hinrunde 2019-2020)

	## Twitter: @R_by_Ryo
	## Website: ryo-n7.github.io

	## Packages
	pacman::p_load(ggplot2, dplyr, glue, extrafont, ggrepel, magick, ggtext)
	loadfonts(quiet = TRUE)

	## load data
	lewa_shot_contrib <- readRDS(url("https://raw.githubusercontent.com/Ryo-N7/soccer_ggplots/master/data/lewa_shot_contrib.RDS"))