Rで覚書:ベクトルに関するコマンドの紹介

Rの解析に役に立つ記事
スポンサーリンク

ベクトル操作に関するコマンドから、使用頻度が高いコマンドを紹介します。たまにはシンプルでどうでしょうか。

R version 4.2.2でコマンドを確認しています。

スポンサーリンク

実行コマンドの紹介

#ベクトルの作成
#数字のベクトル
Numeric <- 1:6
[1] 1 2 3 4 5 6
class(Numeric)
[1] "integer"
#&#25991;&#23383;&#12398;&#12505;&#12463;&#12488;&#12523;
Chara <- c("a", "b", "c", "d")
[1] "a" "b" "c" "d"
class(Chara)
[1] "character"
#&#25968;&#23383;&#12392;&#25991;&#23383;&#12398;&#12505;&#12463;&#12488;&#12523;&#12434;&#32080;&#21512;&#12377;&#12427;&#12392;&#25991;&#23383;&#12398;&#12505;&#12463;&#12488;&#12523;&#12395;&#12394;&#12426;&#12414;&#12377;
#&#32080;&#21512;&#12399;"c"&#12467;&#12510;&#12531;&#12489;&#12434;&#20351;&#29992;&#12375;&#12414;&#12377;
BindNC <- c(Numeric, Chara)
[1] "1" "2" "3" "4" "5" "6" "a" "b" "c" "d"
class(BindNC)
[1] "character"

#&#32368;&#12426;&#36820;&#12375;&#12364;&#12354;&#12427;&#12505;&#12463;&#12488;&#12523;&#12434;&#20316;&#25104;:rep&#12467;&#12510;&#12531;&#12489;
#times:&#25351;&#23450;&#12375;&#12383;&#12505;&#12463;&#12488;&#12523;&#12434;times&#20998;&#32368;&#12426;&#36820;&#12377;
rep(1:3, times = 2)
[1] 1 2 3 1 2 3
#each:&#25351;&#23450;&#12375;&#12383;&#12505;&#12463;&#12488;&#12523;&#12398;&#20869;&#23481;&#12434;each&#20998;&#32368;&#12426;&#36820;&#12377;
rep(1:3, each = 3)
[1] 1 1 1 2 2 2 3 3 3
#times,each&#12398;&#32068;&#12415;&#21512;&#12431;&#12379;
rep(1:3, times = 2, each = 3)
[1] 1 1 1 2 2 2 3 3 3 1 1 1 2 2 2 3 3 3

#&#12505;&#12463;&#12488;&#12523;&#12398;&#20869;&#23481;&#12434;&#32622;&#12365;&#25563;&#12360;
#"[ ]"&#12391;&#20301;&#32622;&#12434;&#25351;&#23450;&#12375;&#12390;"<-"&#12391;&#20195;&#20837;&#12375;&#12414;&#12377;
Chara[3] <- 2
Chara
[1] "a" "b" "2" "d"

#&#12505;&#12463;&#12488;&#12523;&#12398;&#36870;&#36578;:rev&#12467;&#12510;&#12531;&#12489;
rev(Chara)
[1] "d" "2" "b" "a"

#&#12505;&#12463;&#12488;&#12523;&#12398;&#20869;&#23481;&#12434;&#19968;&#24847;&#21270;:unique&#12467;&#12510;&#12531;&#12489;
unique(c(1, 1, 2, 2, 3, 3))
[1] 1 2 3

#&#12505;&#12463;&#12488;&#12523;&#12391;&#37325;&#35079;&#12377;&#12427;&#20301;&#32622;&#12434;&#26908;&#20986;:duplicated&#12467;&#12510;&#12531;&#12489;
duplicated(c(1, 1, 2, 2, 3, 3))
[1] FALSE  TRUE FALSE  TRUE FALSE  TRUE

#&#26465;&#20214;&#12395;&#21512;&#12358;&#12505;&#12463;&#12488;&#12523;&#20869;&#12398;&#20301;&#32622;&#12434;&#26908;&#20986;:which&#12467;&#12510;&#12531;&#12489;
#2&#12398;&#20493;&#25968;&#12434;&#26908;&#20986;&#12375;&#12390;,&#12381;&#12398;&#25968;&#20516;&#12434;&#21462;&#12426;&#20986;&#12377;
Numeric[which(Numeric%%2 == 0)]
[1] 2 4 6

少しでも、あなたの解析が楽になりますように!!

タイトルとURLをコピーしました