Data Preparation

This how I prepared the data for the DC demographics visualization

library(dplyr)

dc.data <- read.csv("..filepath", header=TRUE)
## Error in file(file, "rt"): cannot open the connection
colnames(dc.data) <- as.character(unlist(dc.data[1, ]))
## Error in unlist(dc.data[1, ]): object 'dc.data' not found
dc.data <- as.data.frame(dc.data[-1,])
## Error in as.data.frame(dc.data[-1, ]): object 'dc.data' not found
dc.data$Geography <- as.character(dc.data$Geography)
## Error in eval(expr, envir, enclos): object 'dc.data' not found
dc.data$Geography <- gsub( ", District of Columbia, District of Columbia","" ,dc.data$Geography)
## Error in gsub(", District of Columbia, District of Columbia", "", dc.data$Geography): object 'dc.data' not found
dc.data2 <- select(dc.data,1:3,contains("Percent;"))
## Error in select_(.data, .dots = lazyeval::lazy_dots(...)): object 'dc.data' not found
write.csv(dc.data2, "DCdata.csv")
## Error in is.data.frame(x): object 'dc.data2' not found