Rでの層別のグラフの色の変更方法について

年代と性別で分けた年齢ごとの人数の層別のグラフを作ったのですが、男性と女性でそれぞれ区別して色を塗り分けたいです。

data %>%
  filter(!is.na(`性別`)) %>%
  mutate(year = year(ymd_hms(`利用日時`))) %>%
  ggplot(aes(`年齢`, color = `性別`)) +
  geom_bar() +
  facet_grid(`性別` ~ year) +
  theme_grey(base_size = 20)

上記が使用しているコードなのですが、この塗り分けだと自分の希望の色分けにならなかったので、対処法を教えていただきたいです。よろしくお願いいたします。

行動規範の内容に同意します

回答1件

ベストアンサー

自分で塗りつぶしの色を指定するには、scale_fill_manualを使って、引数valuesに色の文字列のベクトルを渡します。

補足: 塗りつぶしの色を性別で分けるには、aesにオプション引数fillの設定(値は`性別`)も必要。オプション引数colorは枠線の色の指定。その上で、塗りつぶしの色はscale_fill_manual、枠線の色はscale_color_manualを使う。

R
1data %>%
2  filter(!is.na(`性別`)) %>%
3  mutate(year = year(ymd_hms(`利用日時`))) %>%
4  ggplot(aes(`年齢`, color = `性別`, fill = `性別`)) +
5  geom_bar() +
6  facet_grid(`性別` ~ year) +
7  scale_color_manual(values=c("#800000", "#000080")) + 
8  scale_fill_manual(values=c("red", "blue")) + 
9  theme_grey(base_size = 20)