Skip to content

Instantly share code, notes, and snippets.

@thoughtfulbloke

thoughtfulbloke/streamgraph_nzpop.R

Created September 23, 2019 21:07
Show Gist options
  • Save thoughtfulbloke/5711f6f302b2f23f52175a9a9de09736 to your computer and use it in GitHub Desktop.
Save thoughtfulbloke/5711f6f302b2f23f52175a9a9de09736 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
streamgraph_nzpop.R
library(streamgraph)
ctext ="egroup, cyear, n
European, 2001, 2871432
Maori, 2001, 526281
Pacific Peoples, 2001, 231801
Asian, 2001, 238176
Middle Eastern/Latin American/African, 2001, 24084
Other ethnicity, 2001, 801
European, 2006, 2609589
Maori, 2006, 565329
Pacific Peoples, 2006, 265974
Asian, 2006, 354549
Middle Eastern/Latin American/African, 2006, 34743
Other ethnicity, 2006, 430881
European, 2013, 2969391
Maori, 2013, 598605
Pacific Peoples, 2013, 295941
Asian, 2013, 471708
Middle Eastern/Latin American/African, 2013, 46956
Other ethnicity, 2013, 67752
European, 2018, 3299228
Maori, 2018, 775460
Pacific Peoples, 2018, 709663
Asian, 2018, 380680
Middle Eastern/Latin American/African, 2018, 70496
Other ethnicity, 2018, 56397"
cvals <- read.csv(text=ctext, stringsAsFactors = FALSE)
streamgraph(cvals, "egroup", "n", "cyear")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment