Grafica de especies compartidas
mouse over to see numbers
# Create dummy data
m <- matrix(c(169, 10, 30, 5, 0,
10, 253, 14, 8, 1,
30, 14, 190, 2, 0,
5, 8, 2, 230, 20,
0, 1, 0, 20, 53
),
byrow = TRUE,
nrow = 5, ncol = 5)
# A vector of 5 colors for 5 groups
haircolors <- c("black", "blonde", "brown", "red", "blue")
deptos <- c("Guajira", "Meta", "Atlantico", "Quindio", "Santander")
dimnames(m) <- list(have = deptos,
prefer = deptos)
groupColors <- c("#000000", "#FFDD89", "#957244", "#F26223", "#0000FF")
# Build the chord diagram:
p <- chorddiag(m, groupColors = groupColors, groupnamePadding = 20)
p