Rで解析：ggplot2をインタラクティブに！「ggiraph」パッケージ

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

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

###データ例の作成#####
#tidyverseパッケージがなければインストール
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}
#stringiパッケージがなければインストール
if(!require("stringi", quietly = TRUE)){
  install.packages("stringi");require("stringi")
}
set.seed(1234)
n <- 100
TestData <- tibble(Group = sample(paste0("Group", 1:4), n,
                                  replace = TRUE),
                   ID = sample(LETTERS[1:5], n, replace = TRUE),
                   X_num_Data = sample(c(1:30), n, replace = TRUE),
                   Y_num_Data = sample(c(51:100), n, replace = TRUE)) %>%
  #ツールチップデータ
  mutate(Tooltip = paste0( "グループ名<br>", Group)) %>%
  #クリックで表示するデータ
  mutate(Click = stri_enc_toutf8(sprintf("alert(\"Xの値は%sです。<br>Yの値は%sです。\")",
                                         round(X_num_Data, 2), round(Y_num_Data, 2))))
########

##geom_point_interactiveコマンド
#散布図
ggplot(TestData, aes(x = X_num_Data, y = Y_num_Data,
                     color = Group)) +
  geom_point() + 
  labs(x = "Data1", y = "Data2", title = "TEST PLOT", color = "Group Name")

#インタラクティブな散布図
#aesにオプションを追加
#マウスオーバーで情報表示:tooltipオプション
#クリックで情報表示:onclickオプション
PlotData <- ggplot(TestData,
                   aes(x = X_num_Data, y = Y_num_Data,
                       color = Group, tooltip = Tooltip,
                       onclick = Click))

#散布図のインタラクティブ化:geom_point_interactiveコマンド
PlotData <- PlotData +
  geom_point_interactive() + 
  labs(x = "Data1", y = "Data2",
       title = "Interactive Point_Plot", color = "Group Name")

#インタラクティブなグラフをプロット:girafeコマンド
girafe(ggobj = PlotData)
##########################################################

##geom_boxplot_interactiveコマンド
#BoxPlot
ggplot(TestData, aes(x = ID, y = Y_num_Data,
                     fill = ID)) +
  geom_boxplot() + facet_grid(~Group) +
  labs(x = "Data1", y = "Data2", title = "TEST PLOT", color = "Group Name")

#インタラクティブな箱ひげ図
#aesにオプションを追加
#グループ表示:data_idオプション
PlotData <- ggplot(TestData,
                   aes(x = ID, y = Y_num_Data,
                       tooltip = ID, data_id = ID))

#箱ひげ図のインタラクティブ化:geom_boxplot_interactiveコマンド
PlotData <- PlotData +
  geom_boxplot_interactive() +
  facet_grid(~Group) +
  labs(x = "ID", y = "Y_num_Data",
       title = "Interactive Box_Plot", fill = "Group Name")

#インタラクティブなグラフをプロット:girafeコマンド
#マウスオーバー時の色を設定:opts_hoverオプション
girafe(ggobj = PlotData,
       options = list(
         opts_hover(css = "fill:#5c463e;cursor:pointer;")))
##########################################################

###参考:htmlファイルで作業フォルダに保存#####
#htmlwidgetsパッケージがなければインストール
if(!require("htmlwidgets", quietly = TRUE)){
  install.packages("htmlwidgets");require("htmlwidgets")
}
#saveWidgetコマンドで保存
#girafeコマンドをwidgetオプションに指定
saveWidget(file = "geom_boxplot_interactive.html",
           widget = girafe(ggobj = PlotData,
                           options = list(
                             opts_hover(css = "fill:#5c463e;cursor:pointer;"))))