-
Notifications
You must be signed in to change notification settings - Fork 7
/
5_blue.R
48 lines (43 loc) · 1.04 KB
/
5_blue.R
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
# #30DayMapChallenge
# Día 5: azul
# Fracción de nubosidad
# Fuente datos: https://neo.sci.gsfc.nasa.gov/view.php?datasetId=MODAL2_M_CLD_FR&year=2020
# Autora: Stephanie Orellana (@sporella)
library(stars)
library(ggplot2)
clouds <- read_stars("data/MODAL2_M_CLD_FR_2020-10-01_rgb_3600x1800.FLOAT.TIFF",
NA_value = 99999)
p <- ggplot() +
geom_stars(data = clouds) +
scale_fill_gradient2(
low = "navy",
high = "white",
mid = "steelblue1",
midpoint = 0.55,
breaks = seq(0, 1, 0.2),
na.value = "transparent"
) +
labs(
fill = "",
caption = "@sporella",
y = "",
x = ""
) +
theme_void()+
theme(
plot.margin = unit(c(0.6, 0.6, 0.6, 0.6), "mm"),
legend.position = "none",
plot.caption = element_text(size = 3, colour = "navy"),
plot.caption.position = "plot",
panel.background = element_blank(),
axis.text = element_blank()
) +
coord_sf(crs = 4326)
ggsave(
"plots/5_nubes.png",
plot = p,
device = "png",
height = 2.5,
width = 4.5,
bg = "white"
)