【R】都道府県別 肥満率

か厚生労働省が、平成22年11月に実施した「国民健康・栄養調査」の結果で都道府県別の肥満及び主な生活習慣の状況から男性(20~69歳)の肥満率を表示してみました。

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="肥満率 (2006年)  (厚生労働省より) ")
legend("bottomright", fill=rainbow(length(levels(datc_m)), start = col_start, end=col_end), legend=names(table(datc_m)))

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

都道府県 肥満率
北海道 38.5
青森 38.0
岩手 38.7
宮城 39.5
秋田 31.2
山形 29.3
福島 40.3
茨城 31.2
栃木 40.5
群馬 29.6
埼玉 31.0
千葉 31.7
東京 30.5
神奈川 30.3
新潟 27.7
富山 29.6
石川 28.4
福井 22.5
山梨 27.2
長野 25.7
岐阜 29.2
静岡 25.2
愛知 29.4
三重 29.2
滋賀 23.0
京都 25.6
大阪 31.4
兵庫 27.7
奈良 32.6
和歌山 31.5
鳥取 25.1
島根 27.8
岡山 27.5
広島 29.4
山口 22.1
徳島 40.1
香川 25.4
愛媛 33.0
高知 37.6
福岡 29.8
佐賀 31.3
長崎 36.5
熊本 33.7
大分 37.3
宮崎 44.7
鹿児島 33.5
沖縄 45.2

なんとなく北海道・東北地方と四国・九州地方が高い気がします。健康のため、太りすぎには気を付けたいですね。

Add a Comment

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