Rで解析：JavaScriptのdygraphsがRから利用できます。「dygraphs」パッケージの紹介

「dygraphs」パッケージは時系列のデータをプロットするのに適したdygraphsライブラリを利用します。これまで、RからJavaScriptライブラリの利用として2つのパッケージを紹介しました。本パッケージと合わせて使用すれば、多くのインタラクティブな表現が可能です。

「dygraphs」パッケージの利用には、結果を簡単にHTMLファイルで出力するRStudioを導入することをオススメします。

パッケージのバージョンは0.4.5。windows 11のR version 4.2.2で確認しています。

結果をHTMLファイルで保存する方法

dygraphsパッケージの結果をHTMLで保存するには、RStudio、「rmarkdown」パッケージ、「shiny」パッケージなどを利用する方法があります。その中から簡単なRStudioを利用を紹介します。

dygraphsパッケージのプロットコマンドを実行することで、RStudioの右下部「Viewer」に結果が表示されます。その後、Exportをクリックし「Save as Web Page」を選択し保存します。この方法は、「metricsgraphics」パッケージや「DT」パッケージなどでも応用可能です。

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

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

install.packages("dygraphs")

実行コマンド

本パッケージは%>%(パイプ)でコマンドをつなげて使用することもできます。紹介コマンドはパイプを使用しています。作成したHTMLファイルの出力は「結果をHTMLで保存する」の項目をご覧ください。詳細はコメントを確認してください。

＜データ例の作成＞

ポイントはデータを時系列で作成することです。tsコマンドを利用ください。

#&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;
Data1 <- ts(frequency = 12, start = c(1901, 1),
            data = sample(1:500, 12, replace = TRUE))
Data2 <- ts(frequency = 12, start = c(1901, 1),
            data = sample(1:500, 12, replace = TRUE))
SampleData <- as.ts(cbind(Data1, Data2))

＜図の描写コマンドの紹介＞

使用頻度が高そうな3コマンドを紹介します。

#&#25240;&#12428;&#32218;
dygraph(SampleData, main = "&#25240;&#12428;&#32218;") %>%
  dyOptions(colors = c("#4b61ba", "#a87963"))

#&#38542;&#27573;&#29366;
dygraph(SampleData, main = "&#38542;&#27573;&#29366;&#12395;&#12503;&#12525;&#12483;&#12488;") %>%
  dyOptions(stepPlot = TRUE)

#&#38754;&#12464;&#12521;&#12501;
dygraph(SampleData, main = "&#38754;&#12464;&#12521;&#12501;") %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.4)

＜図の装飾コマンドの紹介＞

#&#12471;&#12531;&#12508;&#12523;&#12434;&#34920;&#31034;
dygraph(SampleData, main = "&#12471;&#12531;&#12508;&#12523;&#12434;&#34920;&#31034;") %>%
  dyOptions(drawPoints = TRUE, pointSize = 2)

#&#31684;&#22258;&#12434;&#25351;&#23450;&#12473;&#12521;&#12452;&#12480;&#12540;&#12434;&#35373;&#23450;
dygraph(SampleData, main = "&#31684;&#22258;&#12434;&#25351;&#23450;&#12473;&#12521;&#12452;&#12480;&#12540;&#12434;&#35373;&#23450;") %>%
  dyRangeSelector(height = 20, strokeColor = "red")

#&#31684;&#22258;&#12434;&#22615;&#12426;&#12388;&#12406;&#12375;
dygraph(SampleData, main = "&#31684;&#22258;&#12434;&#22615;&#12426;&#12388;&#12406;&#12375;") %>%
  dyShading(from = "1901-5-1", to = "1901-6-1", color = "#FFE6E6")

#&#27880;&#37320;&#36600;&#12398;&#36861;&#21152;
dygraph(SampleData, main = "&#27880;&#37320;&#36600;&#12398;&#36861;&#21152;") %>%
  dyEvent(date = "1901-5-1", "&#12363;&#12425;&#12384;&#12395;&#12356;&#12356;&#12418;&#12398;", labelLoc = "bottom")

＜折れ線グラフに紹介した図の装飾コマンドを全部適応＞

dygraph(SampleData, main = "&#32057;&#20171;&#12375;&#12383;&#22259;&#12398;&#35013;&#39166;&#12467;&#12510;&#12531;&#12489;&#12434;&#20840;&#37096;&#36969;&#24540;") %>%
  dyOptions(drawPoints = TRUE, pointSize = 2) %>%
  dyRangeSelector(height = 20, strokeColor = "red") %>%
  dyShading(from = "1901-5-1", to = "1901-6-1", color = "#FFE6E6") %>%
  dyEvent(date = "1901-5-1", "&#12363;&#12425;&#12384;&#12395;&#12356;&#12356;&#12418;&#12398;", labelLoc = "bottom")

図の出力例

折れ線グラフに紹介した図の装飾コマンドを全部適応した例を紹介します。ドラッグしたり、下部バーをいじってみてください。拡大の解除はダブルクリックで可能です。

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