Rで解析：手軽にドットプロット(DotPlot)「FlexDotPlot」パッケージ

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

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

###データ例の作成#####
#tidyverseパッケージがなければインストール
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}
set.seed(1234)
TestData <- tibble(Group = factor(rep(paste0("Group", 1:30), time = 10)),
                   Test = factor(rep(paste0("Test", 1:10), each = 30)),
                   Value = sample(c(0:100), 300, replace = TRUE)) %>%
  as.data.frame()
########

#ドットプロットの作成:dot_plotコマンド
#データを指定:data.to.plotコマンド
#クラスター分析の方向:dend_x_var/end_y_varオプション
#グループ間の距離計算:dist_methodオプション
#"euclidean","maximum","manhattan","canberra","binary","minkowski"
#クラスター分析の方法:hclust_methodオプション
#"single","complete","average","mcquitty","ward.D","ward.D2",
#"centroid","median"
#凡例の表示:plot.legendオプション
#サークルスケールの階級数:size.breaks.number/size.breaks.valuesオプション;数値/ベクトル
#カラースケールの階級数:color.breaks.number/color.breaks.valuesオプション;数値/ベクトル
#軸ラベル表示位置の設定:x.lab.pos/y.lab.posオプション;
#x.lab.pos;"bottom","top","both","none"
#y.lab.pos;"left","right”,"both","none"
#軸ラベル表示サイズの設定:x.lab.size.factor/y.lab.size.factorオプション
#x軸ラベルの縦表示:x.lab.rotオプション;TRUE/FALSE
#プロット内行列の塗りつぶし:vertical_coloring/horizontal_coloringオプション
#ggplotオブジェクトとして利用する:do.returnオプション;TRUE/FALSE
dot_plot(data.to.plot = TestData,
         size_var = "Value",
         col_var = "Value",
         text_var = "Value",
         cols.use = c("red", "yellow"),
         shape_use = c("\u25CF","\u2737"),
         text.size = 3,
         #shape_var = "Value",
         #shape_use = c("\u2605","\u2736","\u25CF","\u2737","\u2726"),
         dend_x_var = "Value",
         dend_y_var = "Value",
         dist_method = "euclidean",
         hclust_method = "complete",
         shape.scale = 5,
         plot.legend = TRUE,
         size.breaks.number = 5,
         #size.breaks.values = c(0, 25, 50),
         color.breaks.number = 5,
         #color.breaks.values = c(0, 25, 50),
         x.lab.pos = "bottom",
         y.lab.pos = "left",
         x.lab.size.factor = 0.5,
         y.lab.size.factor = 0.3,
         x.lab.rot = TRUE,
         vertical_coloring = c("gray80", "NA"),
         do.return = TRUE
         ) -> ggplot_object

#確認:ggplot_object
#print(ggplot_object)