Alcoholic and Narcotics Anonymous Meetings in Iowa

Dataset was scraped from the support group websites of Iowa by Jessie Bustin, Grant Durhban, Atefeh Rajabalizadeh, and Vikram Magal.

meetings

Format

A data frame with 1549 rows and 13 variables:

day: day of the week
time: time of the day
ampm: morning or afternoon
meeting: name of the meeting
address: address
street: stree name
state: state
format: Format of the meeting - XXX this needs some additional work
city: city
type: type of meeting
longitude: geographic Longitude
latitude: geographic Latitude
schedule: weekly schedule of meetings, starting with Monday at midnight.
classification: column used to classify the data set
county: county

Source

https://www.aa-iowa.org/meetings/, https://www.na-iowa.org/meetings/, https://adultchildren.org/mtsearch, https://al-anon.org/al-anon-meetings/find-an-alateen-meeting/, http://draonline.qwknetllc.com/meetings_dra/usa/iowa.html, https://www.nar-anon.org, https://www.smartrecoverytest.org/local/full-meeting-list-download/, https://locator.crgroups.info/, https://www.facebook.com/crushofiowa/, https://refugerecovery.org/meetings?tsml-day=any&tsml-region=iowa

Examples

# Location of meetings in Iowa
library(ggplot2)
library(dplyr)
meetings %>%
  ggplot(aes(x = longitude, y = latitude)) +
  geom_point(aes(colour = type))

# Leaflet map of meetings in Iowa
library(leaflet)
library(sf)
meetings %>%
 leaflet() %>%
 addTiles() %>%
 addPolygons(data = ia_counties,
             weight = 1, color="#333333") %>%
 addCircleMarkers(meetings %>% filter(type == "Narcotics Anonymous"),
                  lng = ~longitude, lat = ~latitude,
                  radius = 1, stroke = 0.1,
                  color = "darkorange",
                  label = ~meeting, group="NA") %>%
 addCircleMarkers(meetings %>% filter(type == "Alcoholics Anonymous"),
                  lng = ~longitude, lat = ~latitude,
                  radius = 1, stroke = 0.1,
                  color = "darkgreen",
                  label = ~meeting, group="AA") %>%
 addLayersControl(overlayGroups = c("AA","NA"))