ia_cities: Location of Iowa's cities

In DSPG-ISU/DSPG: Data Basis for DSPG Projects at ISU

Location of Iowa's cities

Description

provenance - Chris, I need some help with how we document these exports.

Usage

ia_cities

Format

A data frame with 1069 rows and 17 variables:

rid

rid number

city

city name

cityFIPS

5-digit city fips code

cityFIPS_1

7-digit city fips code

county

county name

countyPr

categorical: 60 0s and 1009 xs.

countyPr_1

categorical: 56 0s and 1013 xs.

countyFI

double value - maybe an identifier?

countyFI_1

looks like FI with an additional 19 in front

stateNam

state name - constant value of 'Iowa'.

stateFIP

state fips code - constant value of 19.

state

two-letter state abbreviation - constant value of 'IA'

type

categorical variable: 1001 0s, one oopsie that probably should be a zero. 59 CDPs 1 other and 7 unincorporated communities.

popChange

sf point object - absolute change in population between XXX and XXX?

currentPop

sf point object - current population (what is the basis for these numbers?)

percentChg

sf point object - percent change in population.

geometry

sf point object of IA cities' coordinates.

Source

some url?

Examples

# county map of iowa in ggplot2
library(ggplot2)
library(dplyr) # for the pipe

ia_cities %>%
  mutate(
    growth = cut(percentChg,
                 breaks = c(-Inf, -2.5, 2.5, Inf),
                 labels = c("2.5% Loss or more", "Stable", "2.5% Growth or more"))) %>%
  filter(!is.na(growth)) %>%
  ggplot() +
    geom_sf(data = ia_counties,
            fill="grey95", colour = "grey60", size = 0.1) +
    geom_sf(aes(size = currentPop, colour = growth),
            alpha = 0.5) +
    scale_size_binned("Population", range=c(0.5,3.5)) +
    scale_colour_manual("Percent Change\nin Population",
              values=c("darkred", "grey30", "darkblue")) +
    ggthemes::theme_map() +
    theme(legend.position = "right")

# leaflet map
library(leaflet)
library(sf)
colors <- c("darkred", "grey30", "darkblue")
labels <- c("2.5% Loss or more", "Stable", "2.5% Growth or more")
pal <- colorFactor(palette = colors, levels = labels)

ia_cities %>%
  mutate(
    growth = cut(percentChg,
                 breaks = c(-Inf, -2.5, 2.5, Inf),
                 labels = labels)) %>%
  leaflet() %>%
    addTiles() %>%
    addPolygons(data = ia_counties,
                weight = 1, color="#333333") %>%
    addCircleMarkers(radius = ~log(currentPop, base=2), color = ~pal(growth),
                     label = ~city) %>%
    addLegend(title = "% Change in Population", colors = colors, labels = labels)

ia_cities %>%
  filter(!is.na(currentPop)) %>%
  mutate(
    growth = cut(percentChg,
                 breaks = c(-Inf, -2.5, 2.5, Inf),
                 labels = labels)) %>%
  ggplot(aes(x = currentPop, y = percentChg)) +
  geom_point(aes(color = growth)) +
  scale_colour_manual(values = c("darkred", "grey50", "darkblue")) +
  theme_bw()

DSPG-ISU/DSPG documentation built on Feb. 19, 2024, 9:36 p.m.