【R】都道府県別 トマト出荷量
2020年1月23日
農林水産省が公表している 作物統計調査 から平成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年産野菜生産出荷統計