2016/11/02

2020/05/04

Rでベクトルにその要素が無いなら追加する関数

ライター：IMIN

今回紹介するのは、Rでベクトルに要素を追加する関数です。Rで普通に要素を追加するのは、簡単ですよね。今回紹介する関数は、特別です。「追加元のベクトルの中身を参照して、追加したい要素がない場合は追加し、追加したい要素が既にある場合は、追加しない」というようなものです。

自作関数で、以下のようなプログラムになります。

※R言語入門のトップページはこちら

目次

1 関数
2 使い方

関数

プログラム

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は既にベクトルの要素に含まれているので、追加されず、

プログラム

notin_add(a,3)
[1] 1 3 7 9 11 13

というように、元のベクトルのままとなります。

※R言語入門のトップページはこちら

(totalcount 125 回, dailycount 21回 , overallcount 762,344 回)

ライター：IMIN

最新投稿記事

AIが声質変換、わずか５秒の音声でーvoiceware田村一起CEOインタビュー 2020年6月1日
E資格合格談、「人工知能ってわくわくします」ー大手機器メーカーの藤丸さん 2020年5月30日
インスタ写真を大量に機械学習ーファッションAIのニューロープ 2020年5月28日
COD佐藤社長、今秋にもAI市場「metabase」β版リリース 2020年5月25日
G検定、「管理職級、もうちょっとやらないと」ーJDLA佐藤理事 2020年5月23日
「AVILEN AI Trend」がJDLAメディアパートナーにー全人類がわかるAI特化型メディア 2020年5月21日
FRONTEO株がストップ高ー今期営業黒字２億円予想 2020年5月21日
パナソニック、米ブルーヨンダーに20%出資へー860億円と主要メディア 2020年5月20日
AIが日本株トレンドを分析・予測、ーauじぶん銀がアプリ 2020年5月20日
AI銘柄が軒並み高い、ALBERTやチェンジなどー20日の東京市場 2020年5月20日

週間ランキング

E資格合格談、「人工知能ってわくわくします」ー大手機器メーカーの藤丸さん 2020年5月30日
AIが声質変換、わずか５秒の音声でーvoiceware田村一起CEOインタビュー 2020年6月1日
G検定、「管理職級、もうちょっとやらないと」ーJDLA佐藤理事 2020年5月23日
GAFA３社が採用内定の理系日本人へ「年収6000万円」のオファー、「AI人材の争奪… 2020年5月1日
インスタ写真を大量に機械学習ーファッションAIのニューロープ 2020年5月28日
FRONTEO、AI解析の新型コロナ治療候補薬を公表ー「プラニケル」など 2020年5月13日
落合陽一氏がアプリ「音声文字変換」を熱く語るーツイート動画再生15万回超 2020年5月14日
日本ディープラーニング協会、AI学習教材を無料公開、新型コロナ感染拡大で 2020年3月13日
COD佐藤社長、今秋にもAI市場「metabase」β版リリース 2020年5月25日
ソフトバンク、AI検温システム導入、全国3000店ーJCVの「センス・サンダー」 2020年5月19日

この記事を読んだ方はこちらの記事も読まれています

2016年7月22日 Rでのベクトル・行列の作成と四則演算・要素の参照【第1回】
2016年7月24日 Rでt検定行う方法とそのまま使える自作関数
2018年11月4日 Python入門〜for文、if文を使って条件処理をする〜
2016年11月22日 Rでカイ二乗分布のグラフを描く方法
2018年2月1日 numpyの何がすごいのか？【Python3】
2017年4月19日 Rでサイコロの和のシミュレートをしてグラフ化する
2017年5月15日 RでYouden Indexを用いたROC曲線の最適カットオフ
2016年7月22日ファイルからのデータ読み込みとアクセス【第2回】
2016年11月3日 Rでt分布のグラフを描く方法【dt()の使い方】
2016年10月4日 R言語で回帰分析の重相関係数Rの信頼区間を出力
2016年7月23日 Rで相関係数を求める方法とそのまま使える自作関数例
2016年7月22日 Rでロジスティック回帰分析そのまま使える自作関数例
2016年7月22日 R言語の便利なコマンド集【第2.5回】
2016年11月17日 Mac版のRでマルチバイトエラーが出た時は…
2016年10月24日 Rで箱ひげ図を描く（プロットする）方法【boxplot】
2017年2月6日 Rで散布図をプロットしてpngで保存する自作関数

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)))
}
とかでも動くと思います