代码：
ggplot(data = City,aes(x = City_Category,y = Purchase,fill = Gender)) +
  geom_bar(stat = 'identity')+
  ggtitle('不同城市中，男 vs 女的购物花销对比') +
  theme_grey(base_family = 'STKaiti')


数据集：
[img]blob:https://bbs.pinggu.org/253e68c1-4077-49e3-87a4-07f21d62daaf[/img]

图：
[img]blob:https://bbs.pinggu.org/2b157166-6121-4bcc-ad91-f2c2b7225c7d[/img]


感谢大佬🙏