回答編集履歴
2
誤字を修正
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
補足を追加
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
|
+
```
|