Plots from last year’s survey

library(RColorBrewer)
data <- read.csv("survey2014.csv")
colnames(data)[8:22] <- c("helmet", "agerange", "race", "memberuser", "origin", "trippurpose","modeinstead", "tripchain", "ownbike", "convenient", "exercise", "safer", "lessexpense", "environment", "obstacles")
colors <- brewer.pal(5, "BuPu")
table(data$helmet)
## 
##  No Yes 
##  45  10
barplot(table(data$helmet), col = colors, main = "Helmet Use")

barplot(table(data$environment))

barplot(table(data$environment), names.arg=c("Strongly Agree", "Agree", "Neutral", "Strongly Disagree"), col = colors, main = "I am using Divvy for this trip because it is better for the environment \n than other forms of transport", ylab= "Number")
legend("topright", legend = c("Strongly Agree", "Agree", "Neutral", "Strongly Disagree"), fill=colors, cex=0.64, inset = 0.005)

barplot(table(data$trippurpose), horiz=TRUE, cex.names=0.5,las=2)

barplot(table(data$modeinstead), names.arg=c("CTA Bus", "CTA Train",  "Wouldn't made trip",  "Car", "Personal Bike",  "Taxi", "Walked" ), col = colors, horiz=TRUE, cex.names=0.5,las=2, main = "How would you have made the trip without Divvy")

barplot(table(data$tripchain), col = colors, las=2, main="Trip Combo")

barplot(table(data$ownbike), col = colors, main = "Do you own a bike?")

barplot(table(data$convenient), names.arg=c("Strongly Agree", "Agree", "Neutral", "Disagree", "Strongly Disagree"), col = colors, main = "Use Divvy for Convenience?")

barplot(table(data$exercise), names.arg=c("Strongly Agree", "Agree", "Neutral", "Strongly Disagree"), col = colors, main = "Use Divvy for Exercise?")

barplot(table(data$safer), names.arg=c("Strongly Agree", "Agree", "Neutral", "Disagree", "Strongly Disagree"), col = colors, main = "Is Divvy Safer than other modes?")

barplot(table(data$lessexpense), names.arg=c("Strongly Agree", "Agree", "Neutral", "Disagree", "Strongly Disagree"), col = colors, main = "Is Divvy Less expensive than other modes?")