【R】都道府県別 トマト出荷量

農林水産省が公表している 作物統計調査 から平成30年(2018年)都道府県別のトマト出荷量を地図に描画します。出荷量が不明の都道府県は0にしています。

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$都道府県, 出荷量t=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="平成30年 都道府県別 トマト出荷量 t  (農林水産省より) ")
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") 

都道府県 出荷量t
北海道 50500
青森 14700
岩手 7920
宮城 7470
秋田 5720
山形 8410
福島 20400
茨城 43900
栃木 33700
群馬 20500
埼玉 13600
千葉 33600
東京 0
神奈川 11700
新潟 7690
富山 928
石川 2990
福井 2160
山梨 5640
長野 12500
岐阜 20800
静岡 13100
愛知 44000
三重 7720
滋賀 2610
京都 3540
大阪 0
兵庫 6960
奈良 3270
和歌山 5920
鳥取 2040
島根 2590
岡山 3890
広島 7870
山口 3780
徳島 4060
香川 2940
愛媛 6050
高知 6790
福岡 17200
佐賀 3260
長崎 11500
熊本 132800
大分 9360
宮崎 18300
鹿児島 4400
沖縄 3000

熊本が圧倒的です。その他、本州でも広く栽培されています。

出典:農林水産省  2018年 作物統計調査  平成30年産野菜生産出荷統計

Add a Comment

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