Ryo-N7
/ tokyo_summer_temperature_heatmap.r
Last active
August 19, 2018 03:28
Tokyo's historical summer temperature (heatmap) - original from Toyo Keizai Online
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(ggplot2) | |
| library(dplyr) | |
| library(tidyr) | |
| library(purrr) | |
| library(jsonlite) | |
| library(lubridate) | |
| library(magrittr) | |
| library(scales) | |
| library(stringr) | |
| library(extrafont) |
Ryo-N7
/ japan_sf_transition_animation.r
Last active
August 21, 2018 13:54
Japan sf transitions animation
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| original viz link: https://gist.github.com/thomasp85/c36ab5cfe387dec9d5e99a85a776bfa0 | |
| # try to do above but with Japan instead! | |
| library(gganimate) | |
| library(cartogram) | |
| library(geogrid) # devtools::install_github("jbaileyh/geogrid") >>> for sf support! | |
| library(rnaturalearth) | |
| library(sf) | |
| library(scico) |
Ryo-N7
/ tokyo_annual_temp_barcode_chart.r
Last active
August 26, 2018 08:49
Bar Code Chart: Tokyo Annual Average Temperature (1876-2017)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # http://www.climate-lab-book.ac.uk/2018/warming-stripes/ | |
| # data from: http://www.data.jma.go.jp/obd/stats/etrn/view/annually_s.php?prec_no=44&block_no=47662 | |
| library(ggimage) | |
| library(ggplot2) | |
| library(dplyr) | |
| library(tidyr) | |
| library(purrr) | |
| library(scales) | |
| library(rvest) |
Ryo-N7
/ japan_korea_rivalry.r
Last active
October 17, 2018 13:25
Japan vs. Korea Soccer Rivalry Graph
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(polite) | |
| library(rvest) | |
| library(dplyr) | |
| library(tidyr) | |
| library(stringr) | |
| library(lubridate) | |
| library(ggplot2) | |
| library(extrafont) | |
| loadfonts() # run once per session |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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"))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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
/ asian_cup_top_scorers.r
Created
January 5, 2019 13:03
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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
/ tidytuesday_2019_week_3.r
Created
January 20, 2019 03:48
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # 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 |
Ryo-N7
/ tokyo_monthly_1876-2018.r
Created
March 2, 2019 05:57
Tokyo Monthly Temperature (1876-1886 vs. 2008-2018)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # 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 |
Ryo-N7
/ jpop_geofacet.r
Created
March 11, 2019 14:21
geofacet japanese pop. decline, focus on north-east region (Tohoku earthquake)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # 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", |
OlderNewer