data(sicalis)
vis_sicalis <- vismodel(sicalis)
tcs_sicalis <- colspace(vis_sicalis)
cols <- c("#1B9E77", "#D95F02", "#7570B3")
plot(tcs_sicalis, col = cols)
legendtetra(
legend = c("Crown", "Throat", "Breast"),
col = cols, pch = 16
)
Run the code above in your browser using DataLab