【R】都道府県別 新聞発行部数
2020年2月7日
総務省統計局が発表した 都道府県別新聞発行部数をプロットしてみます。データが平成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 |
最近は、インターネット等ニュースを見る媒体が多様化していますので、新聞の重要さが低下しているかもしれません。四国や九州地方が低いのはどうしてでしょう?