visualizando las castas, a 526 años de algo

Hay González blanco, hay González negro...

por el hecho que le haya caído más leche al café,

ya no son González.

Etnias, Grupo Niche

     Las discusiones sobre racismo no se hacen menos vigentes con el tiempo, desde los tiempos de las castas hasta los videos de los abusos policiacos, o el eterno uso descalificativo de "indígena", o la polémica sobre los orígenes de los jugadores de la selección francesa.

    Considerando esto, y en conmemoración de los 526 años que significa cosas muy distintas para los involucrados, preparé este breve post, usando información de wikipedia, para visualizar los porcentajes de cada raza en las castas, considerando que el mestizaje resultaba en un 50%-50% de rasgos (lo cuál no ocurre genéticamente). Al ver el plot ternario, me parece ridículo que haya gente que piense que un punto pueda valer más que otro.

Desconocido, Museo Nacional del Virreinato

El codiguiux:

# install.packages("ggplot2")
# devtools::install_bitbucket("nicholasehamilton/ggtern")
# devtools::install_github("dkahle/ggmap")
# chequen que el estilo se llama "tropical"
library(ggtern)


castas <- data.frame(indio = c(0.5, 0.5, 0.75, 0, 0, 0, 0.25, 0, 0.75, 0.5,
                               0.375, 0.875, 0.875, 0, 0.375, 0.1875, 0.9375, 0.46875, 0.09375),
                     negro = c(0, 0.5, 0.25, 0.5, 0.25, 0.125, 0, 0.0625, 0,
                               0.25, 0, 0, 0.125, 0.28125, 0.265625, 0.3828125, 0.0625, 0.171875,
                               0.6914062),
                     europeo = c(0.5, 0, 0, 0.5, 0.75, 0.875, 0.75,
                               0.9375, 0.25, 0.25, 0.625, 0.125, 0, 0.71875, 0.359375, 0.4296875,
                               0, 0.359375, 0.2148438),
                     cas=c("mestizo", "zambo","chino", "mulato", "morisco", "albino", "castizo",
                           "saltapatras", "coyote", "chino", "harnizo", "chamizo", "cambujo", "lobo",
                           "gilvaro", "albarazado", "sambaigo", "campamulato", "cambujo2"))
ggplot(castas, aes(indio,negro,europeo, label=cas)) + geom_point() + coord_tern() +
  geom_text(vjust=1.2, angle=30, size=3.2, hjust=-.1) +   theme_tropical() + theme_nomask() + labs(title="Castas, porcentaje por raza", caption="datamarindo.blogspot.mx, CCbySA\n")