Rで解析：カレンダーをヒートマップ！！「openair」パッケージ

本パッケージに収録されている「calendarPlot」コマンドは簡単にカレンダーをヒートマップ化できます。

入手しやすい気温や降水量のデータをカレンダーにプロットしてみるのも面白いかもしれません。

バージョンは2.14。実行コマンドはR version 4.2.2で確認しています。

パッケージのインストール

下記コマンドを実行してください。

#パッケージのインストール
install.packages("openair")

実行コマンド

詳細はコメント、パッケージヘルプを確認してください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("openair")

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
#lubridate&#12497;&#12483;&#12465;&#12540;&#12472;&#12364;&#12394;&#12369;&#12428;&#12400;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
if(!require("lubridate", quietly = TRUE)){
  install.packages("lubridate");require("lubridate")
}
#tidyverse&#12497;&#12483;&#12465;&#12540;&#12472;&#12364;&#12394;&#12369;&#12428;&#12400;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}

set.seed(1234)
n <- 30
TestData <- tibble(date = seq(lubridate::ymd("2022-12-01", locale = "C",
                                             tz = "Asia/Tokyo"),
                              by = "1 day", length.out = n),
                   Data = sample(1:30, n, replace = TRUE))
########

#&#26085;&#20184;&#12487;&#12540;&#12479;&#12434;Date&#12463;&#12521;&#12473;&#12395;&#22793;&#25563;
TestData[, 1] <- as.Date(TestData[, 1], tz = "Japan")
#&#12459;&#12524;&#12531;&#12480;&#12540;&#12434;&#12503;&#12525;&#12483;&#12488;
calendarPlot(TestData, pollutant = "Data",
             annotate = "date",
             day = "weekend",
             cols = c("#4b61ba", "#a87963"),
             main = "&#12363;&#12425;&#12384;&#12395;&#12356;&#12356;&#12418;&#12398;")

出力例

少しでも、あなたの解析が楽になりますように！！