Power Plant Mapping

power <- read_csv("D://power_plants.csv")

## Parsed with column specification:
## cols(
##   .default = col_double(),
##   country = col_character(),
##   country_long = col_character(),
##   name = col_character(),
##   gppd_idnr = col_character(),
##   primary_fuel = col_character(),
##   other_fuel1 = col_character(),
##   other_fuel2 = col_character(),
##   other_fuel3 = col_logical(),
##   owner = col_character(),
##   source = col_character(),
##   url = col_character(),
##   geolocation_source = col_character()
## )

## See spec(...) for full column specifications.

## Warning: 194 parsing failures.
##   row     col               expected             actual                   file
##  5503 wepp_id no trailing characters |1082331           'D://power_plants.csv'
## 12015 wepp_id no trailing characters |1085384           'D://power_plants.csv'
## 12042 wepp_id no trailing characters |1064452           'D://power_plants.csv'
## 12340 wepp_id no trailing characters |1060668           'D://power_plants.csv'
## 12453 wepp_id no trailing characters | 1074143| 1030932 'D://power_plants.csv'
## ..... ....... ...................... .................. ......................
## See problems(...) for more details.

power <- power %>% 
  filter(commissioning_year >= 2018)

Power Plants Put Online Since 2018

leaflet(power) %>% 
  addTiles() %>% 
  addMarkers(~longitude, ~latitude, popup = ~name)