2018-01-19 Zone Expansion Survey

This was a survey open between 2018-01-19 and 2018-02-18. It asked people to

• Rank your top seven most important future zones from the vision survey (1 is the most important zone to you)
• Rank the top seven current zones you use that *you personally* need more space in (1 is the zone that needs space most desperately)
• Write in any other new zones you really really want to see? (one per line)

The results were:

#!/usr/bin/env Rscript

library(data.table)

dat <- fread("./response.csv")
request <- fread("./formattedRequest.csv")

# parse inputs for a number to be 8-x if x is nonzero
fnc <- function(x) { if(x==0 || is.na(x)) { return(0) } else { return(8-x) }}

# run that function over all the important columns
#hardcoded number of responses yay
for(i in 1:nrow(dat)) { dat[i,c(3:19,21:38) := lapply(dat[i,c(3:19,21:38)], fnc)] }

png("new.png")
par(mai=c(1,3,1,1))
barplot(colSums(dat[,c(3:19)])[order(colSums(dat[,c(3:19)]))], horiz=1, las=1, main="New Zones")
png("expand.png")
par(mai=c(1,2,1,1))
barplot(colSums(dat[,c(21:38)])[order(colSums(dat[,c(21:38)]))], horiz=1, las=1, main="Zones to Expand")
png("request.png")
par(mai=c(1,4,1,1))
barplot(unlist(request[,1])[order(request[,1])], names.arg=unlist(request[,2])[order(request[,1])], horiz=1, las=1, main="New Zone Writeins")

The difference between the unformatted CSV export and the response.csv is line endings, newlines in responses, and the titles