1737市町村(両対数グラフ)
data <- data0[1:1737,]library(ggplot2)ggplot()+geom_abline(intercept = 11.003,slope = -1.655,color="blue",linetype=2)+ geom_hline(yintercept=100,linetype=2,color="green",size=0.3)+ geom_point(data=data,aes(y=rank,x=pop,col="red"))+ theme_