Visualize tweets using leaflet

The data is collected from tweet replies to @POTUS October 6th tweet regarding the Fifth Circuit decision that DACA is unlawful.

Load Data, check if geolocation info included, clean data

DACA <- read.csv("DACA_g1.csv")
DACA <- DACA[!is.na(DACA$lat),]
DACA <- DACA[!is.na(DACA$lng),]

Check data types, convert to as.numeric

DACA$lat <- as.numeric(DACA$lat)
typeof(DACA$lat)
## [1] "double"
DACA$lng <- as.numeric(DACA$lng)
typeof(DACA$lng)
## [1] "double"
typeof(DACA)
## [1] "list"

Load packages

library(dplyr)
## Warning: package 'dplyr' was built under R version 4.2.1
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(leaflet)
## Warning: package 'leaflet' was built under R version 4.2.2

Interactive maps with geolocation using Esri and OpenStreetMap

mapx <- leaflet(data = DACA) %>% 
  addTiles() %>%
  setView(lng = -98.35, lat = 39.50, zoom = 3) %>% 
  addMarkers(lng = ~lng, lat = ~lat,popup = ~ as.character(text)) %>% 
  addProviderTiles(providers$Esri.WorldStreetMap) %>% #select basemap template
  addCircleMarkers(
    stroke = FALSE, fillOpacity = 0.5
  ) 
## Assuming "lng" and "lat" are longitude and latitude, respectively
mapx
mapX <- leaflet(data = DACA) %>% 
  addTiles() %>%
  setView(lng = -98.35, lat = 39.50, zoom = 3) %>% 
  addCircleMarkers(lng = ~lng, lat = ~lat) %>% 
  addProviderTiles("OpenStreetMap.Mapnik") %>%
  addCircleMarkers(
    stroke = FALSE, fillOpacity = 0.5
  ) 
## Assuming "lng" and "lat" are longitude and latitude, respectively
mapX