[This article was first published on One world | Projects, maps and coding - R Project, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.
Do you know the Bonne projection?
1 min.
Do you know the Bonne Projection? This is a very special one, as used on whole world’s mapping produces this result. Happy Valentine’s Day!
library(sf)
library(dplyr)
library(giscoR)
library(ggplot2)
library(showtext)
world <- gisco_get_countries()
# Shaped ocean
h_earth <- world %>%
# Fine grid
st_make_grid(n = c(50, 50)) %>%
# Bonne projection
st_transform("ESRI:54024") %>%
# To sf object (data-frame like)
st_sf(couple = 2, someval = 1, .)
# And finally
_add_google(name = "Emilys Candy", family = "emilys")
showtext_auto()
ggplot() +
geom_sf(data = h_earth, fill = "#f9b7bb", color = "#f9b7bb") +
geom_sf(data = world, fill = "#d24658", color = "#d24658") +
theme_void() +
labs(
title = "Happy Valentine's Day",
caption = "Bonne Projection (ESRI:54024)"
) +
theme(
plot.background = element_rect(
fill = "#faddcf",
color = "transparent"
),
text = element_text(family = "emilys", colour = "#d24658"),
plot.title = element_text(hjust = 0.5, size = rel(3)),
plot.caption = element_text(hjust = 0.5, size = rel(2))
)
To leave a comment for the author, please follow the link and comment on their blog: One world | Projects, maps and coding - R Project.
R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.