trazar con dos categorías
data5$gndr <- as.factor(data5$gndr)
ggplot(data5, aes(img_sum, fill = gndr)) +
geom_bar(position = 'identity', alpha = 0.4)
Diana H
data5$gndr <- as.factor(data5$gndr)
ggplot(data5, aes(img_sum, fill = gndr)) +
geom_bar(position = 'identity', alpha = 0.4)