[R을 이용하여 COLOR 색좌표]

 

library(SpecHelpers)
library(pavo)
library(magick)


dev.off()

# Generate a fake dataset
set.seed(20190320)
coldat <- as.data.frame(matrix(runif(n = 30, min = 0.15, max = 0.5), nrow = 10, ncol = 3))

# Make sure this dataset works with the cieplot() function
attr(coldat, "clrsp") <- "CIEXYZ"
colnames(coldat) <- c("x", "y", "z")

cieplot(coldat)
title(main= "Stopping Distance versus Speed")

title(main= list("Stopping Distance versus Speed", cex= 1.5, col = "red", 
                 
                 font = 3))