6.4 Level 3 Charging Stations by Network

Code

dg = d %>%
  filter(lev3 > 0, 
         lon >= -127, 
         lon <=  -62,
         lat >=   23,
         lat <=   51) %>% 
  filter(status == 'avail')

title = "Level 3 Charging Stations in US and Canada"
g = ggplot(dg, 
           aes(x     = lon, 
               y     = lat, 
               color = network3, 
               size  = lev3))+
  borders('usa', 
          colour = publightgray)+
  geom_point(alpha = .3, 
             show.legend = F)+
  facet_wrap(~network3)+
  labs(title   = title, 
       caption = 'As of July 13, 2023. Data: https://afdc.energy.gov/')+
  scale_color_manual(
    values = c(pubred,          ## Tesla
               'darkturquoise', ## Electrify America
               'navy',          ## eVgo
               'darkorange',    ## ChargePoint
               pubdarkgray,     ## Non-networked
               pubmediumgray)) ## Other
  
g %>%
  pub('map') +
  scale_size(range = c(.5, 3)) +
  theme(panel.spacing = unit(10*1/72/3, "in"))

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