R×purrr::discard_at リストまたはベクトルに対して要素の名前または位置に基づいて要素を破棄する

by
R言語で、リストまたはベクトルに対して要素の名前または位置に基づいて要素を破棄する方法について解説します。ここではtidyverseパッケージに含まれているpurrrパッケージのdiscard_at()を使用した方法についてお伝えします。

目次

discard_at()の概要

discard_at()は、リストまたはベクトルに対して要素の名前または位置に基づいて要素を破棄するための関数です。

discard_at(()の使い方


discard_at(x, at)

discard_at(()の引数

x

リストまたはベクトルを指定します。

at

選択する要素を表す論理値、整数値、または文字ベクトル。あるいは、名前のベクトルを受け取り、選択する要素の論理値、整数値、または文字ベクトルを返す関数。
[非推奨]: tidyselectパッケージがインストールされている場合、vars()とtidyselectヘルパーを使用して要素を選択できます。

discard_at()の戻り値

リストまたはベクトルを返します。

準備

あらかじめ、tidyverseパッケージを読み込んでおきます。


library(tidyverse)

使用例

リストから特定文字と一致する要素を破棄する

次は、要素xに1から10までの数値、要素yに1から5までの数値、要素zに5から10までの数値が格納されているリストxに対して、要素がxまたはzのときの要素を破棄するコードです。


x <- list(
    x = 1:10,
    y = 1:5,
    z = 5:10
  )
discard_at(x, ~ .x %in% c("x", "z"))


$y
[1] 1 2 3 4 5

ベクトルの要素名が特定の文字と一致する要素を破棄する

次は、1から10までの数値ベクトルに対して、各要素にa～jまでのアルファベットを割り当て、各要素がaまたはcまたはeである数値を破棄するコードです。


x <- 1:10
names(x) <- letters[1:10]
discard_at(x, ~ .x %in% c("a", "c", "e"))


 b  d  f  g  h  i  j 
 2  4  6  7  8  9 10