人口のランキングと人口（べき乗分布）

​

べき乗分布、対数正規分布への当てはめ。
ggplot2でグラフを描く。

```{r,warning=FALSE,include=TRUE,echo=FALSE}
ggplot(df_long,aes(x,y,col=bucket))+
 geom_point()+
 geom_line()+
labs(title = "全国",subtitle = "y: 人口\ny1=実際値\ny2=(10^6.6430)*x^(-0.6013)\ny3=(10^6.6162)*x^(-0.5711)\ny4: 対数正規分布",x="x: ランク",y="y",colour="凡例")+
scale_x_continuous(limits = c(1,15))+
theme_minimal(base_family="HiraKakuProN-W3")

ggplot(df_long,aes(x,y,col=bucket))+
 geom_point()+
 geom_line()+
labs(title = "全国(両対数グラフ)",subtitle = "y: 人口\ny1=実際値\ny2=(10^6.6430)*x^(-0.6013)\ny3=(10^6.6162)*x^(-0.5711)\ny4: 対数正規分布",x="x: ランク",y="y",colour="凡例")+
scale_x_log10(limits=c(1,50))+
scale_y_log10(limits=c(1e+05,1e+07))+
theme_minimal(base_family="HiraKakuProN-W3")
```