Rで解析：タイムラインの表現が簡単です「vistime」パッケージ

公開日 2022-10-17

Rの解析に役に立つ記事

タイムラインなどのスケジュールの表現が簡単なパッケージの紹介です。静的な表現は「ggplot2」パッケージのコマンドが適応できるので体裁を整えるのが簡単です。また、インタラクティブな表現も可能です。

パッケージバージョンは1.2.3。実行コマンドはwindows 11のR version 4.2.1で確認しています。

＜おすすめのRに関する書籍です＞

Rによるベイジアン動的線形モデル (統計ライブラリー) | G.ペトリス, S.ペトローネ, P.カンパニョーリ, 和合肇, 和合肇, 萩原淳一郎

AmazonでG.ペトリス, S.ペトローネ, P.カンパニョーリ, 和合肇, 和合肇, 萩原淳一郎のRによるベイジアン動的線形モデル (統計ライブラリー)。アマゾンならポイント還元本が多数。

www.amazon.co.jp

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

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

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

実行コマンドの紹介

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

#パッケージの読み込み
library("vistime")

###データ例の作成#####
#tidyverseパッケージがなければインストール
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}
#日付データの作成に便利:lubridateパッケージがなければインストール
#紹介は[ https://www.karada-good.net/analyticsr/r-467/ ]
if(!require("lubridate", quietly = TRUE)){
  install.packages("lubridate");require("lubridate")
}
set.seed(1234)
#データ作成
TestData <- tibble(StartDate = seq(lubridate::ymd("2022-10-17",
                                                  locale = "C",
                                                  tz = "Asia/Tokyo"),
                                   lubridate::ymd("2022-10-30",
                                                  locale = "C",
                                                  tz = "Asia/Tokyo"),
                                   by =  "1 days")) %>%
  mutate(
    EndDate = as.character(StartDate + days(sample(1:(length(StartDate))))),
    StartDate = as.character(StartDate),
    Event = sample(c("KA", "RA", "DA", "GOOD"),
                   length(StartDate),
                   replace = TRUE),
    Group = sample(c("A", "B", "NO"),
                   length(StartDate),
                   replace = TRUE),
    Color = sample(c("#4b61ba", "#ad8a80", "#245041",
                    "red", "yellow"),
                   length(StartDate),
                   replace = TRUE),
    FontColor = sample(c("white", "black", "red"),
                       length(StartDate),
                       replace = TRUE)) %>%
  rbind(c("2022-10-22", "2022-10-22", "TEL", "Apo", "black", "red"),
        c("2022-11-07", "2022-11-07", "TEL", "Apo", "red", "black"))
########

#ggplot2でタイムラインを作成:gg_vistimeコマンド
#イベントデータを指定:col.eventオプション
#イベント開始データを指定:col.startオプション
#イベント終了データを指定:col.endオプション
#イベント区分データを指定:col.groupオプション
#各イベントの塗色を指定:col.colorオプション
#各イベントの文字色を指定:col.fontcolorオプション
#ggplot2のコマンドが適応できます
gg_vistime(TestData,
           col.event = "Event", 
           col.start = "StartDate", 
           col.end = "EndDate", 
           col.group = "Group", 
           col.color = "Color",
           col.fontcolor = "FontColor",
           title = "TEST_KARADA", 
           optimize_y = TRUE,
           show_labels = TRUE) +
  #以下ggpllot2のコマンド
  theme_dark() +
  theme(axis.text.x = element_text(angle = 45,
                                   hjust = 1, 
                                   size = 10),
        axis.text.y = element_text(size = 15,
                                   colour = "red"))

#インタラクティブなタイムラインを作成:vistimeコマンド
vistime(TestData,
        col.event = "Event", 
        col.start = "StartDate", 
        col.end = "EndDate", 
        col.group = "Group", 
        col.color = "Color",
        col.fontcolor = "FontColor",
        title = "TEST_KARADA", 
        optimize_y = TRUE,
        show_labels = TRUE)