# 1章 ggplot2によるデータ可視化

### 1.0 ライブラリーの読み込み&#x20;

```
library("tidyverse")
```

### 1.1 はじめに

{% hint style="info" %}
練習問題はありません。
{% endhint %}

### 1.2 第1ステップ

#### 練習問題1 : ggplot(data = mpg)を実行しなさい。どうなるか。

```
ggplot(data = mpg)
```

`ggplot()`は座標平面を表示する関数なので、何かが表示されるわけではありません。

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgbyo9dx797BC4Cw5JM%2F-Lgc-4mD9aiC9_PPuFWV%2Fpractice1_2.png?alt=media\&token=716063bf-5572-46af-8cf9-9e9f563c2d7c)

#### 練習問題2 : mtcarsには何行あるか。何列あるか。

基本的には`ncol()`、`nrow()`、`dim()`などでデータフレームのサイズは確認できます。

```
ncol(mtcars)
[1] 11

nrow(mtcars)
[1] 32

dim(mtcars)
[1] 32 11
```

他にも`{glimpse}`パッケージの`glimpse()`でも確認できます。

```
library("glimpse")
mtcars %>% glimpse()

Observations: 32
Variables: 11
$ mpg  <dbl> 21.0, 21.0, 22.8, 21.4, 18.7, 18.1, 14.3, 24.4, 22.8, 19.2, 17.8, …
$ cyl  <dbl> 6, 6, 4, 6, 8, 6, 8, 4, 4, 6, 6, 8, 8, 8, 8, 8, 8, 4, 4, 4, 4, 8, …
$ disp <dbl> 160.0, 160.0, 108.0, 258.0, 360.0, 225.0, 360.0, 146.7, 140.8, 167…
$ hp   <dbl> 110, 110, 93, 110, 175, 105, 245, 62, 95, 123, 123, 180, 180, 180,…
$ drat <dbl> 3.90, 3.90, 3.85, 3.08, 3.15, 2.76, 3.21, 3.69, 3.92, 3.92, 3.92, …
$ wt   <dbl> 2.620, 2.875, 2.320, 3.215, 3.440, 3.460, 3.570, 3.190, 3.150, 3.4…
$ qsec <dbl> 16.46, 17.02, 18.61, 19.44, 17.02, 20.22, 15.84, 20.00, 22.90, 18.…
$ vs   <dbl> 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, …
$ am   <dbl> 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, …
$ gear <dbl> 4, 4, 4, 3, 3, 3, 3, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 4, 4, 4, 3, 3, …
$ carb <dbl> 4, 4, 1, 1, 2, 1, 4, 2, 2, 4, 4, 3, 3, 3, 4, 4, 4, 1, 2, 1, 1, 2, …
```

普通のやり方ではないので非推奨だけど、無理やり調べられなくもない。

```
mtcars %>% map_chr(.f = class) %>% table()
.
numeric 
     11 

mtcars %>% select(mpg) %>% map_dbl(.f = length)
mpg 
 32 
```

#### 練習問題3 : drv変数は何を記述するか。?mpgのヘルプを読んで見つけなさい。

`drv`変数は、前輪、後輪、または四輪駆動に車を分類するカテゴリ変数です。

```
?mpg
```

| Variable | Content                                              |
| -------- | ---------------------------------------------------- |
| drv      | f = front-wheel drive, r = rear wheel drive, 4 = 4wd |

#### 練習問題4 : hwyとcylの散布図を作りなさい。

```
ggplot(data = mpg, mapping = aes(x = hwy, y = cyl)) +
  geom_point()
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgc7dmkBbEaQs-00xOn%2F-Lgc8MTma9Caq_5SPFC_%2Fpractice1_2.png?alt=media\&token=ec4c5209-4ea4-4665-9c38-8bb10c97a791)

#### 練習問題5 : classとdrvの散布図はどうなるのか。なぜプロットが役に立たないのか。

この散布図は、カテゴリカル変数とカテゴリカル変数の散布図なので、わずかな点しかプロットされず役に立たない。つまり、カテゴリの組み合わせが存在しているかどうかしかわかりません。

```
ggplot(data = mpg, mapping = aes(x = class, y = drv)) +
  geom_point()
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgc-8A9It3s9tHdTgg1%2F-Lgc2WjlM1OS_uUxnGmc%2Fpractice1_2.png?alt=media\&token=11b40bad-871b-4bb2-b392-d4caada47dc3)

