# NOT RUN {
require(viridisLite)
n <- 15
hcparcords(head(mtcars, n), color = hex_to_rgba(magma(n), 0.5))
require(dplyr)
data(iris)
set.seed(123)
iris <- sample_n(iris, 60)
hcparcords(iris, color = colorize(iris$Species))
# }
Run the code above in your browser using DataLab