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

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

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

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

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

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

実行コマンド

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

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

###&#12487;&#12540;&#12479;&#12398;&#20316;&#25104;#####
TestData <- sample(1:10, 100, replace = TRUE)
########

#&#25351;&#23450;&#12375;&#12383;&#12487;&#12540;&#12479;&#31684;&#22258;,&#12521;&#12505;&#12523;&#12391;&#20966;&#29702;:fancycut&#12467;&#12510;&#12531;&#12489;
#"("&#12392;&#12398;&#32068;&#12415;&#21512;&#12431;&#12379;;&#21547;&#12414;&#12394;&#12356;
#"["&#12392;&#12398;&#32068;&#12415;&#21512;&#12431;&#12379;;&#21547;&#12416;
FcData <- fancycut(TestData,
                   Small = "[1, 3]", Medium = "(4, 6)", Large = "[8, 10]",
                   na.bucket = "&#12390;&#12377;&#12392;", unmatched.bucket = "&#12390;&#12377;&#12392;")

#&#20803;&#12487;&#12540;&#12479;&#12392;&#32080;&#21512;
TeFcData <- data.frame(TestData, FcData)

#&#20869;&#23481;&#12398;&#30906;&#35469;
#table&#12467;&#12510;&#12531;&#12489;
table(TeFcData)
FcData
TestData Small Medium Large &#12390;&#12377;&#12392;
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&#12467;&#12510;&#12531;&#12489;
xtabs(~TeFcData[, 2])
TeFcData[, 2]
Small Medium  Large &#12390;&#12377;&#12392; 
24     10     33     33 

#&#22259;&#12391;&#30906;&#35469;
barplot(xtabs(~TeFcData[, 2]), ylab = "Frequency",
        col = c("#4b61ba", "#deb7a0", "#a87963", "black"))

出力例

図で確認

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