I have been trying to get the following code, which produces Image 1, to look like Image 2, I would very much appreciate any help!
barchart = ggplot(
data = Final_tank,
aes(x = Lookback, y = Return, fill = Type)) +
geom_bar(aes(fill = Type), position = "dodge", stat="identity") +
guides(
fill = guide_legend(
reverse = FALSE,
keywidth = 2,
keyheight = 2,
nrow = nrow(Final_tank),
labels = Final_tank$Category,
title = (NULL))) +
scale_fill_manual(values = c("#002142", "#e8a823", "#afafaf")) +
scale_y_continuous(labels = percent)