Rで解析：何かの役に立つかも？いろいろカッコをプロットです。「pBrackets」パッケージ

色々なカッコをプロットできるパッケージの描写です。Rでカッコをプロットしようとすると面倒です。そんな面倒を解決したい方にオススメです。

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

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

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

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

実行コマンド

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

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

#&#12503;&#12525;&#12483;&#12488;&#28310;&#20633;
par(mar = c(1, 1, 1, 1))
plot(0, 0, type = "n", xlim = c(0, 15), ylim = c(0, 30), axes = FALSE, xlab = '', ylab = '')
abline(h = seq(0, 30), v = seq(0, 7), col = "lightgray")
abline(h = c(19.5, 9.5), col = "#812B27")

#&#12363;&#12387;&#12371;&#12398;&#12484;&#12494;&#37096;&#20998;&#12434;&#35373;&#23450;:ticks&#12458;&#12503;&#12471;&#12519;&#12531;
#SetTick&#24341;&#25968;&#12434;&#20316;&#25104;
SetTick <- c(rep(0.5, 5), rep(NA, 5), 0.2, -0.5, "c(0.2, 0.4, 0.6)", "seq(0, 1.0, by = 0.2)", "seq(0, -1.0, by = -0.2)")
#&#12363;&#12387;&#12371;&#12398;&#31278;&#39006;&#12434;&#25351;&#23450;:type&#12458;&#12503;&#12471;&#12519;&#12531;
#Type&#12395;&#12399;5&#31278;&#12398;&#35373;&#23450;&#12364;&#21487;&#33021;,&#20869;&#23481;&#12399;&#20986;&#21147;&#12434;&#30906;&#35469;&#12375;&#12390;&#12367;&#12384;&#12373;&#12356;
SetType <- c(1:5, 1:5, 1:5)

#&#12363;&#12387;&#12371;&#12398;&#12484;&#12494;&#37096;&#20998;&#12434;&#35373;&#23450;:ticks&#12458;&#12503;&#12471;&#12519;&#12531;
for(n in seq(15)){
  #y&#36600;&#12398;&#12503;&#12525;&#12483;&#12488;&#20301;&#32622;
  YPlot <- 30 - n*2
  brackets(x1 = 0, y1 = YPlot, x2 = 7, y2 = YPlot, col = "#9BB6A7", lwd = 3, ticks = eval(parse(text = SetTick[n])), curvature = 0.5, type = SetType[n])
  text(8, YPlot, labels = paste("Type:", SetType[n], " Ticks:", paste(eval(parse(text = SetTick[n])), collapse = ",")), adj=c(0,0))
}

出力例

カッコの色は創成柳、区切り線はペチカを使用しています。

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