昼夜間人口比率の高い市町村（福岡県）

昼夜間人口比率(A6108)について。

```{r,echo=FALSE,include=FALSE}
for (i in 1:60) {
 cat(dat$X2[i],"--",dat$A6108[i],"\n")
}
```

```{r}
# データフレームを昼夜間人口比率の降順で並び替える
# 新しいオブジェクト名: d
d <- arrange(dat,-A6108)
```

```{r}
# 上位20を抜き出す
top20 <- d[1:20,]
top20[,c(1,2,28)]
```

```{r}
# 昼夜間人口比率(A6108)の高い順に市町村名を並び替えて表示する
# ggplot2で作成
ggplot(top20,aes(x=A6108,y=reorder(X2,A6108)))+
 geom_point(size=3,col="seagreen")+
labs(x="昼夜間人口率",y="市町村名",title="昼夜間人口比率の高い市町村",
caption = "2015年")+
theme_minimal(base_family="HiraKakuProN-W3") 
```