組み合わせ自体は下記の通りではあるが、`drv`のカーディナリティは3で、`class`のカーディナリティは7なので、組み合わせは21通りあるはずが12通りしかなく、存在していない組み合わせがあることがわかります。

```
mpg %>% 
  group_by(drv, class) %>% 
  summarise(cnt = n())

# A tibble: 12 x 3
# Groups:   drv [3]
   drv   class        cnt
   <chr> <chr>      <int>
 1 4     compact       12
 2 4     midsize        3
 3 4     pickup        33
 4 4     subcompact     4
 5 4     suv           51
 6 f     compact       35
 7 f     midsize       38
 8 f     minivan       11
 9 f     subcompact    22
10 r     2seater        5
11 r     subcompact     9
12 r     suv           11

mpg %>% distinct(drv)
# A tibble: 3 x 1
  drv  
  <chr>
1 f    
2 4    
3 r    

mpg %>% distinct(class)
# A tibble: 7 x 1
  class     
  <chr>     
1 compact   
2 midsize   
3 suv       
4 2seater   
5 minivan   
6 pickup    
7 subcompact
```

その場合、`{tidyr}`の`complete()`を使うと、全ての組み合わせを補完できる。そして、`geom_point(aes(size = n))`と指定すれば、組み合わせだけではなく、組み合わせ数の多さを「大きさ」で表現することが可能です。ここでは、組み合わせ数が0でも小さな点で表示されるようにしています。

```
mpg %>%
  count(class, drv) %>%
  complete(class, drv, fill = list(n = 0L)) %>%
  ggplot(data = ., mapping = aes(x = class, y = drv)) +
  geom_point(aes(size = n))
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-LgcECoPV8RApwJnSg3C%2F-LgcEJoBkhLrkLSPX47C%2Fpractice1_2.png?alt=media\&token=313fed12-0c4f-427b-82cf-9ed04d2e6c3a)

組み合わせが21通りなので、丸の「大きさ」でも判断ができるが、組み合わせがどんどん増えると確認するのが辛くなるので、その時は「色の濃さ」で大小を判断できるヒートマップなどを使うのも一つのやり方として良いかもしれません。

```
mpg %>%
  count(class, drv) %>%
  complete(class, drv, fill = list(n = 0L)) %>%
  ggplot(data = ., mapping = aes(x = class, y = drv)) +
  geom_tile(aes(fill = n)) + 
  scale_fill_gradient(low = "#FFFFFF", high = "#006E4F") + 
  theme_bw()
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgc96leIzWGtqlENyNl%2F-LgcCjiJkRlIPZLhyzX_%2Fpractice1_2.png?alt=media\&token=63f9219c-7fea-4c2f-a18e-2d4905d618e1)

### 1.3 エステティックマッピング

#### 練習問題1 : このコードはどこがおかしいか。点が青くないのはなぜか？

```
ggplot(data = mpg) +
  geom_point(mapping = aes(x = displ, y = hwy, colour = "blue"))
```

実際にプロットすると、`color = "blue"`と記述しているにも関わらず、点が赤くなります。これは、 aes()は、変数と値の間のマッピングを行う関数なので、`colour = "blue"`は単一の値のみをとるカテゴリカル変数として解釈されます(これは色が青という意味ではく、カーディナリティが1のカテゴリカル変数というニュアンス)。なので、すべての点が赤色になります。`colour = "1"`でも同様の結果です。

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgerl7Ou8pR-qKtZThU%2F-Lges0nSTFL1O8qQn0Cy%2FRplot.png?alt=media\&token=6471154f-9fb5-4ac0-8826-f6b908131ea3)

単色を使って点に色を付ける場合は、`aes()`の外で行います。

