【R】トマトの世界生産量

連機関であるFood and Agriculture Organization of United Nationsが報告しているナスの生産量を図示してみます。2018年のデータです。

データはFood and agriculture dataから取得しました。しかし、少し扱いにくかったので、多少編集したものをこちらの置いておきます。

library(tidyverse)

dat <- read.csv("FAOSTAT_tometo_2018.csv", header = TRUE)

dat2 <- dat %>%
  select(-Flag) %>%
  drop_na() %>% 
  rename(val = Value) %>% 
  arrange(desc(val))

table_df<-data.frame(Country=dat2$Area, Value=dat2$val)

library(rworldmap)
mapDevice('x11')
sdat <- joinCountryData2Map(dat2, joinCode="NAME", nameJoinColumn="Area")
par(family="JP4")
mapCountryData(sdat, nameColumnToPlot="val", catMethod="fixedWidth", mapTitle = "Tometo production [ton](2018)", addLegend = TRUE)

library(kabel)
library(kableExtra)
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