【R】都道府県別 新聞発行部数

総務省統計局が発表した 都道府県別新聞発行部数をプロットしてみます。データが平成27年のもので多少古いですが。世帯当たりの発行部数(部)を示してあります。

library(leaflet)
library(knitr)
library(kableExtra)
library(dplyr)
library(tidyr)
library(stringr)

dat <- read.csv("http://www.dinov.tokyo/Data/JP_Pref/Pref_data.csv", header = TRUE, fileEncoding="UTF-8")
col_start <- 0.2
col_end <- 0.0

table_df<-data.frame(都道府県=dat$都道府県, 発行部数=dat$新聞)
datc_m <- cut(dat$新聞, hist(dat$新聞, plot=FALSE)$breaks, right=FALSE)
datc_mcol <- rainbow(length(levels(datc_m)), start = col_start, end=col_end)[as.integer(datc_m)]

windowsFonts(JP4=windowsFont("Biz Gothic"))
windows(width=800, height=800)
par(family="JP4")

library(NipponMap)
JapanPrefMap(datc_mcol, main="新聞発行部数 世帯当たり(平成17~25年)  (総務省統計局より) ")
legend("bottomright", fill=rainbow(length(levels(datc_m)), start = col_start, end=col_end), legend=names(table(datc_m)))

kable(table_df, align = "c") %>%
  kable_styling(full_width = F) %>%
  column_spec(1, bold = T) %>%
  collapse_rows(columns = 1, valign = "middle") 

都道府県 発行部数
北海道 0.74
青森 0.83
岩手 0.77
宮城 0.72
秋田 0.91
山形 1.05
福島 0.92
茨城 0.96
栃木 0.99
群馬 1.09
埼玉 0.86
千葉 0.86
東京 0.80
神奈川 0.80
新潟 0.88
富山 1.09
石川 1.05
福井 1.09
山梨 0.98
長野 1.04
岐阜 1.01
静岡 0.90
愛知 0.90
三重 0.94
滋賀 1.00
京都 0.93
大阪 0.88
兵庫 0.93
奈良 1.11
和歌山 0.98
鳥取 1.06
島根 1.02
岡山 0.85
広島 0.82
山口 0.99
徳島 0.93
香川 0.91
愛媛 0.77
高知 0.68
福岡 0.82
佐賀 0.86
長崎 0.72
熊本 0.65
大分 0.77
宮崎 0.73
鹿児島 0.56
沖縄 0.62

最近は、インターネット等ニュースを見る媒体が多様化していますので、新聞の重要さが低下しているかもしれません。四国や九州地方が低いのはどうしてでしょう?

Add a Comment

メールアドレスが公開されることはありません。