```
ggplot(data = mpg) +
    geom_point(mapping = aes(x = displ, y = hwy), colour = "#006E4F")
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-LgetB6EIN4vgKMsC7Tx%2F-LgetYT8n8Deeky9vUFD%2FRplot01.png?alt=media\&token=0bccf35a-36e1-43da-aa56-f97074dec726)

#### 練習問題2 : mpgのどれがカテゴリカル変数なのか。

もちろん`tbl_df`データフレームをそのまま表示してもデータの型はわかるので、これでもよいと思います。

```
mpg
# A tibble: 234 x 11
   manufacturer model      displ  year   cyl trans      drv     cty   hwy fl    class  
   <chr>        <chr>      <dbl> <int> <int> <chr>      <chr> <int> <int> <chr> <chr>  
 1 audi         a4           1.8  1999     4 auto(l5)   f        18    29 p     compact
 2 audi         a4           1.8  1999     4 manual(m5) f        21    29 p     compact
 3 audi         a4           2    2008     4 manual(m6) f        20    31 p     compact
 4 audi         a4           2    2008     4 auto(av)   f        21    30 p     compact
 5 audi         a4           2.8  1999     6 auto(l5)   f        16    26 p     compact
 6 audi         a4           2.8  1999     6 manual(m5) f        18    26 p     compact
 7 audi         a4           3.1  2008     6 auto(av)   f        18    27 p     compact
 8 audi         a4 quattro   1.8  1999     4 manual(m5) 4        18    26 p     compact
 9 audi         a4 quattro   1.8  1999     4 auto(l5)   4        16    25 p     compact
10 audi         a4 quattro   2    2008     4 manual(m6) 4        20    28 p     compact
# … with 224 more rows
```

`for-loop`で各カラムのデータ型を取得する方法でも良いが、これだと少し長いので`{purrr}`を使うとシンプルに書けます。

```
output <- vector(mode = "list", length = length(mpg))
names(output) <- names(mpg)

for (ns in names(mpg)) {
  output[[ns]] <- class(mpg[[ns]])
}

unlist(output)
manufacturer        model        displ         year          cyl        trans          drv 
 "character"  "character"    "numeric"    "integer"    "integer"  "character"  "character" 
         cty          hwy           fl        class 
   "integer"    "integer"  "character"  "character" 
```

`{purrr}`の`map()`を使うとこんな感じです。

```
mpg %>% map_chr(class)

manufacturer        model        displ         year          cyl        trans          drv 
 "character"  "character"    "numeric"    "integer"    "integer"  "character"  "character" 
         cty          hwy           fl        class 
   "integer"    "integer"  "character"  "character" 

mpg %>% map_chr(class) %>% table()
.
character   integer   numeric 
        6         4         1 
```

#### 練習問題3 : 連続変数をcolor, size, shapeにマッピングしてみる。カテゴリカル変数と連続変数ではこれらのエステティック属性がどのように振る舞うか。

colorやsizeは問題ないですが、連続値がshapeにマッピングされると、エラーが発生します。小さい点が小さい値に対応し、カラースケールでは、どの色が大きく、その色が小さいと対応させることができますが、形状で大きいか小さいかは判断できません。

```
library("gridExtra")
g1 <- ggplot(data = mpg, mapping = aes(x = displ, y = hwy, colour = cty)) +
  geom_point()

g2 <- ggplot(data = mpg, mapping = aes(x = displ, y = hwy, size = cty)) +
  geom_point()

ggplot(data = mpg, mapping = aes(x = displ, y = hwy, shape = cty)) +
  geom_point()
エラー: A continuous variable can not be mapped to shape

grid.arrange(g1, g2, ncol = 2)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-LggpuOh7WD8KxcIfQYf%2F-Lggs9M-8JdwGdHgxxCE%2FRplot01.png?alt=media\&token=e45abd63-83bb-4072-8920-2a7f2e835645)

#### 練習問題4 : 1つの変数に複数のエステティック属性をマップするとどうなるか。

色の濃さと丸の大きさで値の大小を表現することになりますが、いずれかがエステティック属性にマッピングされていれば充分です。

