ggplot(p, aes(x=Area, y=Count, color=Type)) +
geom_bar(stat="identity", position="dodge", aes(fill=Type), color="black") +
scale_fill_manual(values = alpha(c("#000000", "#FF5733"))) +
geom_text(aes(label=Count, colour=Type),
position=position_dodge(width = 0.9),
vjust=-0.40) +
scale_colour_manual(values=c("#000000", "#FF5733"))