fredbenenson

{
  "nodes":[
    {"name":"Myriel","group":1},
    {"name":"Napoleon","group":1},
    {"name":"Mlle.Baptistine","group":1},
    {"name":"Mme.Magloire","group":1},
    {"name":"CountessdeLo","group":1},
    {"name":"Geborand","group":1},
    {"name":"Champtercier","group":1},
    {"name":"Cravatte","group":1},

fredbenenson

#Sopa data munging:
sopa.d <- read.csv("~/Downloads/Kickstarter Backer Report - $15 reward - Jan 15 6pm.csv")
sopa.i <- read.csv("~/Downloads/Kickstarter Backer Report - $30 reward - Jan 15 6pm.csv")

#International survey didn't have the pickup question so fake a column:
sopa.i$Choices.2 <- sopa.i$Choices.1
sopa.i$Choices.1 <- "No"
sopa <- rbind(sopa.d, sopa.i)

# Rename Levels: