R言語　ベクトルやリストの操作　appendやinsertを導入する【自作関数】

ポチップ

R言語ではじめるプログラミングとデータ分析

Rでデータ解析を始めるならコレ

¥3,300 （2022/06/01 17:20時点 | Amazon調べ）

ポチップ

こんな方におすすめ

ベクトルやリストの操作に困っている
挿入や削除したいけど、便利な関数が見当たらない
ベクトルやリストの操作のテンプレが欲しい

ベクトルとリストの操作方法については次の記事で学べます。

: 【R言語】ベクトルの操作　作成・値の代入・要素の追加など
R言語のベクトルの操作（作成や参照、代入、要素の追加など）をまとめました。この記事では以下のベクトルに関する操作を実行例付きで分かりやすく解説しています。この記事で学べる事ベクトルの作成ベクト ...
続きを見る

: 【R言語】リストの操作　作成・値の代入・要素の追加など
R言語のリストの操作（作成や値の代入、要素の追加など）をまとめました。この記事では以下のリストに関する操作を実行例とともに分かりやすく解説しています。この記事で学べる事リストの作成リストの参照 ...
続きを見る

ベクトル・リストの操作一覧

他の言語に実装されているAppend、Extend、Insert、Remove、Pop、Index、Countの実行方法についてまとめました。

是非コピペして使ってください。

Append

2つのベクトル及びリストを連結させる方法について紹介します。Rにはappendという関数がありますが、リストに対しては少々不便です。そんなappendを使いやすくしてみました。

次の関数は、ベクトルとリストの両方に対してAppendを行うことができる関数です。

append_vecOrList <- function(x, item) {
  if (!is.vector(x)) {
    stop("The Argument x must be a vector or list type object")
  }
  if (is.list(x) & !is.list(item)) {
    item <- list(item)
  }
  return(c(x, item))
}

append_vecOrList <- function(x, item) {

if (!is.vector(x)) {

stop("The Argument x must be a vector or list type object")

}

if (is.list(x) & !is.list(item)) {

item <- list(item)

}

return(c(x, item))

}

ポイント

8行目でc(a, b)を用いて、引数xとitemの結合を行っています。また、xがリストの場合、6行目でitemをリスト化することでベクトルであるitemの全ての要素が順にxの要素として結合されるのを防ぎます。

関数append_vecOrListの引数を以下に示します。

関数append_vecOrListの引数
x	ベクトルまたはリスト型のオブジェクト
item	xに結合させるベクトルまたはリスト型のオフジェクト

いくつか実行例を紹介します。

append_vecOrLIstを用いると、次のようにベクトルやリストを結合させることができます。

> append_vecOrList(c(1, 2, 3, 4, 5), c(6, 7))
[1] 1 2 3 4 5 6 7

> append_vecOrList(as.list(c(1, 2, 3, 4, 5)), c(6, 7, 8))
[[1]]
[1] 1

[[2]]
[1] 2

[[3]]
[1] 3

[[4]]
[1] 4

[[5]]
[1] 5

[[6]]
[1] 6 7 8

> append_vecOrList(c(1, 2, 3, 4, 5), c(6, 7))

[1] 1 2 3 4 5 6 7

> append_vecOrList(as.list(c(1, 2, 3, 4, 5)), c(6, 7, 8))

[[1]]

[1] 1

[[2]]

[1] 2

[[3]]

[1] 3

[[4]]

[1] 4

[[5]]

[1] 5

[[6]]

[1] 6 7 8

ベクトルにベクトルを結合させるときは、c(1, 2, 3, 4, 5, 6, 7)のように連結されますが、リストにベクトルを追加するときは最後の要素にc(6, 7, 8)という一つの要素が追加されます。

Extend

次に、ベクトルやリストを延長させる方法を紹介します。上のAppendとの違いは、あるリストに対してベクトルやリストを延長する際に、その要素が順に結合される点です。これに関しては、実行例で説明していきます。

次の関数を用いることで、ベクトルやリストをExtendすることができます。

extend_vecOrList <- function(x, item) {
  if (!is.vector(x)) {
    stop("The Argument x must be a vector or list type object")
  }
  return(c(x, item))
}

extend_vecOrList <- function(x, item) {

if (!is.vector(x)) {

stop("The Argument x must be a vector or list type object")

}

return(c(x, item))

}

ポイント

5行目のように、c(a, b)を行うことで、aとbのオブジェクトを繋げることが来ます。また、append_vecOrListのように、xがリストのときにitemをリスト化していないため、次で示す実行例のようにベクトルやリストの要素が順にxに加わります。

関数extend_vecOrListの引数を以下に示します。

