rptu
unikn::seecol(rptu, main = "The colors of RPTU") # view color palette
unikn::demopal(rptu, type = 1, main = "Using the colors of RPTU")
# Gradients:
rptu_10 <- unikn::usecol(c(rptu[9], "white"), n = 11)[1:10]
# unikn::seecol(rptu_10, main = "10 shades of a RPTU color")
rptu_21 <- unikn::usecol(c(rptu[1], "white", rptu[2]), n = 21)
# unikn::seecol(rptu_21, main = "A gradient between a RPTU color pair")
Run the code above in your browser using DataLab