Plotly Map-Making in R

library(plotly)
packageVersion('plotly')

[1] ‘4.5.6’

Sys.setenv("plotly_username"="bigdatagal")
Sys.setenv("plotly_api_key"="hvginfgvwe")

Choropleth Maps

setwd('C:/RClass')

The working directory was changed to C:/RClass inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the the working directory for notebook chunks.

states<-read.csv("States.csv", header=TRUE)
states

states$hover <- with(states, paste("SATv", states$SATV, "SATm", states$SATM, "<br>", "State", states$X))
geo_list <- list(scope = 'usa', projection = list(type = 'albers usa'), showlakes = TRUE, lakecolor =  'rgb(66,165,245)')
school_spending <- plot_geo(states, locationmode = 'USA-states') %>%
  add_trace(z = ~states$dollars, text = ~hover, locations = ~X) %>%
  colorbar(title = "Millions USD") %>%
  layout(title = 'State Spending on Public Education, in $k/student<br>(Hover for SAT scores)', geo = geo_list)
web_link = plotly_POST(school_spending, filename="choropleth-school-spending")

No encoding supplied: defaulting to UTF-8.
Success! Modified your plotly here -> https://plot.ly/~bigdatagal/173

web_link

Point Maps

snow_fall <- read.csv('snow_inventory.csv', header = FALSE)
col_headings <- c('stn_id', 'lat', 'long', 'elev', 'code')
names(snow_fall) <- col_headings
snow_fall

snow_sample <- snow_fall[sample(1:nrow(snow_fall), 200,replace=FALSE),]
snow_sample

geo_list <- list(scope = 'usa', projection = list(type = 'albers usa'), showland = TRUE, landcolor = 'tan', showlakes = TRUE, subunitcolor = toRGB("gray85"), countrycolor = 'tan', countrywidth = 0.7, subunitwidth = 0.7)
station_elevations <- plot_geo(snow_sample, lat = ~lat, lon = ~long) %>%
  add_markers(color = ~elev, size = I(9)) %>%
  colorbar(title = "Elevation (m)") %>%
  layout(title = 'NOAA Weather Snowfall Station Elevations', geo = geo_list)
web_link = plotly_POST(station_elevations, filename="NOAA_station_elevations")

No encoding supplied: defaulting to UTF-8.
Success! Modified your plotly here -> https://plot.ly/~bigdatagal/175

web_link

Want access to the instructional videos that teach you how to make these for yourself? The course is closed at the moment, but will reopen REAL soon. Sign-up on the waitlist and I will let you know when they’ve been released publicly. The waitlist Google doc is here: https://goo.gl/forms/aJLQBoeHwmOxDS4t2

All Rights Reserved (c), Data-Mania, LLC - 2017