2016/11/02
2020/05/04
Rでベクトルにその要素が無いなら追加する関数
今回紹介するのは、Rでベクトルに要素を追加する関数です。Rで普通に要素を追加するのは、簡単ですよね。今回紹介する関数は、特別です。「追加元のベクトルの中身を参照して、追加したい要素がない場合は追加し、追加したい要素が既にある場合は、追加しない」というようなものです。
自作関数で、以下のようなプログラムになります。
※R言語入門のトップページはこちら
関数
notin_add <- function(data,ad_data)
{
if(any(data == ad_data) == FALSE)
{
data = c(data,ad_data)
}
return(data)
}
使い方
自作関数なので、まずはRに先ほどのプログラムを読み込ませましょう。
関数は
notin_add(追加元のベクトル,ベクトルに追加したい要素)
として使います。では、実際に使用例を見ていきましょう。
使い方説明のために、aという数字をいくつか格納したベクトルを作成します。
a <- c(1,3,7,9,11,13)
このベクトルに5や17を追加するには、
notin_add(a,5)
[1] 1 3 7 9 11 13 5
notin_add(a,17)
[1] 1 3 7 9 11 13 17
と記述することで、出来ます。
そして、例えば3を追加しようした場合、3は既にベクトルの要素に含まれているので、追加されず、
[1] 1 3 7 9 11 13
というように、元のベクトルのままとなります。
※R言語入門のトップページはこちら
最新投稿記事
-
【独占】ベネッセ飯田氏「万人がAI学ぶきっかけに」ー「Udemy」で貢献
2020年7月8日
-
【独占】ファーウェイ、日本でパートナーシップ強化ー「インテリジェントな世界」目指す（上）
2020年7月7日
-
【独占】コインバンクの卜部代表、既存案件への影響限定的ー新型コロナで
2020年7月3日
-
【独占】データサイエンスコンペ参加者、３年後に１万人超目指すーNishikaの松田CTOインタビュー
2020年7月2日
-
【独占】純真学園大学・村中光副学長「G検定、全受講者に取得してもらいたい」ー「人工知能学」新設
2020年7月1日
-
OKI、９月下旬に「AIエッジ・コンテスト」ー「AE2100」で課題解決力競う
2020年6月30日
-
G検定に数学力はどれくらい必要？文系でも受かるのか？
2020年6月26日
-
G検定に落ちた人、合格した人。勉強法の違いはどこにある？
2020年6月25日
-
G検定の難易度・合格ライン・内容・評判を徹底調査！
2020年6月19日
-
コニカミノルタ、パートナーと画像IoT開発推進、実践でAI人材育成ー高槻サイトで
2020年6月19日
週間ランキング
G検定に落ちた人、合格した人。勉強法の違いはどこにある？ 2020年6月25日 
G検定の難易度・合格ライン・内容・評判を徹底調査！ 2020年6月19日 
G検定の対策方法まとめ。本、講座、過去問など徹底調査。 2020年6月6日 
【独占】データサイエンスコンペ参加者、３年後に１万人超目指すーNishikaの松田CTOインタビュー 2020年7月2日 
G検定に数学力はどれくらい必要？文系でも受かるのか？ 2020年6月26日 
GAFA３社が採用内定の理系日本人へ「年収6000万円」のオファー、「AI人材の争奪… 2020年5月1日 
OKI、９月下旬に「AIエッジ・コンテスト」ー「AE2100」で課題解決力競う 2020年6月30日 
【独占】純真学園大学・村中光副学長「G検定、全受講者に取得してもらいたい」ー「人工知能学」新設 2020年7月1日 
【独占】ベネッセ飯田氏「万人がAI学ぶきっかけに」ー「Udemy」で貢献 2020年7月8日 
【独占】ファーウェイ、日本でパートナーシップ強化ー「インテリジェントな世界」目指す（上） 2020年7月7日
この記事を読んだ方はこちらの記事も読まれています
- 2016年7月22日 Rでのベクトル・行列の作成と四則演算・要素の参照【第1回】
- 2016年7月24日 Rでt検定行う方法とそのまま使える自作関数
- 2016年11月22日 Rでカイ二乗分布のグラフを描く方法
2018年11月4日 Python入門〜for文、if文を使って条件処理をする〜- 2017年4月19日 Rでサイコロの和のシミュレートをしてグラフ化する
- 2017年5月15日 RでYouden Indexを用いたROC曲線の最適カットオフ
- 2016年7月22日 ファイルからのデータ読み込みとアクセス【第2回】
- 2016年11月3日 Rでt分布のグラフを描く方法【dt()の使い方】
- 2018年2月1日 numpyの何がすごいのか？【Python3】
- 2016年7月23日 Rで相関係数を求める方法とそのまま使える自作関数例
- 2016年11月21日 Rによる条件付きロジスティック回帰分析と自作関数
- 2016年7月22日 R言語の便利なコマンド集【第2.5回】
- 2016年10月24日 Rで箱ひげ図を描く（プロットする）方法【boxplot】
- 2016年10月4日 R言語で回帰分析の重相関係数Rの信頼区間を出力
- 2016年8月17日 Rでステップワイズ法による重回帰分析の自作関数例
- 2016年7月27日 R言語で線形モデルによる回帰分析の自作関数例
POPULAR
- G検定に落ちた人、合格した人。勉強法の違いはどこにある？
- G検定の難易度・合格ライン・内容・評判を徹底調査！
- G検定の対策方法まとめ。本、講座、過去問など徹底調査。
- 【独占】データサイエンスコンペ参加者、３年後に１万人超目指すーNishikaの松田CTOインタビュー
- G検定に数学力はどれくらい必要？文系でも受かるのか？
- GAFA３社が採用内定の理系日本人へ「年収6000万円」のオファー、「AI人材の争奪…
- OKI、９月下旬に「AIエッジ・コンテスト」ー「AE2100」で課題解決力競う
- 【独占】純真学園大学・村中光副学長「G検定、全受講者に取得してもらいたい」ー「人工知能学」新設
- 【独占】ベネッセ飯田氏「万人がAI学ぶきっかけに」ー「Udemy」で貢献
- 【独占】ファーウェイ、日本でパートナーシップ強化ー「インテリジェントな世界」目指す（上）
COMMENT
コメントを残す
-
r-de-r 2016.11.2 8:46 PM
notin_add2 <- function(data,ad_data) {
c(data, ifelse(ad_data %in% data, "", ad_data))
}
でもよいですね -
Take 2016.12.6 1:52 PM
notin_add3 <- function(data,ad_data){
return(unique(c(data,ad_data)))
}
とかでも動くと思います
r-de-r 2016.11.2 8:46 PM
notin_add2 <- function(data,ad_data) {
c(data, ifelse(ad_data %in% data, "", ad_data))
}
でもよいですね
Take 2016.12.6 1:52 PM
notin_add3 <- function(data,ad_data){
return(unique(c(data,ad_data)))
}
とかでも動くと思います