For some reason the outline has continued through some of the other bars, I'm not really sure why. This is the code I used to make it.
graph <- ggplot(data = parrots2, aes(x = Reared, y = Scores, fill = Variables)) +
geom_bar(stat = "identity", position = position_dodge(), color = "black") + labs(x = "Rearing style", y = "Frequency of scores")
graph
My graph: