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