meetings: Alcoholic and Narcotics Anonymous Meetings in Iowa
In DSPG-ISU/DSPG: Data Basis for DSPG Projects at ISU

meetings

R Documentation

Alcoholic and Narcotics Anonymous Meetings in Iowa

Description

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

Usage

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"))

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