data points in states

points-in-states.r

library(maps)
library(tidyverse)


# Having the data.csv file in the same working directory
data <- read_csv("data.csv")

data_states <- data %>% 
  mutate(state = map.where('state', Longitude, Latitude)) %>% 
  # Removes point not in a state
  filter(!is.na(state)) %>%
  # Some states are subdivided, this mutate call collapes them together
  mutate(state = if_else(str_detect(state, ":"),
                                    str_extract(state, ".+?(?=:)"),
                                    state))


data_states %>% 
  count(state)