if (FALSE) {
# simple example for breaks and factors
display.palette (c ("red", "green", "blue"), breaks = c(0, 1, 3, 7),
ylab = "a simple color palette")
display.palette (c ("red", "green", "blue"), breaks = c(0, 1, 3, 7),
override.breaks = TRUE)
display.palette (c ("red", "green", "blue"),
factors = c("red", "green", "blue"))
display.palette (c ("grey", "green", "blue"), factors = c(NA, 1, 2))
# for RVV palette, the function computes breaks between -1000 and 1000
display.palette (pal.RVV (255), new.window = TRUE)
# a palette for dose, for instance
display.palette (rainbow (255, start = 0, end = 4/6, rev = TRUE),
breaks = seq (0, 60, length.out = 256), new.window = TRUE)
# black & white palette for CTs or MRs
display.palette (grey.colors (255, start = 0, end = 1),
breaks = seq (0, 60, length.out = 256), new.window = TRUE)
# transparency affects colors depending on background (black in first exemple,
# white in the second one)
display.palette (pal.rainbow(255), breaks = seq (0, 60, length.out=256))
display.palette (pal.rainbow(255), breaks = seq (0, 60, length.out=256),
bg = "white", new.window = TRUE)
}
# colors contracted range using non uniform breaks in the plot window
display.palette (pal.rainbow(255),
breaks = seq (0, 1, length.out = 256)^0.25 * 60, bg="grey",
new.window = FALSE)
# the same using breaks override
display.palette (pal.rainbow(255),
breaks = seq (0, 1, length.out = 256)^0.25 * 60, bg="grey",
override.breaks = TRUE, new.window = FALSE)
Run the code above in your browser using DataLab