# \donttest{
data("cross_blended_hypsometric_tints_db")
cross_blended_hypsometric_tints_db
# Select a palette
warm <- cross_blended_hypsometric_tints_db %>%
filter(pal == "warm_humid")
f <- system.file("extdata/asia.tif", package = "tidyterra")
r <- terra::rast(f)
library(ggplot2)
p <- ggplot() +
geom_spatraster(data = r) +
labs(fill = "elevation")
p +
scale_fill_gradientn(colors = warm$hex)
# Use with limits
p +
scale_fill_gradientn(
colors = warm$hex,
values = scales::rescale(warm$limit),
limit = range(warm$limit),
na.value = "lightblue"
)
# }
Run the code above in your browser using DataLab