【R】都道府県別 気温

総務省統計局が発表している「統計でみる都道府県のすがた2020」から、都道府県別の最高気温、最低気温を表示します。最高気温とは、日最高気温の月平均の最高値を、最低気温とは、日最低気温の月平均の最低値を言います。

  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$最高気温, 最低気温=dat$最低気温)
  
  datc_k <- cut(dat$最高気温, hist(dat$最高気温, plot=FALSE)$breaks, right=FALSE)
  datc_kcol <- rainbow(length(levels(datc_k)), start = col_start, end=col_end)[as.integer(datc_k)]
  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=1600, height=800)
  par(family="JP4")
  layout(matrix(1:2, 1, 2))
  
  library(NipponMap)
  JapanPrefMap(datc_kcol, main="最高気温 (総務省統計局より) ")
  legend("bottomright", fill=rainbow(length(levels(datc_k)), start = col_start, end=col_end), legend=names(table(datc_k)))
  JapanPrefMap(datc_mcol, main="最低気温 (総務省統計局より) ")
  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
  
都道府県 最高気温 最低気温
北海道 25.7 -7.6
青森 27.4 -5.1
岩手 29.4 -6.9
宮城 29.7 -2.2
秋田 29.2 -4.0
山形 32.8 -4.7
福島 33.4 -2.4
茨城 31.9 -2.4
栃木 32.8 -2.8
群馬 33.9 -0.7
埼玉 34.5 -1.2
千葉 32.2 1.8
東京 32.7 0.6
神奈川 32.2 2.1
新潟 31.7 -1.6
富山 32.8 -1.0
石川 32.9 -0.1
福井 33.7 -1.6
山梨 34.5 -2.8
長野 32.8 -4.6
岐阜 35.1 -0.1
静岡 32.7 1.3
愛知 35.3 0.2
三重 33.2 1.2
滋賀 33.6 -0.4
京都 35.0 0.4
大阪 34.6 1.8
兵庫 32.7 2.1
奈良 34.4 -0.2
和歌山 33.2 1.9
鳥取 34.4 -0.9
島根 33.7 -0.7
岡山 34.7 -0.9
広島 34.7 1.0
山口 35.2 -0.9
徳島 33.1 1.5
香川 34.4 0.9
愛媛 34.4 1.7
高知 32.8 0.9
福岡 34.5 2.7
佐賀 35.3 1.0
長崎 33.6 2.5
熊本 35.6 0.5
大分 33.9 1.5
宮崎 31.6 2.4
鹿児島 33.6 3.7
沖縄 31.2 14.4

Add a Comment

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