#install.packages("rnaturalearth")
#install.packages("rnaturalearthdata")
#install.packages("ggspatial")
#install.packages("sf")
#install.packages("rgeos")
library(rnaturalearth)
library(rnaturalearthdata)
library(ggspatial)
library(sf)
## Linking to GEOS 3.8.0, GDAL 3.0.4, PROJ 6.3.1
library(ggplot2)
library(rgeos)
## Loading required package: sp
## rgeos version: 0.5-5, (SVN revision 640)
## GEOS runtime version: 3.8.0-CAPI-1.13.1
## Linking to sp version: 1.4-4
## Polygon checking: TRUE
world <- ne_countries(scale = "medium", returnclass = "sf")
str(world)
## Classes 'sf' and 'data.frame': 241 obs. of 64 variables:
## $ scalerank : int 3 1 1 1 1 3 3 1 1 1 ...
## $ featurecla: chr "Admin-0 country" "Admin-0 country" "Admin-0 country" "Admin-0 country" ...
## $ labelrank : num 5 3 3 6 6 6 6 4 2 6 ...
## $ sovereignt: chr "Netherlands" "Afghanistan" "Angola" "United Kingdom" ...
## $ sov_a3 : chr "NL1" "AFG" "AGO" "GB1" ...
## $ adm0_dif : num 1 0 0 1 0 1 0 0 0 0 ...
## $ level : num 2 2 2 2 2 2 2 2 2 2 ...
## $ type : chr "Country" "Sovereign country" "Sovereign country" "Dependency" ...
## $ admin : chr "Aruba" "Afghanistan" "Angola" "Anguilla" ...
## $ adm0_a3 : chr "ABW" "AFG" "AGO" "AIA" ...
## $ geou_dif : num 0 0 0 0 0 0 0 0 0 0 ...
## $ geounit : chr "Aruba" "Afghanistan" "Angola" "Anguilla" ...
## $ gu_a3 : chr "ABW" "AFG" "AGO" "AIA" ...
## $ su_dif : num 0 0 0 0 0 0 0 0 0 0 ...
## $ subunit : chr "Aruba" "Afghanistan" "Angola" "Anguilla" ...
## $ su_a3 : chr "ABW" "AFG" "AGO" "AIA" ...
## $ brk_diff : num 0 0 0 0 0 0 0 0 0 0 ...
## $ name : chr "Aruba" "Afghanistan" "Angola" "Anguilla" ...
## $ name_long : chr "Aruba" "Afghanistan" "Angola" "Anguilla" ...
## $ brk_a3 : chr "ABW" "AFG" "AGO" "AIA" ...
## $ brk_name : chr "Aruba" "Afghanistan" "Angola" "Anguilla" ...
## $ brk_group : chr NA NA NA NA ...
## $ abbrev : chr "Aruba" "Afg." "Ang." "Ang." ...
## $ postal : chr "AW" "AF" "AO" "AI" ...
## $ formal_en : chr "Aruba" "Islamic State of Afghanistan" "People's Republic of Angola" NA ...
## $ formal_fr : chr NA NA NA NA ...
## $ note_adm0 : chr "Neth." NA NA "U.K." ...
## $ note_brk : chr NA NA NA NA ...
## $ name_sort : chr "Aruba" "Afghanistan" "Angola" "Anguilla" ...
## $ name_alt : chr NA NA NA NA ...
## $ mapcolor7 : num 4 5 3 6 1 4 1 2 3 3 ...
## $ mapcolor8 : num 2 6 2 6 4 1 4 1 1 1 ...
## $ mapcolor9 : num 2 8 6 6 1 4 1 3 3 2 ...
## $ mapcolor13: num 9 7 1 3 6 6 8 3 13 10 ...
## $ pop_est : num 103065 28400000 12799293 14436 3639453 ...
## $ gdp_md_est: num 2258 22270 110300 109 21810 ...
## $ pop_year : num NA NA NA NA NA NA NA NA NA NA ...
## $ lastcensus: num 2010 1979 1970 NA 2001 ...
## $ gdp_year : num NA NA NA NA NA NA NA NA NA NA ...
## $ economy : chr "6. Developing region" "7. Least developed region" "7. Least developed region" "6. Developing region" ...
## $ income_grp: chr "2. High income: nonOECD" "5. Low income" "3. Upper middle income" "3. Upper middle income" ...
## $ wikipedia : num NA NA NA NA NA NA NA NA NA NA ...
## $ fips_10 : chr NA NA NA NA ...
## $ iso_a2 : chr "AW" "AF" "AO" "AI" ...
## $ iso_a3 : chr "ABW" "AFG" "AGO" "AIA" ...
## $ iso_n3 : chr "533" "004" "024" "660" ...
## $ un_a3 : chr "533" "004" "024" "660" ...
## $ wb_a2 : chr "AW" "AF" "AO" NA ...
## $ wb_a3 : chr "ABW" "AFG" "AGO" NA ...
## $ woe_id : num NA NA NA NA NA NA NA NA NA NA ...
## $ adm0_a3_is: chr "ABW" "AFG" "AGO" "AIA" ...
## $ adm0_a3_us: chr "ABW" "AFG" "AGO" "AIA" ...
## $ adm0_a3_un: num NA NA NA NA NA NA NA NA NA NA ...
## $ adm0_a3_wb: num NA NA NA NA NA NA NA NA NA NA ...
## $ continent : chr "North America" "Asia" "Africa" "North America" ...
## $ region_un : chr "Americas" "Asia" "Africa" "Americas" ...
## $ subregion : chr "Caribbean" "Southern Asia" "Middle Africa" "Caribbean" ...
## $ region_wb : chr "Latin America & Caribbean" "South Asia" "Sub-Saharan Africa" "Latin America & Caribbean" ...
## $ name_len : num 5 11 6 8 7 5 7 20 9 7 ...
## $ long_len : num 5 11 6 8 7 13 7 20 9 7 ...
## $ abbrev_len: num 5 4 4 4 4 5 4 6 4 4 ...
## $ tiny : num 4 NA NA NA NA 5 5 NA NA NA ...
## $ homepart : num NA 1 1 NA 1 NA 1 1 1 1 ...
## $ geometry :sfc_MULTIPOLYGON of length 241; first list element: List of 1
## ..$ :List of 1
## .. ..$ : num [1:10, 1:2] -69.9 -69.9 -69.9 -70 -70.1 ...
## ..- attr(*, "class")= chr [1:3] "XY" "MULTIPOLYGON" "sfg"
## - attr(*, "sf_column")= chr "geometry"
## - attr(*, "agr")= Factor w/ 3 levels "constant","aggregate",..: NA NA NA NA NA NA NA NA NA NA ...
## ..- attr(*, "names")= chr [1:63] "scalerank" "featurecla" "labelrank" "sovereignt" ...
plot(world)
## Warning: plotting the first 9 out of 63 attributes; use max.plot = 63 to plot
## all
ggplot(data = world) +
geom_sf()
