6.1 Charging Stations in US and Canada

Code

library(tidyverse)
library(pubtheme)
library(gganimate)
library(leaflet)

title = "Level 2 and Level 3 Charging Stations in US and Canada"
g = ggplot(d, 
           aes(x    = lon, 
               y    = lat, 
               size = lev23))+
  borders('state', 
          colour = publightgray)+
  geom_point(alpha = .1, 
             color = pubred, 
             show.legend = F)+
  labs(title = title)
  

g %>% 
  pub(type = 'map')

[1] 0
[1] 80
[1] 20
[1] 100