Aves GCS especies compartidas

# Load package
# devtools::install_github("mattflor/chorddiag")
library(chorddiag)

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