Rで解析：枠で囲んで区別しよう！「gatepoints」パッケージ

プロットの任意の場所を選択し囲いを追加するパッケージの紹介です。Rのみでの利用は選択終了後に右クリックから、RStudioでの利用はPlots windowの右上メニューより動作を終了することで完成です。

パッケージバージョンは0.1.4。R version 4.2.2で動作を確認しています。

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

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

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

コマンドの紹介

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

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("gatepoints")

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
n <- 10
TestData <- data.frame("Data1" = sample(1:10, n, replace = TRUE),
                       "Data2" = sample(1:10, n, replace = TRUE))

#&#34892;&#21517;&#12434;&#20184;&#19982;
row.names(TestData) <- paste0("ID", seq(n))
########

#&#25955;&#24067;&#22259;&#12395;&#12456;&#12522;&#12450;&#12434;&#12510;&#12454;&#12473;&#12391;&#36984;&#25246;&#12375;&#12390;&#26360;&#12365;&#36796;&#12416;:fhs&#12467;&#12510;&#12531;&#12489;
#&#12414;&#12378;&#12399;&#22259;&#12434;&#12503;&#12525;&#12483;&#12488;
plot(TestData, pch = 16, col = "blue", cex = 5)
text(TestData, labels = row.names(TestData), col = "red")

#&#12456;&#12522;&#12450;&#12434;&#12434;&#12510;&#12454;&#12473;&#12391;&#36984;&#25246;
#RStudio&#12391;&#12398;&#23455;&#34892;&#26178;&#12399;&#12503;&#12525;&#12483;&#12488;&#12456;&#12522;&#12450;&#21491;&#19978;&#12398;Finish&#12434;&#12463;&#12522;&#12483;&#12463;&#12377;&#12427;
#&#36984;&#25246;&#31684;&#22258;&#12362;&#12424;&#12403;&#12487;&#12540;&#12479;&#21517;&#12364;&#23455;&#34892;&#24460;&#34920;&#31034;&#12373;&#12428;&#12414;&#12377;
GetArea <- fhs(TestData)

#&#30906;&#35469;
GetArea
[1] "ID1" "ID3" "ID7" "ID8"
attr(,"gate")
x        y
1 6.600224 6.939017
2 9.843044 6.590133
3 6.036255 1.039705
4 2.209325 2.340091
5 2.632301 5.797214

出力例

・fhsコマンド

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