Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

View emitanaka's full-sized avatar

Emi Tanaka emitanaka

461 followers · 0 following
View GitHub Profile
@emitanaka
emitanaka / churn_exploration.R
Created September 12, 2022 09:01
Cleaned up version of https://gist.github.com/jwinternheimer/4c36ce1efe29ecd48b89
library(data.table)
library(tidyverse) # ggplot2, tidyr, dplyr, purrr, stringr ...
library(scales)
library(grid)
library(RColorBrewer)
###############################################################
## MOST COMMON ACTIONS DURING FIRST TWO WEEKS
###############################################################
## IMPORT AND TIDY DATA
@emitanaka
emitanaka / collapseoutput.js
Created July 20, 2019 04:43
Collapsible Code Output for `xaringan`
<script>
(function() {
var divHTML = document.querySelectorAll(".details-open");
divHTML.forEach(function (el) {
var preNodes = el.getElementsByTagName("pre");
var outputNode = preNodes[1];
outputNode.outerHTML = "<details open class='output'><summary>Output</summary>" + outputNode.outerHTML + "</details>";
})
})();
(function() {
@emitanaka
emitanaka / patch-preserving-attributes-with-c.R
Last active April 18, 2021 09:40
Combine elements like `c` but preserving the attributes
x <- structure(list(x = 1), "attr" = 2)
y <- structure(list(y = 3), "attr" = 1)
l <- list(x, y)
out <- do.call(c, l)
# doesn't quite work (notice the name)
out2 <- lapply(seq_along(out), function(i) {
attributes(out[[i]]) <- attributes(l[[i]])
out[[i]]
})
@emitanaka
emitanaka / tidymatrix.R
Created April 1, 2021 04:54
as_tidymatrix <- function(x){
structure(list(.value = as.vector(x),
.row = as.vector(row(x)),
.col = as.vector(col(x))),
row.names = seq_len(length(as.vector(x))),
nrow = nrow(x), # need these attribute if storing it as sparse later
ncol = ncol(x),
class = c("tidymatrix", "data.frame"))
}
@emitanaka
emitanaka / median-income-calc.R
Last active June 11, 2020 03:22
Median income calculation from range
library(tidyverse)
income_df <- tibble(income_range = c("0-74", "75-145", "150-325", "325+"),
count = c(125, 170, 215, 250)) %>%
separate(income_range,
into = c("income_min", "income_max"),
convert = TRUE)
calc_median_income <- function(df) {
df %>%
@emitanaka
emitanaka / animate-voting.R
Last active April 30, 2020 01:46
Instant-runoff voting system for the 🇦🇺 House of Representative election in 2019
# the party logos are required to be in the form of `plogo-XXX.png` where XXX is the party abbreviation that matches
# in PartyAb
# inspired by https://coolbutuseless.github.io/2020/04/12/racing-barplots-with-ggpattern-flagon-gganimate/
library(tidyverse)
library(gganimate)
library(ggpattern)
dat <- read_csv("https://results.aec.gov.au/24310/Website/Downloads/HouseDopByDivisionDownload-24310.csv", skip = 1) %>%
mutate(PartyAb = case_when(
@emitanaka
emitanaka / ggplot_tutorial.Rmd
Last active March 30, 2020 04:02
ggplot tutorial with kunoichi + ninjutsu xaringan theme
---
title: "ggplot tutorial"
subtitle: "with kunoichi + ninjutsu theme"
author: "<br><br> Emi Tanaka"
date: "<br>2018/09/16"
output:
xaringan::moon_reader:
lib_dir: libs
css: ["kunoichi", "ninjutsu"]
nature:
@emitanaka
emitanaka / example.html
Created September 11, 2019 22:08
remark.js bug - unclosed square bracket
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml" lang="" xml:lang="">
<head>
<meta charset="utf-8" />
<style>
.column1, .column2 {
position: absolute;
top:0;
width:50%;
}
@emitanaka
emitanaka / buggy_slide_with_fix.Rmd
Created September 11, 2019 21:30
xaringan ninjutsu remark.js bug
---
output:
xaringan::moon_reader:
css: "ninjutsu"
seal: false
---
class: split-40
count: false
@emitanaka
emitanaka / keybase.md
Created July 14, 2019 00:16
Keybase

Keybase proof

I hereby claim:

  • I am emitanaka on github.
  • I am emitanaka (https://keybase.io/emitanaka) on keybase.
  • I have a public key ASBn0EYjrw-NsypB8fDZvX1xNNWZPPkVzwt2bupVc7zt6Ao

To claim this, I am signing this object: