alexwhan

library(tidyverse)
maxy <- 26
miny <- 1

maxx <- 27
minx <- 1

nblue <- 25
nyellow <- 13
nred <- 14

alexwhan

function text

alexwhan

library(ggplot2)
library(gganimate)
library(dplyr)
library(tidyr)

#make a demo layout
ids1 <- 1:20
ids2 <- c(1:10, 21:30)
rep1 <- data.frame(row = c(1:4, 1), range = 1:5) %>% 
  expand(row, range) %>% 

alexwhan

Keybase proof

I hereby claim:

• I am alexwhan on github.
• I am alexwhan (https://keybase.io/alexwhan) on keybase.
• I have a public key ASAxeEb50FSEICQcpOzUeKJ7DAcG6pkBp9pJsabvfrMimQo

To claim this, I am signing this object:

alexwhan

library(ggplot2)
set.seed(42)
ran <- expand.grid(y = seq(from = 1, to = 300, length.out = 150),
                   x = seq(from = 1, to = 300, length.out = 150))
ran$r <- sample(seq(from = 0.7, to = 1, by = 0.05), nrow(ran), replace = TRUE)
ran$g <- sample(seq(from = 0, to = 0.1, by = 0.05), nrow(ran), replace = TRUE)
ran$b <- sample(seq(from = 0, to = 0.4, by = 0.05), nrow(ran), replace = TRUE)
ran$hex <- rgb(ran$r, ran$g, ran$b)
ran$size <- sample(seq(from = 2, to = 5, by = 0.2), nrow(ran), replace = TRUE)
ran$shape <- sample(15:20, nrow(ran), replace = TRUE)

alexwhan

# packages
library("dplyr")
library("reshape")
library("microbenchmark")

set.seed(1)

# prep data
m <- mtcars
n <- 50L # number of data.frames

alexwhan

alexwhan

alexwhan

{
 "name": "flare",
 "children": [
  {
   "name": "analytics",
   "children": [
    {
     "name": "cluster",
     "children": [
      {"name": "AgglomerativeCluster", "size": 3938},

alexwhan

{
 "name": "flare",
 "children": [
  {
   "name": "analytics",
   "children": [
    {
     "name": "cluster",
     "children": [
      {"name": "AgglomerativeCluster", "size": 3938},