回答編集履歴

2

誤字を修正

2021/09/25 07:43

投稿

Daregada
Daregada

スコア11990

test CHANGED
@@ -2,7 +2,7 @@
2
2
 
3
3
 
4
4
 
5
- 補足: 塗りつぶしの色を性別で分けるには、`aes`にオプション引数`fill`の設定(値は`` `性別` ``も必要。オプション引数`color`は枠線の色の指定。その上で、塗りつぶしの色は`scale_fill_manual`、枠線の色は`scale_color_manual`を使う。
5
+ 補足: 塗りつぶしの色を性別で分けるには、`aes`にオプション引数`fill`の設定(値は`` `性別` ``)も必要。オプション引数`color`は枠線の色の指定。その上で、塗りつぶしの色は`scale_fill_manual`、枠線の色は`scale_color_manual`を使う。
6
6
 
7
7
 
8
8
 

1

補足を追加

2021/09/25 07:43

投稿

Daregada
Daregada

スコア11990

test CHANGED
@@ -1 +1,29 @@
1
1
  自分で塗りつぶしの色を指定するには、`scale_fill_manual`を使って、引数`values`に色の文字列のベクトルを渡します。
2
+
3
+
4
+
5
+ 補足: 塗りつぶしの色を性別で分けるには、`aes`にオプション引数`fill`の設定(値は`` `性別` ``も必要。オプション引数`color`は枠線の色の指定。その上で、塗りつぶしの色は`scale_fill_manual`、枠線の色は`scale_color_manual`を使う。
6
+
7
+
8
+
9
+ ```R
10
+
11
+ data %>%
12
+
13
+ filter(!is.na(`性別`)) %>%
14
+
15
+ mutate(year = year(ymd_hms(`利用日時`))) %>%
16
+
17
+ ggplot(aes(`年齢`, color = `性別`, fill = `性別`)) +
18
+
19
+ geom_bar() +
20
+
21
+ facet_grid(`性別` ~ year) +
22
+
23
+ scale_color_manual(values=c("#800000", "#000080")) +
24
+
25
+ scale_fill_manual(values=c("red", "blue")) +
26
+
27
+ theme_grey(base_size = 20)
28
+
29
+ ```