(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 26 din 30DayMapChallenge: „Proiecții hărți” (anterior).
După ce am văzut această postare a lui Cédric Vidonne, a trebuit să încerc să folosesc și proiecția Spilhaus.
library(dplyr)
library(ggplot2)
library(scales)
library(glue)
library(terra)
source("spilhaus.R") # from https://github.com/rtlemos/spilhaus/ see below
Concentrația în masă a clorofilei a în apa de mare. Obțineți datele actuale de la Copernicus: Analiza și prognoza biogeochimiei oceanului global (Uniunea Europeană-Copernicus Marine Service 2019). Mai întâi va trebui să vă înregistrați.
Este disponibil un API, dar pentru aceasta o singură fotografie o descărcare manuală este mai ușoară:
chlorophyll <- rast("cmems_mod_glo_bgc-pft_anfc_0.25deg_P1D-m_1732694885194.nc")
Pe baza funcţiilor realizate de Ricardo T. Lemos.
spilhaus_df <- make_spilhaus_xy_gridpoints(spilhaus_res = 1000) lonlat <- from_spilhaus_xy_to_lonlat(spilhaus_df$x, spilhaus_df$y) spilhaus_df$z <- pull(extract(chlorophyll, lonlat), 1) spilhaus_df$l <- is.na(spilhaus_df$z) pretty_spilhaus_df <- pretify_spilhaus_df(spilhaus_df)
pretty_spilhaus_df |>
ggplot(aes(x, y, fill = z)) +
geom_raster() +
scale_fill_viridis_c(option = "viridis",
limits = c(0, .8),
na.value = viridis_pal()(2)(2),
name = bquote(atop("2024-11-28", "Chlorophyll a ("*mg %.% m^-3*")"))) +
coord_equal() +
labs(caption = glue("https://r.iresmi.net/ - {Sys.Date()}
Generated using E.U. Copernicus Marine Service Information 10.48670/moi-00015")) +
theme_void() +
theme(plot.background = element_rect(fill = "black",
color = "black"),
plot.caption = element_text(size = 6,
color = "darkgrey"),
legend.position = c(0.85, 0.85),
legend.title = element_text(color = "white"),
legend.text = element_text(color = "white"))
Figura 1: Concentrația în masă a clorofilei a în apa de mare – 2024-11-28
Referințe
Uniunea Europeană-Copernicus Marine Service. 2019. „La nivel global Analiza biogeochimiei oceanice şi Prognoza.” Mercator Ocean International. https://doi.org/10.48670/MOI-00015.
