添加頻率並將其放置在圖中

Question

我想要獲取freq的變量來添加並將總數放在geom_bar中。現在，HairEyeColor數據的男性和女性頻率相互顯示 - 不添加。這裏是我的代碼：

library(ggplot2) 
hec = data.frame(HairEyeColor) 
ggplot(hec, aes(Hair, Eye, fill=Freq)) + 
geom_bar(stat='identity',position= 'dodge') + 
scale_fill_distiller(palette = "Spectral") + 
geom_text(aes(label=Freq),position=position_dodge(width=0.9),vjust=-0.25) 

它不加入的男性和女性的頻率。例如，有7名男性和7名女性，紅頭髮，綠眼睛。它只顯示7個或7個以上的可能性。這就是爲什麼棕色/棕色頭髮和眼睛看起來很奇怪。有53名男性和66名女性，棕色/棕色。

我很感激任何幫助或建議。

乾杯。

Answer 1

它不會添加值，因爲您編程時使用這些值。你可以刪除行性和總結頻率是這樣的：

library(ggplot2) 
hec = data.frame(HairEyeColor) 

library(dplyr) 

hec %<>% 
    group_by(Hair, Eye) %>% 
    summarise(Freq=sum(Freq)) 

ggplot(hec, aes(Hair, Eye, fill=Freq)) + 
    geom_bar(stat='identity',position= 'dodge') + 
    scale_fill_distiller(palette = "Spectral") + 
    geom_text(aes(label=Freq),position=position_dodge(width=0.9),vjust=-0.25)