地図データと統計データの結合

### 4.7.1 昼夜間人口比率(A6108)


<div style="text-align: left;">
<image src="ss2020-09-15 11.24.23.png"
width="300" height="300">
</div>


```{r}
library(ggplot2)
ggplot(fukuoka_map)+
geom_sf(aes(fill=A6108))+
labs(x="東経",y="北緯",title="昼夜間人口比率",fill="A6108")+
theme_minimal(base_family = "HiraKakuProN-W3")
```

パーセンタイル表示。

- カッティングポイントは、元のデータ(dat)の数値で設定する。
- 計算結果は、シェープファイル(fukuoka_map)に最後の列として付け加える。

```{r}
qa <- quantile(dat$A6108,c(0.00,0.25,0.50,0.75,1.00),na.rm = TRUE)
qa

fukuoka_map$A6108_q <- cut(fukuoka_map$A6108,qa, 
labels=c("0-25%","25-50%","50-75%","75-100%"), include.lowest = TRUE)

pal <- colorRampPalette(c("#559999","grey80","#BB650B"))(4)

library(ggplot2)
ggplot(fukuoka_map)+
 geom_sf(aes(fill=A6108_q))+
 scale_fill_manual(values = pal)+
labs(x="東経",y="北緯",title="昼夜間人口比率",fill="A6108\nPercentile")+
theme_minimal(base_family = "HiraKakuProN-W3")
```