iowaworks | R Documentation |
Dataset was scraped by Masoud Nosrati from the Iowa Workforce Development in Mar 2020, geocoding by Andrew Maloney through QGIS.
iowaworks
A data frame with 27 rows and 18 variables:
identifier, not quite the row number
enumeration of counties the center serves
Center - XXX delete
street address
city
state
5-digit zip code
phone number
email address
NAs - XXX delete
weblink to the center
0s XXX delete column?
OKs XXX delete column?
formatted addresses - some are duplicates - XXX look into
identifier, based on address? - some are duplicates - XXX look into
categorical variable with additional details on location.
geographic latitude
geographic longitude
https://www.iowaworkforcedevelopment.gov/contact
# Map of centers in Iowa using ggplot2
library(ggplot2)
library(dplyr) # for the pipe
iowaworks %>%
ggplot() +
geom_point(aes(x = Longitude, y = Latitude))
# leaflet map
library(leaflet)
library(sf)
iowaworks %>%
group_by(NAME, PHONE) %>%
mutate(
hovertext = htmltools::HTML(paste0("IowaWORKS Center<br>",formatted_,
'<br>serving ', NAME, '<br>', PHONE))
) %>%
leaflet() %>%
addTiles() %>%
addPolygons(data = ia_counties,
weight = 1, color="#333333") %>%
addCircleMarkers(lng = ~Longitude, lat = ~Latitude,
radius = 1, stroke = 0.1,
label = ~hovertext)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.