Skip to content

Instantly share code, notes, and snippets.

View cmgiven's full-sized avatar

Chris Given cmgiven

104 followers · 0 following
  • Washington, DC
View GitHub Profile
@cmgiven
cmgiven / .block
Created August 16, 2016 14:50
Gooey Exploding Scatterplot
license: mit
@cmgiven
cmgiven / .block
Last active October 27, 2019 19:52
Zoomable Choropleth
license: mit
height: 600
@cmgiven
cmgiven / .block
Last active March 4, 2023 20:25
Zoomable Treemap Bar Chart
license: mit
@cmgiven
cmgiven / .block
Last active August 20, 2016 02:57
Retina Canvas
license: mit
@cmgiven
cmgiven / .block
Created August 20, 2016 21:21
Eight Queens
license: mit
@cmgiven
cmgiven / .block
Created August 21, 2016 15:04
Cohort Trails
license: mit
@cmgiven
cmgiven / .block
Last active October 27, 2019 19:52
Interactive General Update Pattern
license: mit
height: 640
@cmgiven
cmgiven / keybase.md
Created November 12, 2016 16:16

Keybase proof

I hereby claim:

  • I am cmgiven on github.
  • I am cmgiven (https://keybase.io/cmgiven) on keybase.
  • I have a public key whose fingerprint is A08A 263C F610 EF95 8CDB 84F0 CF79 B8A5 DDC3 931E

To claim this, I am signing this object:

@cmgiven
cmgiven / aecf_id_load.R
Created December 3, 2016 16:04
AECF Connecting Data Systems, Data Loading
library("dplyr")
options(stringsAsFactors=FALSE)
bhs <- read.csv("Behavioral Health Services.csv") %>%
mutate(
SVC_START_DT = as.Date(SVC_START_DT, "%m/%d/%Y"),
SVC_END_DT = as.Date(SVC_END_DT, "%m/%d/%Y"),
SUBMT_DT = as.Date(SUBMT_DT, "%m/%d/%Y")
)
@cmgiven
cmgiven / bhs_cooccur.R
Created December 3, 2016 22:09
Behavioral Health Event Co-Occurence
library("dplyr")
library("tidyr")
library("cooccur")
options(stringsAsFactors=FALSE)
bhs <- read.csv("Behavioral Health Services - higher grouping.csv") %>%
mutate(
SVC_START_DT = as.Date(SVC_START_DT, "%m/%d/%Y"),
SVC_END_DT = as.Date(SVC_END_DT, "%m/%d/%Y"),