Analysis in R: More than, Less than! Manipulation of data “fancycut” package

This is an introduction to a package that is useful for creating a specified range of data from the parent data. After manipulation, the data may need to be processed with “unique” commands, but in most cases the range of this package will solve the problem.

Package version is 0.1.2. Checked with R version 4.2.2.

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

みんなのR 第2版 | Jared P. Lander, 高柳慎一, 津田真樹, 牧山幸史, 松村杏子, 簑田高志

Rの基礎からモダンな分析までを一冊で。第2版ではdplyr・purrr・tidyverse・caret・R Markdown・Shinyの章が加わった。

Install Package

Run the following command.

#Install Package
install.packages("fancycut")

Example

See the command and package help for details.

#Loading the library
library("fancycut")

###Creating Data#####
TestData <- sample(1:10, 100, replace = TRUE)
########

#Process with specified data range and label:fancycut command
#"(";not including
#"[";including
FcData <- fancycut(TestData,
                   Small = "[1, 3]", Medium = "(4, 6)", Large = "[8, 10]",
                   na.bucket = "Test", unmatched.bucket = "Test")

#Combine with original data
TeFcData <- data.frame(TestData, FcData)

#Check
#table command 
table(TeFcData)
FcData
TestData Small Medium Large Test
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 command
xtabs(~TeFcData[, 2])
TeFcData[, 2]
Small Medium  Large Test 
24     10     33     33 

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

Output Example

I hope this makes your analysis a little easier !!

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

Rで楽しむベイズ統計入門［しくみから理解するベイズ推定の基礎］ Data Science Library

ベイズ推定のしくみを、仕組みの理解から丁寧に追う入門書。

www.amazon.co.jp