>pie(table(RegA$var), main = "Variedad de los cerezos de la región A", col = c("yellow", "white", "pink"))