library(sf)
data(africa_cities_ports)
head(africa_cities_ports)
# View largest cities
largest <- africa_cities_ports[order(-africa_cities_ports$population), ]
largest[1:10, c("city", "country", "population")]
# Filter port cities
ports <- africa_cities_ports[!is.na(africa_cities_ports$port_locode), ]
nrow(ports) # 51 ports
# \donttest{
plot(africa_cities_ports["population"])
# }
Run the code above in your browser using DataLab