```
ggplot(data = mpg, mapping = aes(x = displ, y = hwy, colour = hwy, size = displ)) +
  geom_point()
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgh3k6M275Ai-bhNVoN%2F-Lgh3mY76VUGZltokMWV%2Fmultiplt.png?alt=media\&token=24bffe16-5175-41ba-8c4e-62f4e9481b9d)

#### 練習問題5 : エステティック属性のstrokeは何をするのか。

`stroke`は、図形の境界線のサイズを変更します。これらは塗りつぶされた図形で、枠の色とサイズは図形の塗りつぶされた内部の色とサイズとは異なります。

```
x <- list(1,2,3,4,5)
plots <- x %>% 
  map( ~ ggplot(data = mtcars, mapping = aes(mpg, wt)) + geom_point(stroke = ., fill = "white", colour = "black", shape = 21))
grid.arrange(plots[[1]], plots[[2]], plots[[3]], plots[[4]], plots[[5]],
             ncol = 3, nrow = 2)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgh3k6M275Ai-bhNVoN%2F-Lgh3ug7nwjtiLZMktKE%2FRplot.png?alt=media\&token=62f94960-8928-4d43-a578-a640e554dd7d)

#### 練習問題6 : エステティック属性をaes(color = displ < 5)とするとどうなるのか。

エステティック属性には式を使って、マッピングすることが可能です。この場合、5よりも小さいものは`TRUE`となり、それ以外が`FALSE`となって色分けされます。

```
ggplot(data = mpg, mapping = aes(x = displ, y = hwy, colour = displ < 5)) +
  geom_point()
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgh4CYAxW-mCkRRVvSQ%2F-Lgh4VQxyANA0SpYnl_w%2Fmultiplt.png?alt=media\&token=17f00717-d303-44a4-8843-4ec8e264fe21)

### 1.4 よくある不具合

{% hint style="info" %}
演習問題なし
{% endhint %}

### 1.5 ファセット

#### 練習問題1 : 連続変数でファセットを作るとどうなるのか。

連続変数はカテゴリカル変数に変換され、プロットはファセットごとに表示されます。

```
ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_point() +
  facet_grid(. ~ cty)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-LghGjlVcr9hI3_vpze9%2F-LghGvu-TyhG2szn4LLz%2Ffacet1x.png?alt=media\&token=052d66a5-f1ea-4a07-abfc-ad92e5fef6d8)

#### 練習問題2 : `facet_grid(drv ~ cyl)`の空のセルは何か？

空のセルは、組み合わせがない場合の表示です。

```
ggplot(data = mpg) +
  geom_point(mapping = aes(x = hwy, y = cty)) +
  facet_grid(drv ~ cyl)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-LghFlzoxY5l0j2csguG%2F-LghGd5UdwLj5h15FRPt%2Ffacet.png?alt=media\&token=a2ad8736-8fbd-41b1-944e-3dd79274f396)

#### 練習問題3 : 次のコードはどのようなプロットになりますか？`.`はなんですか？

`drv ~ .`は、`drv`の値でファセットを行方向に作ります。`行分割 ~ 列分割` というイメージです。

```
ggplot(data = mpg) +
  geom_point(mapping = aes(x = displ, y = hwy)) +
  facet_grid(drv ~ .)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-LghGjlVcr9hI3_vpze9%2F-LghHXqrtdhk7g3XWfrf%2Ffacet2x.png?alt=media\&token=5923743d-6e7f-440d-8c56-54d33631983b)

#### 練習問題4 : このセクションの最初のファセットプロットを再現してください。

```
ggplot(data = mpg) +
  geom_point(mapping = aes(x = displ, y = hwy)) +
  facet_wrap( ~ class, nrow = 2)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-LghGjlVcr9hI3_vpze9%2F-LghHmLtRfRRVenL58QY%2Ffacet3x.png?alt=media\&token=04f462bc-b703-4fe5-bba1-9b7cd9eea007)

#### 練習問題5 : `?facet_wrap`を読み、`nrow`と`ncol`はどう作用するのか調べなさい。

`nrow(ncol)`は、ファセットをレイアウトするときに使用する行数と列数を決定します。

```
ggplot(data = mpg) +
  geom_point(mapping = aes(x = hwy, y = cty)) +
  facet_wrap(drv ~ cyl, nrow = 1, ncol = 9)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-LghI26mMxCMUYST4RdX%2F-LghIhA008Ib4ygGkvgm%2Ffacet4.png?alt=media\&token=8460e757-b9fe-4e48-b34b-65cde95022d6)

