arrangeColors <-
function( colorVector, groupSizes, defaultColor= "lightgrey") {
N = length(colorVector)
result = replicate(length(groupSizes), defaultColor)
for (i in 1:N) {
result[as.numeric(names(groupSizes)[i])] = colorVector[i]
}
return(result)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.