给你：
注意：这是一个让你看到什么是可能的动机。在未来，请先看看这里如何提出一个关于stackoverflow的问题

library(tidyverse)

df %>% 
  pivot_longer(-District) %>% 
  ggplot(aes(x = name, y = value, fill = District)) +
  geom_col(position = position_dodge())+
  scale_fill_manual(values = c("red", "blue"))+
  labs(title = "Number of Things per Month", x="Year", "Value")+
  theme_minimal()+
  theme(legend.position = "bottom")