m <- matrix(c(11975, 5871, 8916, 2868, 1951, 10048, 2060, 6171, 8010, 16145, 8090, 8045, 1013, 990, 940, 6907), byrow = TRUE, nrow = 4, ncol = 4) groupNames <- c("black", "blonde", "brown", "red") row.names(m) <- groupNames colnames(m) <- groupNames m
library(chorddiag) groupColors <- c("#000000", "#FFDD89", "#957244", "#F26223") chorddiag(m, groupColors = groupColors, groupnamePadding = 20)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.