xxxxxxxxxx
1
2
3
4
5
6
7
8
9
10
winners_df %>%
ggplot(aes(x = winner,
y = n,
fill = toss_decision))+
geom_col(position="dodge")+
labs(x="")+
theme(legend.position="top",
legend.title=element_blank())+
scale_fill_manual(values = c("bat first"="dodgerblue", "field first"="tomato" ))
ggsave("remove_legend_title_with_theme_element_blank.png",width=8, height=6)