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

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

https://i.stack.imgur.com/XZVxl.jpg