#### 練習問題6 : `facet_grid()`を使うとき、レベルが多い方を行にするべきなのはなぜでしょうか。

プロットが水平方向(横方向)にレイアウトされていると、比率が横長に保たれるため、通常のプロットを小さくしたように見ることができるから。列にカーディナリティが多い変数を使うと、列数が多くなり、縦長の親しみのないプロットになるためです。

```
ggplot(data = mpg) +
  geom_point(mapping = aes(x = hwy, y = cty)) +
  facet_grid(trans ~ cyl)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-LghI26mMxCMUYST4RdX%2F-LghJRdmBkvx8qVjxJsQ%2Ffacet5.png?alt=media\&token=90f4392a-651b-452a-9968-c372993dfb26)

### 1.6 幾何オブジェクト

#### 練習問題1 : 折れ線グラフを作成するためには、どのような幾何オブジェクトを使用するのか。

基本的には、`geom_line()`で問題ないと思いますが、層化プロットを作りたいのであれば、`geom_area()`を使用します。

#### 練習問題2 : 次のコードの出力を予想してください。

```
ggplot(data = mpg, mapping = aes(x = displ, y = hwy, colour = drv)) +
  geom_point() +
  geom_smooth(se = FALSE)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-LghTRrizjgUsI0Wh7Cb%2F-LghTZDNvsiduWlcl5Bn%2Fgwom2.png?alt=media\&token=ffcc584d-13b9-4a15-885b-59e454f91fcc)

#### 練習問題3 : `show.legend = FALSE`は何をしているのか。

`show.legend = FALSE`は 、凡例を非表示にしています。

```
ggplot(data = mpg) +
  geom_smooth(mapping = aes(x = displ, y = hwy, colour = drv),
  show.legend = FALSE)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-LghTRrizjgUsI0Wh7Cb%2F-LghTWfl9GqGeWR3E_jD%2Fgwom3.png?alt=media\&token=a1346ce4-6265-474d-998b-cd6486466a04)

#### 練習問題4 : `geom_smooth()`の`se`は何をしているのか。

標準誤差(Standard Error, SE)を表示するかどうかの引数です。

```
ggplot(data = mpg, mapping = aes(x = displ, y = hwy, colour = drv)) +
  geom_point() +
  geom_smooth(se = TRUE)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-LghTRrizjgUsI0Wh7Cb%2F-LghTUmzzR2EcBHEVo-d%2Fgwom4.png?alt=media\&token=791b76da-3adf-4419-959a-2877d23f6e19)

#### 練習問題5 : この2つのグラフは違って見えるでしょうか？その理由はなんでしょうか？

`geom_point()`と`geom_smooth()`は、同じデータのマッピングを使用するため、両方の見た目は同じです。`ggplot()`にマッピングするための変数を入れておけば、何度も指定する必要はありません。

```
ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_point() +
  geom_smooth()

ggplot() +
  geom_point(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_smooth(data = mpg, mapping = aes(x = displ, y = hwy))
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-LghTKx2IF7Yk3xu_5M8%2F-LghTPr2NpLddBj0_ELt%2Fgeom5.png?alt=media\&token=bb31e33d-3635-4034-ad45-f9a39b7197ea)

#### 練習問題6 : 次のグラフを生成しなさい。

```
g1 <- ggplot(data = pg, mapping = aes(x = displ, y = hwy)) +
  geom_point() +
  geom_smooth(se = FALSE)

g2 <- ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_smooth(mapping = aes(group = drv), se = FALSE) +
  geom_point()

g3 <- ggplot(data = mpg, mapping = aes(x = displ, y = hwy, colour = drv)) +
  geom_point() +
  geom_smooth(se = FALSE)

g4 <- ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_point(aes(colour = drv)) +
  geom_smooth(se = FALSE)

g5 <- ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_point(aes(colour = drv)) +
  geom_smooth(aes(linetype = drv), se = FALSE)

g6 <- ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_point(size = 4, color = "white") +
  geom_point(aes(colour = drv))

