-
Notifications
You must be signed in to change notification settings - Fork 9
/
urban_agglomerations.Rd
51 lines (51 loc) · 1.5 KB
/
urban_agglomerations.Rd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/urban_agglomerations.R
\docType{data}
\name{urban_agglomerations}
\alias{urban_agglomerations}
\title{Major urban areas worldwide}
\format{
Selected variables:
\itemize{
\item{year: Year of population estimate}
\item{country_code: Code of country}
\item{urban_agglomeration: Name of the urban agglomeration}
\item{population_millions: Estimated human population}
\item{geometry: sfc_POINT}
}
}
\usage{
urban_agglomerations
}
\description{
Dataset in a 'long' form from the United Nations
population division with projections up to 2050.
Includes only the top 30 largest areas by population at 5 year intervals.
}
\examples{
if (requireNamespace("sf", quietly = TRUE)) {
library(sf)
plot(urban_agglomerations)
}
# Code used to download the data:
\dontrun{
f = "WUP2018-F11b-30_Largest_Cities_in_2018_by_time.xls"
download.file(
destfile = f,
url = paste0("https://population.un.org/wup/Download/Files/", f)
)
library(dplyr)
library(sf)
urban_agglomerations = readxl::read_excel(f, skip = 16) \%>\%
st_as_sf(coords = c("Longitude", "Latitude"), crs = 4326)
names(urban_agglomerations)
names(urban_agglomerations) <- gsub(" |\\\\n", "_", tolower(names(urban_agglomerations)) ) \%>\%
gsub("\\\\(|\\\\)", "", .)
names(urban_agglomerations)
urban_agglomerations
usethis::use_data(urban_agglomerations, overwrite = TRUE)
file.remove("WUP2018-F11b-30_Largest_Cities_in_2018_by_time.xls")
}
}
\keyword{datasets}
\keyword{sf}