関数append_vecOrListの引数
x	ベクトルまたはリスト型のオブジェクト
item	xに併合させるベクトルまたはリスト型のオフジェクト

実行例を以下に示します。

> extend_vecOrList(c(1, 2, 3, 4), c(5, 6, 7))
[1] 1 2 3 4 5 6 7

> extend_vecOrList(as.list(c(1, 2, 3, 4)), c(5, 6, 7))
[[1]]
[1] 1

[[2]]
[1] 2

[[3]]
[1] 3

[[4]]
[1] 4

[[5]]
[1] 5

[[6]]
[1] 6

[[7]]
[1] 7

> extend_vecOrList(c(1, 2, 3, 4), c(5, 6, 7))

[1] 1 2 3 4 5 6 7

> extend_vecOrList(as.list(c(1, 2, 3, 4)), c(5, 6, 7))

[[1]]

[1] 1

[[2]]

[1] 2

[[3]]

[1] 3

[[4]]

[1] 4

[[5]]

[1] 5

[[6]]

[1] 6

[[7]]

[1] 7

ベクトルに対する操作は、append_vecOrListと全く同じですが、リストにベクトルやリストを併合させる場合、すべての要素が順に加わります。as.list(c(1, 2, 3, 4)), c(5, 6, 7)を併合させると、1から7の要素が1つずつ格納されたリストを取得することができます。

Insert

ベクトルやリストに対するInsertの方法について紹介します。ベクトルやリストの操作の際に、特定の位置にオブジェクトを追加したい場合があると思います。このような場合、Insertを用いるのが便利です。

次の関数を用いることで、Insertを行うことができます。

insert_vecOrList <- function(x, i, item) {
  if (!is.vector(x)) {
    stop("The Argument x must be a vector or list type object")
  }
  if (is.list(x) & !is.list(item)) {
    item <- list(item)
  }
  return(c(x[seq_len(i - 1)], item, x[i : length(x)]))
}

insert_vecOrList <- function(x, i, item) {

if (!is.vector(x)) {

stop("The Argument x must be a vector or list type object")

}

if (is.list(x) & !is.list(item)) {

item <- list(item)

}

return(c(x[seq_len(i - 1)], item, x[i : length(x)]))

}

ポイント

8行目でc(x[seq_len(i - 1)], item, x[i : length(x)])を行うことで、xのi番目の位置にitemを挿入することができます。

関数insert_vecOrListの引数を以下に示します。

関数insert_vecOrListの引数
x	ベクトルまたはリスト型のオブジェクト
i	xにitemを挿入するインデックス
item	xに挿入する要素

実行例を以下に示します。

> insert_vecOrList(c(1, 2, 3, 4, 5), 3, 10)
[1]  1  2 10  3  4  5

> insert_vecOrList(as.list(c(1, 2, 3, 4, 5)), 3, 10)
[[1]]
[1] 1

[[2]]
[1] 2

[[3]]
[1] 10

[[4]]
[1] 3

[[5]]
[1] 4

[[6]]
[1] 5

> insert_vecOrList(as.list(c(1, 2, 3, 4, 5)), 3, c(10, 11, 12))
[[1]]
[1] 1

[[2]]
[1] 2

[[3]]
[1] 10 11 12

[[4]]
[1] 3

[[5]]
[1] 4

[[6]]
[1] 5

> insert_vecOrList(c(1, 2, 3, 4, 5), 3, 10)

[1] 1 2 10 3 4 5

> insert_vecOrList(as.list(c(1, 2, 3, 4, 5)), 3, 10)

[[1]]

[1] 1

[[2]]

[1] 2

[[3]]

[1] 10

[[4]]

[1] 3

[[5]]

[1] 4

[[6]]

[1] 5

> insert_vecOrList(as.list(c(1, 2, 3, 4, 5)), 3, c(10, 11, 12))

[[1]]

[1] 1

[[2]]

[1] 2

[[3]]

[1] 10 11 12

[[4]]

[1] 3

[[5]]

[1] 4

[[6]]

[1] 5

上の実行例のように指定したインデックス（例では3番目）にitemが挿入されているのが分かります。

ベクトルに対しては、xの3番目の要素の前に連続するようにitemの各要素が挿入されます。

リストに対しては、3番目の要素の前にitemが挿入されます。3つ目の例のように、リストにベクトルを挿入すると、3番目の要素にベクトルc(10, 11, 12)が挿入されているのが分かります。

レッドブルエナジードリンク 250ml×24本

¥3,509 （2022/06/11 02:16時点 | Amazon調べ）

ZONe Ver.2.2.0 type-T エナジードリンク 500mlx24本

ポチップ

¥4,036 （2022/06/11 02:41時点 | Amazon調べ）