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