Rで解析：Karl W Bromanさんの便利で雑多なコマンド集「broman」パッケージ

公開日 2024-06-08

Karl W Bromanさんの便利で雑多なコマンド集です。例えば、数字3桁毎にカンマを付与、プロットに矢印をインタラクティブに追加する、指定ベクトルをカンマ、最後は指定文字で区切る、論理ベクトルを確認するなどのコマンドが多数収録されたパッケージの紹介です。

また、実行コマンドでは紹介しませんが、ベン図を作成する「venn」コマンド、Holmans triangleを作成する「triplot」コマンド、図にポイント「tripoints」、ライン「trilines」、矢印「triarrow」、テキスト「tritext」を追加するコマンドも収録されています。

パッケージバージョンは0.84。実行コマンドはwindows 11のR version 4.3.3で確認しています。

＜おすすめのRに関する書籍です＞

R言語ではじめるプログラミングとデータ分析 | 馬場真哉

Amazonで馬場真哉のR言語ではじめるプログラミングとデータ分析。アマゾンならポイント還元本が多数。馬場真哉作品ほか、お急ぎ便対象商品は当日お届けも可能。

www.amazon.co.jp

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

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

install.packages("broman")

コマンドの紹介

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

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

# 数字3桁毎にカンマを付与:add_commasコマンド
add_commas(c(459, 8574, 58, 5, 1111111))
[1] "459" "8,574" "58" "5" "1,111,111"

# 2つのlist classを比較し構成を揃える:align_vectorsコマンド
align_vectors(x = list(Test = c(1:5), Test_3 = c(5:3)), 
              y = list(Test_2 = c(5:15)),
              expand = FALSE)

# プロットに矢印をインタラクティブに追加する:arrowlocatorコマンド
# 初回クリックを矢印の頭にする:reverseオプション;TRUE/FALSE
# 初回クリックを基準位置に水平に矢印を作成:horizontalオプション;TRUE/FALSE
# 初回クリックを基準位置に垂直に矢印を作成:verticalオプション;TRUE/FALSE
# 矢印の頭の線の長さを指定:lengthオプション;初期値_0.1
barplot(height = 1:5)
#boxplot(x = 1:5, y = 1:5)
#plot(x = 1:5, y = 1:5)
arrowlocator(col = "red", lwd = 5,
             reverse = TRUE,
             horizonta = FALSE,
             vertical = FALSE,
             length = 0.5)

# 2つのオブジェクト内容を比較しTRUE/FALSEで確認:cfコマンド
x <- c(5, 8, 9, NA, 3, NA)
y <- c(5, 2, 9, 4, NA, NA)
cf(x, y)
[1] TRUE FALSE TRUE FALSE FALSE TRUE

# gray((n:0)/n))のカラーパレットを作成:revgrayコマンド
image(matrix(1:10), col = revgray())

# rev(rainbow(start = 0, end = 2/3, ...))のカラーパレットを作成:revrainbowコマンド
image(matrix(1:10), col = revrainbow())

# 指定ベクトルをカンマ、最後は指定文字で区切る:vec2stringコマンド
# 最後の指定文字:conjunctionオプション
vec2string(letters[1:4], conjunction = "からだ")
[1] "a, b, c, からだ d"

# 論理ベクトルを確認:%nin%, %win%, %wnin%コマンド
vals <- c("a", "xa", "C", "A", "体") 
# 一致しないをTRUEで返す:%nin%コマンド
vals %nin% c(letters, "体")
[1] FALSE  TRUE  TRUE  TRUE FALSE

# 一致を値で返す:%win%コマンド
vals %win% c(letters, "体")
[1] "a"  "体"

# 一致しないを値で返す:%win%コマンド
vals %wnin% c(letters, "体")
[1] "xa" "C"  "A"