(Acest articol a fost publicat pentru prima dată pe r.iresmi.netși cu amabilitate a contribuit la R-bloggeri). (Puteți raporta problema legată de conținutul acestei pagini aici)
Doriți să vă distribuiți conținutul pe R-bloggeri? dați clic aici dacă aveți un blog, sau aici dacă nu aveți.
Ziua 22 din 30DayMapChallenge: « 2 culori » (anterior).
Doar o glumă…
library(dplyr) library(rnaturalearth) library(ggplot2) library(glue)
Date de pe Pământul Natural.
countries <- ne_countries(scale = 110, returnclass = "sf")
countries |>
ggplot() +
geom_sf(aes(fill = if_else(sovereignt == "India", sovereignt, "Outdia")),
color = "gold3") +
scale_x_continuous(expand = c(0, 0)) +
scale_y_continuous(expand = c(0, 0)) +
scale_fill_manual(name = "",
values = list("India" = "indianred2",
"Outdia" = "gold1")) +
coord_sf(crs = "+proj=eqearth") +
labs(title = "भारत",
caption = glue("https://r.iresmi.net/ - {Sys.Date()}
data: Natural Earth")) +
theme_void() +
theme(plot.title = element_text(color = "indianred3",
size = 16,
face = "bold"),
plot.caption = element_text(size = 6,
color = "darkgrey"),
plot.margin = unit(c(1, 2, 1, 2), "mm"))
Figura 1: India/Outdia
