Stranger Things Geotagging Workflow

Step 2 of Creating 604 Dashboard

Lissie Bates-Haus, Ph.D. https://github.com/lbateshaus (U Mass Amherst DACSS MS Student)https://www.umass.edu/sbs/data-analytics-and-computational-social-science-program/ms
2022-07-09 
#load libraries
library(rtweet)
library(leaflet)
library(quanteda)
library(readr)

Load In Data:

sts4 <- read_csv("sts4.csv", show_col_types = FALSE)
strangerthingsRT <- read_csv("strangerthingsRT.csv", show_col_types = FALSE)
stTweets <- read_csv("stTweets.csv")

Note: Step 1 (the Scrape) will not be published due to containing confidential account information.

Code from DBD (2021):

setwd("~/DACCS R/604 Data Viz")

# GET GEO CODES NO RT
geocodes <- lat_lng(stTweets)

geocodes <- geocodes[!is.na(geocodes$lat),] 

write_as_csv(geocodes,"geocodes.csv") #don't forget to copy this saved file to your app directory

[Note: something very weird is going on, as I reran this and ALL my variables with data disappeared?? So I rescraped, and I’m trying again - if this does not work, I’ll just do the wordcloud.]

Okay, it seems to have worked!