ggplot aes（）がstat_bin（）のエラーを返す

Question

次のデータセットのヒストグラムをプロットしようとしています。このgistogramsは、このグループ内の総出生のための母親の年齢とそれぞれのカウントのための一意の各グループの棒を持っている必要があります。

mother_age birth_count 
25 - 29    2 
30 - 34    1 
35 - 39    2 
40 - 44    2 
20 - 24    2 
25 - 29    7 
30 - 34    13 
35 - 39    5 
40 - 44    1 
15 - 19    5 
20 - 24    8 
25 - 29    25 
30 - 34    46 
35 - 39    31 
40 - 44    6 
15 - 19    16 
20 - 24    48 
25 - 29    162 
30 - 34    212 
35 - 39    100 
40 - 44    22 
15 - 19    7 
20 - 24    63 
25 - 29    162 
30 - 34    237 
35 - 39    128 
40 - 44    20 
15 - 19    1 
20 - 24    15 
25 - 29    48 

私はggplotを使用してヒストグラムをプロットしようとしています：

df1$mother_age <- as.factor(df1$mother_age) 
df1$birth_count <- as.numeric(df1$birth_count) 

mthr_chld <- ggplot(df1, aes(x=mother_age, y=birth_count)) + 
    ggtitle ("Mother Children") + 
    geom_histogram() + 
    labs(x = 'Mother\'s Age Group', y = 'Total Births') 

mthr_chld 

それがエラーを投げています：

Error: stat_bin() must not be used with a y aesthetic. 

ここで私は間違いをしていますか？

Answer 1

データはすでに格納されているため、geom_histogramは使用できませんが、集約されていないため、geom_colは明らかな解決策ではありません。あなたの前にちょうど集計プロット

library(ggplot2) 

df <- read.table(text = 'mother_age_group birth_count 
         "25 - 29"    2 
         "30 - 34"    1 
         "35 - 39"    2 
         "40 - 44"    2 
         "20 - 24"    2 
         "25 - 29"    7 
         "30 - 34"    13 
         "35 - 39"    5 
         "40 - 44"    1 
         "15 - 19"    5 
         "20 - 24"    8 
         "25 - 29"    25 
         "30 - 34"    46 
         "35 - 39"    31 
         "40 - 44"    6 
         "15 - 19"    16 
         "20 - 24"    48 
         "25 - 29"    162 
         "30 - 34"    212 
         "35 - 39"    100 
         "40 - 44"    22 
         "15 - 19"    7 
         "20 - 24"    63 
         "25 - 29"    162 
         "30 - 34"    237 
         "35 - 39"    128 
         "40 - 44"    20 
         "15 - 19"    1 
         "20 - 24"    15 
         "25 - 29"    48', head = T) 

ggplot(df, aes(mother_age_group, birth_count)) + 
    geom_bar(stat = 'summary', fun.y = sum) 

...または：

library(dplyr) 

df %>% count(mother_age_group, wt = birth_count) %>% 
    ggplot(aes(mother_age_group, n)) + 
    geom_col()