grid.arrange(g1, g2, g3, g4, g5, g6, ncol = 2, nrow = 3)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-LghTKx2IF7Yk3xu_5M8%2F-LghTO950bw5sO6f3F8D%2FRplot.png?alt=media\&token=35a13519-395f-4c6c-848c-e27b181206c6)

### 1.7 統計変換

#### 練習問題1 : 関連付けられているデフォルトの`geom`は`stat_summary()`でしょうか。？geom関数で書き換えることができますか？

質問で参照されている「前のプロット」は次のとおりです。デフォルトの`geom`は`stat_summary()`です。`geom_pointrange()`を使い、`stat = "summary"`を使うことで再現できます。

```
g1 <- ggplot(data = diamonds) +
  stat_summary(
    mapping = aes(x = cut, y = depth),
    fun.ymin = min,
    fun.ymax = max,
    fun.y = median
  )

g2 <- ggplot(data = diamonds) +
  geom_pointrange(
    mapping = aes(x = cut, y = depth),
    stat = "summary",
    fun.ymin = min,
    fun.ymax = max,
    fun.y = median
  )

gridExtra::grid.arrange(g1, g2, ncol = 2)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgu0WU42F4l8p5V_USQ%2F-Lgu1VtJvTAfdWnEwVv8%2Fstat01.png?alt=media\&token=c5c8647c-2eb3-45fa-8196-c2f8fde8dc49)

#### 練習問題2 : `geom_col()`関数は`geom_bar()`は異なるデフォルト統計変換を持ちますか？

`geom_col()`関数は`geom_bar()`とは異なるデフォルトの`stat`を持ちます。`geom_col()`のデフォルトの`stat`は`stat_identity()`で、データをそのまま表示します。 `geom_col()`関数は、x値とデータに棒の高さを表すy値が含まれることを前提とします。

`geom_bar()`のデフォルトのstatは`stat_bin()`です。`geom_bar()`関数はx変数のみを期待します。`stat`、`stat_bin()`は、xの値ごとにサンプルのデータを数えることによって入力データを前処理します。yのエスティックはこれらの数の値を使います。

```
g1 <- ggplot(data = diamonds, mapping = aes(color)) +
  geom_bar()

g2 <- diamonds %>%
  group_by(color) %>%
  summarise(cnt = n()) %>%
  ggplot(. = diamonds, mapping = aes(color, cnt)) +
  geom_col()

gridExtra::grid.arrange(g1, g2, ncol = 2)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgu0WU42F4l8p5V_USQ%2F-Lgu2JnX4jLP98CGfq6C%2Fstat02.png?alt=media\&token=6a5abc58-cf46-4472-8d0c-36cbe92aa15d)

#### 練習問題3 : ほとんどの`geoms`と`stats`はペアになっています。ドキュメントを読み、すべてのペアのリストを作成してください。

| **geom**            | **Stat**            |
| ------------------- | ------------------- |
| geom\_bar()         | stat\_count()       |
| geom\_bin2d()       | stat\_bin\_2d()     |
| geom\_boxplot()     | stat\_boxplot()     |
| geom\_contour()     | stat\_contour()     |
| geom\_count()       | stat\_sum()         |
| geom\_density()     | stat\_density()     |
| geom\_density\_2d() | stat\_density\_2d() |
| geom\_hex()         | stat\_hex()         |
| geom\_freqpoly()    | stat\_bin()         |
| geom\_histogram()   | stat\_bin()         |
| geom\_qq\_line()    | stat\_qq\_line()    |
| geom\_qq()          | stat\_qq()          |
| geom\_quantile()    | stat\_quantile()    |
| geom\_smooth()      | stat\_smooth()      |
| geom\_violin()      | stat\_violin()      |
| geom\_sf()          | stat\_sf()          |

#### 練習問題4 : `stat_smooth()`は何を計算しますか。パラメタはどのようにふるまいますか。

`stat_smooth()`は下記のパラメタをもちます。

* `y` : 予測値
* `ymin` : 下側信頼区間
* `ymax` : 上側信頼区間
* `se` : 標準誤差

#### 練習問題5 : 100％棒グラフの`group = 1`はなぜ必要なのでしょうか。

