比较组间的频率并删除图例标题

Created: November-22, 2018

g + geom_bar(aes(x = cut, fill = color), position = "fill") + 
    guides(fill = guide_legend(title = NULL))