比較組間的頻率並刪除圖例標題

Created: November-22, 2018

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