d <- read.csv("D:/sfuvault/Interact Tasks/Victoria Survey Descriptives/Data/Victoria_health_q_data_COPY.csv")
  • There are a total of 286 Participants in this survey.
  • Some participants have NA values in their question responses. These are denoted as “NA” in summaries.

Section 1: Transportation

Q1:How many bicycles are kept in your household?

Adult bikes

ggplot(d, aes(x = d$Q1_transp_bikes_adults)) + geom_bar(na.rm = TRUE) + xlab("Number of bicycles for adults")