`group = 1`が含まれていない場合、プロット内のすべてのバーは同じ高さ、1の高さになります。`stat`はグループ内のカウントを計算するので、関数`geom_bar()`はグループが値に等しいと見なされます。

```
g1 <- ggplot(data = diamonds) +
  geom_bar(mapping = aes(x = cut, fill = color, y = ..prop..))

g2 <- ggplot(data = diamonds) +
  geom_bar(aes(x = cut, y = ..count.. / sum(..count..), fill = color))

gridExtra::grid.arrange(g1, g2, ncol = 2)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgu3V0lOun9jstKA8of%2F-Lgu3cKiQe2caWmaUOQv%2Fstat03.png?alt=media\&token=bfebee8f-0db5-4f0e-aa10-2e5a843ae121)

### 1.8 位置の調整

#### 練習問題1 : このプロットの問題点を何か。改善点を上げてください。

`cty`と`hwy`の組み合わせで複数の観測値があるため、点と点が重なっており、組み合わせのカウントが1の場合と、組み合わせのカウントが複数の場合に、大乗を判断できない。ジッターを使用してプロットを改善させるほうがよい。

```
g1 <- ggplot(data = mpg, mapping = aes(x = cty, y = hwy)) +
  geom_point()

g2 <- ggplot(data = mpg, mapping = aes(x = cty, y = hwy)) +
  geom_point(position = "jitter")

gridExtra::grid.arrange(g1, g2, ncol = 2)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgue5W_5Y87ARPp5In3%2F-LgueS7xHmKGlXeDcmCw%2Fpos00.png?alt=media\&token=9d6a1f5e-cc89-4b01-98d6-724a06e7e23b)

#### 練習問題2 : `geom_jitter()`のジッター量を調整するパラメタはどれか。

練習問題1を参照してください。

* `width` : 垂直方向の移動量を制御します。
* `height` : 水平方向の移動量を制御します。

#### 練習問題3 : `geom_jitter()`と `geom_count()`を比較しなさい

`geom_jitter()`は点にランダムな変化を加えます。`geom geom_count()`は、観測数に比例して点のサイズが決まります。

```
g1 <- ggplot(data = mpg, mapping = aes(x = cty, y = hwy, color = drv)) +
  geom_point()

g2 <- ggplot(data = mpg, mapping = aes(x = cty, y = hwy, color = drv)) +
  geom_jitter()

g3 <- ggplot(data = mpg, mapping = aes(x = cty, y = hwy, color = drv)) +
  geom_count()

gridExtra::grid.arrange(g1, g2, g3, ncol = 3)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgudom0nLTKpYwlj__b%2F-LgudyHXiX7eJoqLfDQI%2Fpos02.png?alt=media\&token=cc65fe94-564e-44ef-b59a-7f143a534ee0)

#### 練習問題4 :  `geom_boxplot()`のデフォルトの位置調整は何か。

`geom_boxplot()`のデフォルトは、`position = "dodge"`です。何も指定しない場合、`position = "dodge"`を指定した場合と 同じになります。

```
g1 <- ggplot(data = mpg, mapping = aes(x = drv, y = hwy, colour = class)) +
  geom_boxplot(position = "identity")

g2 <- ggplot(data = mpg, mapping = aes(x = drv, y = hwy, colour = class)) +
  geom_boxplot(position = "dodge")

gridExtra::grid.arrange(g1, g2, ncol = 2)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgudom0nLTKpYwlj__b%2F-Lgue17RxAmpDh-SkFwp%2Fpos3.png?alt=media\&token=a0dfe87d-49ab-4148-b6e0-747ebc06c69b)

### 1.9 座標系

#### 練習問題1 : 積み上げ棒グラフを、`coord_polar()`で円グラフに変換しなさい。

角度で割合を表現する場合は、`coord_polar(theta = "y")`を指定する。指定しない場合は、ブルズ・アイチャートがデフォルトで設定されている。

