data(dc_data)
# View the first few rows of non-geometric columns
print(dc_data[1:5, c("GEOID", "B01003_001", "B19013_001")])
# Create a basic map
if (interactive()) {
map <- create_bivariate_map(
data = dc_data,
var_1 = "B01003_001", # Total population
var_2 = "B19013_001" # Median household income
)
}
Run the code above in your browser using DataLab