【R】都道府県別 肥満率
2020年2月24日
か厚生労働省が、平成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 |
なんとなく北海道・東北地方と四国・九州地方が高い気がします。健康のため、太りすぎには気を付けたいですね。