```
g1 <- ggplot(data = mpg, mapping = aes(x = "1", fill = drv)) +
  geom_bar()

g2 <- ggplot(data = mpg, mapping = aes(x = "1", fill = drv)) +
  geom_bar(width = 1) +
  coord_polar(theta = "y")

g3 <- ggplot(data = mpg, mapping = aes(x = "1", fill = drv)) +
  geom_bar(width = 1) +
  coord_polar()

gridExtra::grid.arrange(g1, g2, g3, ncol = 3)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgv38-9NnaXmqa-BqJW%2F-Lgv3BE3vzaBiSlpxxte%2Fcoord01.png?alt=media\&token=00b9ad22-c384-4abc-90bc-2b0527384a4b)

#### 練習問題2 : `labs()`は何をするのか。

`labs()`はタイトル、サブタイトル、軸の名前、キャプションを追加できます。

```
ggplot(data = mpg, mapping = aes(x = "1", fill = drv)) +
  geom_bar(width = 1) +
  coord_polar() +
  labs(
    y = "count",
    x = "",
    title = "Bull's eye",
    subtitle = "mpg dataset",
    caption = "Source: https://en.wikipedia.org/wiki/Bullseye_(target)"
  )
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgv38-9NnaXmqa-BqJW%2F-Lgv3G_Vr4OpVbAwTyIs%2Fcoord2.png?alt=media\&token=15f6985b-b3b3-454e-84eb-27a448a27db2)

#### 練習問題3 : `coord_quickmao()`と `coord_map()`は何が違うのか。

[MapProjections](https://ggplot2.tidyverse.org/reference/coord_map.html)のページによると下記の通り。

> `In general, map projections must account for the fact that the actual length (in km) of one degree of longitude varies between the equator and the pole. Near the equator, the ratio between the lengths of one degree of latitude and one degree of longitude is approximately 1. Near the pole, it tends towards infinity because the length of one degree of longitude tends towards 0. For regions that span only a few degrees and are not too close to the poles, setting the aspect ratio of the plot to the appropriate lat/lon ratio approximates the usual mercator projection. This is what coord_quickmap does, and is much faster (particularly for complex plots like geom_tile()) at the expense of correctness.`

地図関係の知識が乏しいので、正確ではないかもしれませんが、`coord_map()`は、メルカトル図法を使用して作図しますが、 `coord_quickmap()`は、地球の曲率を無視し、近似的な緯度/経度比のマップを作図します。

```
library("maps")
world_map <- map_data ("world")
japan <- world_map[world_map$region == "Japan",]
g1 <- ggplot(data = japan, mapping = aes(long, lat, group = group)) +
  geom_polygon(fill = "white", colour = "black") + 
  coord_map()

g2 <- ggplot(data = japan, mapping = aes(long, lat, group = group)) +
  geom_polygon(fill = "white", colour = "black") + 
  coord_quickmap()

gridExtra::grid.arrange(g1, g2, ncol = 2)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgv38-9NnaXmqa-BqJW%2F-Lgv3Jcu9i00LchrpLXe%2Fcoord03.png?alt=media\&token=c02681bf-19ec-4a7d-9ed3-cfb4cdb6802b)

#### 練習問題4 :  `geom_boxplot()`のデフォルトの位置調整は何か。

`coord_fixed()`は座標系を同じ比率に固定します。例えば、`geom_abline()`が生成する角度を、視覚的に45度に見えるように座標比率を調整できます。

```
g1 <- ggplot(data = mpg, mapping = aes(x = cty, y = hwy)) +
  geom_point() +
  geom_abline() + xlim(0, 50) + ylim(0, 50)

g2 <- ggplot(data = mpg, mapping = aes(x = cty, y = hwy)) +
  geom_point() +
  geom_abline() +
  coord_fixed() + xlim(0, 50) + ylim(0, 50)

gridExtra::grid.arrange(g1, g2, ncol = 2)
```

![](https://1636413031-files.gitbook.io/~/files/v0/b/gitbook-legacy-files/o/assets%2F-Lgbs99o7F9-WGmlZ0XR%2F-Lgv38-9NnaXmqa-BqJW%2F-Lgv3MSVCOhgQ712FnpH%2Fcoord04.png?alt=media\&token=e178136c-29fa-4d0a-a843-a3e9d32f2f57)

### 1.10 階層グラフィック図法

{% hint style="info" %}
練習問題はありません。
{% endhint %}
