Rで解析：以上、以下、超えるに未満！データの操作「fancycut」パッケージ

指定した範囲のデータを母データから作成するのに便利なパッケージの紹介です。操作後のデータはuniqueコマンドなどで処理が必要な場合がありますが、大抵の場合は本パッケージの範囲で解決するかと思います。

パッケージバージョンは0.1.2。実行コマンドはR version 4.2.2で確認しています。

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

はじめてのR: ごく初歩の操作から統計解析の導入まで | 村井 潤一郎

Amazonで村井 潤一郎のはじめてのR: ごく初歩の操作から統計解析の導入まで。

www.amazon.co.jp

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

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

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

実行コマンド

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

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

###データの作成#####
TestData <- sample(1:10, 100, replace = TRUE)
########

#指定したデータ範囲,ラベルで処理:fancycutコマンド
#"("との組み合わせ;含まない
#"["との組み合わせ;含む
FcData <- fancycut(TestData,
                   Small = "[1, 3]", Medium = "(4, 6)", Large = "[8, 10]",
                   na.bucket = "てすと", unmatched.bucket = "てすと")

#元データと結合
TeFcData <- data.frame(TestData, FcData)

#内容の確認
#tableコマンド
table(TeFcData)
FcData
TestData Small Medium Large てすと
1      6      0     0      0
2     10      0     0      0
3      8      0     0      0
4      0      0     0     11
5      0     10     0      0
6      0      0     0     13
7      0      0     0      9
8      0      0    11      0
9      0      0    13      0
10     0      0     9      0

#xtabsコマンド
xtabs(~TeFcData[, 2])
TeFcData[, 2]
Small Medium  Large てすと 
24     10     33     33 

#図で確認
barplot(xtabs(~TeFcData[, 2]), ylab = "Frequency",
        col = c("#4b61ba", "#deb7a0", "#a87963", "black"))

出力例

図で確認

少しでも、あなたのウェブや実験の解析が楽になりますように！！

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

改訂3版 R言語逆引きハンドブック | 石田 基広

Amazonで石田 基広の改訂3版 R言語逆引きハンドブック。アマゾンならポイント還元本が多数。石田 基広作品ほか、お急ぎ便対象商品は当日お届けも可能。また改訂3版 R言語逆引きハンドブックもアマゾン配送商品なら通常配送無料。

www.amazon.co.jp