Skip to content

Instantly share code, notes, and snippets.

View Ryo-N7's full-sized avatar

Ryo Nakagawara Ryo-N7

View GitHub Profile
@Ryo-N7
Ryo-N7 / gundam_gt.r
Last active April 26, 2019 16:50
Gundam gt (tidy tuesday)
## Packages
pacman::p_load(tidyverse, scales, janitor, gt, rvest, polite, glue, webshot)
## Data
tidy_anime <- readr::read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-04-23/tidy_anime.csv")
## get Gundam data
gundam_raw <- tidy_anime %>%
select(-related, -background, -premiered, -related, -members, -airing, -favorites,
-title_synonyms, -title_japanese, -producers, -status, -broadcast, -genre, -source, -rank, -popularity) %>%
@Ryo-N7
Ryo-N7 / goal_contribution_matrix_jleague_2018.r
Last active April 2, 2019 14:28
Goal Contribution Matrix (J.League: 2018 Season)
pacman::p_load(tidyverse, polite, scales, ggimage,
rvest, glue, extrafont, ggrepel, magick)
loadfonts()
url <- "https://www.transfermarkt.com/j1-league/startseite/wettbewerb/JAP1/plus/?saison_id=2017"
session <- bow(url)
team_links <- scrape(session) %>%
html_nodes("#yw1 > table > tbody > tr > td.zentriert.no-border-rechts > a") %>%
@Ryo-N7
Ryo-N7 / shimizu-s-pulse-age-utility-matrix.r
Last active March 24, 2019 10:52
age-utility matrix (Shimizu S-Pulse)
## packages
pacman::p_load(tidyverse, polite, scales, ggimage, rvest,
glue, extrafont, ggrepel, magick, ggforce)
loadfonts()
## add logo function
add_logo <- function(plot_path, logo_path, logo_position, logo_scale = 10){
# Requires magick R Package https://github.com/ropensci/magick
@Ryo-N7
Ryo-N7 / jpop_geofacet.r
Created March 11, 2019 14:21
geofacet japanese pop. decline, focus on north-east region (Tohoku earthquake)
# packages
pacman::p_load(tidyverse, scales, lubridate, ggrepel, sf,
glue, extrafont, readxl, jpndistrict, geofacet, cowplot,
gghighlight, magick)
loadfonts(device = "win", quiet = TRUE)
# data from eStat.go.jp: https://www.e-stat.go.jp/stat-search/files?page=1&layout=datalist&toukei=00200524&tstat=000000090001&cycle=0&tclass1=000000090004&tclass2=000001051180
# specifically data file: 05k5-5.xls
jpn_pop_raw <- read_xls(glue("{here::here()}/data/05k5-5.xls"), skip = 9,
col_types = c("skip", "text", "skip", "text",
@Ryo-N7
Ryo-N7 / tokyo_monthly_1876-2018.r
Created March 2, 2019 05:57
Tokyo Monthly Temperature (1876-1886 vs. 2008-2018)
# packages
pacman::p_load(tidyverse, lubridate, geofacet, gghighlight,
sf, extrafont, glue, RColorBrewer, emo)
# font packages
loadfonts(device = "win")
# import and clean
# download from JMA website: http://www.data.jma.go.jp/gmd/risk/obsdl/index.php
# choose TokyoPrefecture/Tokyo Station, Monthly data, Jan. 1872 to Dec. 2018
# load packages
pacman::p_load(tidyverse, scales, ggbeeswarm, extrafont, glue, magick)
# load fonts
loadfonts()
# load data
launches_raw <- read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-01-15/launches.csv")
# wrangle data
pacman::p_load(tidyverse, scales, glue, extrafont, rvest, ggtextures, cowplot, polite)
# Roboto Condensed font (from hrbrmstrthemes or just Google it)
loadfonts()
# web scrape
topg_url <- "https://en.wikipedia.org/wiki/AFC_Asian_Cup_records_and_statistics"
session <- bow(topg_url)
ac_top_scorers <- scrape(session) %>%
@Ryo-N7
Ryo-N7 / asian_cup_champions_viz.r
Last active January 4, 2019 10:09
Asian Cup champions!
pacman::p_load(tidyverse, scales, glue, extrafont, rvest, polite)
# Roboto Condensed font
loadfonts()
acup_url <- "https://en.wikipedia.org/wiki/AFC_Asian_Cup"
# responsible web-scraping ftw!
session <- bow(acup_url)
acup_winners_raw <- scrape(session) %>%
@Ryo-N7
Ryo-N7 / kloppo.r
Created December 22, 2018 04:47
Klopp's Managerial History
pacman::p_load(tidyverse, scales, lubridate, ggrepel, glue, extrafont)
loadfonts()
lfc_elo_raw <- read_csv("http://api.clubelo.com/liverpool")
dortmund_elo_raw <- read_csv("http://api.clubelo.com/Dortmund")
mainz_elo_raw <- read_csv("http://api.clubelo.com/Mainz")
mainz_elo_clean <- mainz_elo_raw %>%
filter(between(From, as.Date("2001-02-28"), as.Date("2008-05-19")))
@Ryo-N7
Ryo-N7 / cranlogs_top_10_packages.r
Last active December 18, 2020 20:58
top 10 most downloaded r packages
library(dplyr)
library(tidyr)
library(ggplot2)
library(cranlogs)
library(ggtextures) # devtools::install_github("clauswilke/ggtextures")
library(extrafont)
loadfonts()
# top 10 package downloads from 9/29 to 10/28 from 'cranlogs' package
top_10_october <- cran_top_downloads(when = "last-month", count = 10)