からだにいいもの Analysis in R: ggplot2 interactive! The “ggiraph” package
This package makes the graphs in the “ggplot2” package interactive. The example shows the “ggom_point_interactive” and “ggom_boxplot_interactive” commands to make ggom_point and ggom_boxplot interactive, and the command to save them as html files in a working folder.
This package includes many commands. Please refer to the following HP for commands that cannot be fully introduced.
ggiraph：https://davidgohel.github.io/ggiraph/index.html
Package version is 0.8.6. Checked with R version 4.2.2.
Install Package
Run the following command.
#Install Package
install.packages("ggiraph")Example
Please check the comments and the package help for details. If the characters displayed on click are not UTF-8, an error occurs. The “stri_enc_toutf8” command from the “stringi” package is used to avoid character errors.
The “saveWidget” command of the “htmlwidgets” package is used to save the results as an html file.
#Loading the library
library("ggiraph")
###Create Data#####
#Install the tidyverse package if it is not already there
if(!require("tidyverse", quietly = TRUE)){
install.packages("tidyverse");require("tidyverse")
}
#Install the stringi package if it is not already there
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)) %>%
#Tooltip Data
mutate(Tooltip = paste0( "Group Nmae<br>", Group)) %>%
#Show clic Data
mutate(Click = stri_enc_toutf8(sprintf("alert(\"X Value: %s。<br>Y Value: %s\")",
round(X_num_Data, 2), round(Y_num_Data, 2))))
########
##geom_point_interactive command
#Scatter Plot
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")
###Interactive#####
#Add aes option
#Show mouse-over infomation: tooltip option
#Show click infomation: onclick option
PlotData <- ggplot(TestData,
aes(x = X_num_Data, y = Y_num_Data,
color = Group, tooltip = Tooltip,
onclick = Click))
#Interactive scatterplot: geom_point_interactive command
PlotData <- PlotData +
geom_point_interactive() +
labs(x = "Data1", y = "Data2",
title = "Interactive Point_Plot", color = "Group Name")
#Plotting interactive graphs: girafe command
girafe(ggobj = PlotData)
##########################################################
##geom_boxplot_interactive command
#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")
###Interactive#####
#Show Group: data_id option
PlotData <- ggplot(TestData,
aes(x = ID, y = Y_num_Data,
tooltip = ID, data_id = ID))
#Interactive box plot: geom_boxplot_interactive command
PlotData <- PlotData +
geom_boxplot_interactive() +
facet_grid(~Group) +
labs(x = "ID", y = "Y_num_Data",
title = "Interactive Box_Plot", fill = "Group Name")
#Plot interactive graph: girafe command
#Set mouse-over color: opts_hover option
girafe(ggobj = PlotData,
options = list(
opts_hover(css = "fill:#5c463e;cursor:pointer;")))
##########################################################
###Save in working folder with html file#####
#Install the htmlwidgets package if it is not already there
if(!require("htmlwidgets", quietly = TRUE)){
install.packages("htmlwidgets");require("htmlwidgets")
}
#saveWidget command to save
#girafe command with widget option
saveWidget(file = "geom_boxplot_interactive.html",
widget = girafe(ggobj = PlotData,
options = list(
opts_hover(css = "fill:#5c463e;cursor:pointer;"))))Output Example
・geom_point_interactive command
Click on a point to view the data.
・geom_boxplot_interactive command
When you mouse over a box plot, the color of the box plot with the same ID changes.
I hope this makes your analysis a little easier !!
