col <- "#123456"
col2 <- adjust_hsv(col, h=0.1)
col3 <- adjust_hsv(col, s=0.1)
col4 <- adjust_hsv(col, v=0.7)
barplot(rep(1, 4), col=c(col, col2, col3, col4),
names=c("original", "h", "s", "v"))
Run the code above in your browser using DataLab