data frameの内容やclassの表示だけでなく、ベクトルの比較などに便利なパッケージの紹介です。R初心者にオススメです。
パッケージバージョンは1.2.6。実行コマンドはR version 4.2.2で確認しています。
パッケージのインストール
下記、コマンドを実行してください。
#パッケージのインストール
install.packages("useful")
実行コマンド
詳細はコメント、パッケージのヘルプを確認してください。
#パッケージの読み込み
library("useful")
###データ例の作成#####
n <- 3000
TestData <- data.frame(Group = sample(paste0("Group", 1:5), n, replace = TRUE),
Data1 = rnorm(n),
Data2 = rnorm(n) + rnorm(n) + rnorm(n),
Data3 = sample(0:1, n, replace = TRUE),
Data4 = sample(LETTERS[1:26], n, replace = TRUE))
#######
#理論値を反転:binary.flipコマンド
#数値の正負を反転して1増加または減少
binary.flip(c(1, 0, 1, 0, -100, 100))
[1] 0 1 0 1 101 -99
#データセットの末尾を左側から表示:bottomleftコマンド
#表示する行,列を指定:r,cオプション
bottomleft(TestData, r = 5L, c = 3L)
Group Data1 Data2
2996 Group4 -0.5369601 0.3034859
2997 Group5 0.4338841 -0.5025751
2998 Group4 0.1440775 -0.7030302
2999 Group1 -1.1486917 -2.6184024
3000 Group3 0.7510146 -0.5538217
#データセットの末尾を右側から表示:bottomrightコマンド
#表示する行,列を指定:r,cオプション
bottomright(TestData, r = 5L, c = 3L)
Data2 Data3 Data4
2996 0.3034859 1 F
2997 -0.5025751 0 H
2998 -0.7030302 0 J
2999 -2.6184024 0 P
3000 -0.5538217 1 E
#モデル式を作成:build.formulaコマンド
build.formula(lhs = "Group", rhs = c("Data1", "Data2"))
Group ~ Data1 + Data2
<environment: 0x000002139502af40>
#極座標をデカルト座標に変換:cart2polコマンド
cart2pol(TestData[, 2], TestData[, 3], degrees=TRUE)
# A tibble: 3,000 x 4
r theta x y
<dbl> <dbl> <dbl> <dbl>
1 0.575 251. -0.191 -0.542
2 0.613 15.2 0.591 0.161
3 2.06 94.0 -0.145 2.06
4 0.864 131. -0.563 0.656
5 2.16 194. -2.10 -0.505
6 0.318 220. -0.244 -0.204
7 1.17 102. -0.250 1.14
8 1.95 93.5 -0.118 1.94
9 2.51 236. -1.42 -2.08
10 0.654 304. 0.368 -0.540
# ... with 2,990 more rows
# i Use `print(n = ...)` to see more rows
#データのClassを表示:classdfコマンド
classdf(TestData)
Group Data1 Data2 Data3 Data4
"character" "numeric" "numeric" "integer" "character"
#指定した列名を先頭または最後尾に移動:colsToFrontコマンド
colsToFront(TestData, cols = "Data2")
[1] "Data2" "Group" "Data1" "Data3" "Data4"
colsToBack(TestData, cols = "Data2")
[1] "Group" "Data1" "Data3" "Data4" "Data2"
#2つのベクトルの比較:compare.listコマンド
compare.list(c(mean, mode, mean), c(mean, max, mode))
[1] TRUE FALSE FALSE
#ベクトルの形式を判断:find.caseコマンド
#判断形式を指定:caseオプション;upper;数字大文字,lower;数字小文字,mixed;混合,numeric;数字
TestCheck <- c("A", "a", "Aa", 1)
find.case(TestCheck, case = "numeric")
[1] FALSE FALSE FALSE TRUE
少しでも、あなたの解析が楽になりますように!!