lmu_2
unikn::seecol(lmu_2, main = "The secondary/grey colors of the LMU München")
unikn::demopal(lmu_2, type = 5, main = "Secondary/gray colors of LMU Munich")
# Combining primary and secondary LMU colors:
lmu_pal_bipolor <- c(lmu_1[-2], rev(lmu_2), lmu_1[2])
unikn::demopal(lmu_pal_bipolor, type = "mosaic", main = "Bipolar colors of LMU")
lmu_pal_linear <- c(lmu_1[-3], lmu_2, lmu_1[3])
unikn::demopal(lmu_pal_linear, type = "polygon", seed = 2, main = "Linear colors of LMU")
Run the code above in your browser using DataLab