web-dev-qa-db-ja.com

リストから要素を削除する方法

リストがあり、そこから単一の要素を削除したい。これどうやってするの？

私はこの関数の明白な名前がリファレンスマニュアルにあると思うものを調べてみましたが、適切なものは何も見つかりませんでした。

rlistindexing
227
David Locke

私はRをまったく知りませんが、少し独創的なグーグルがここに私を導きました： http://tolstoy.newcastle.edu.au/R/help/05/04/ 1919.html

そこからの重要な引用：

リストから要素を削除する方法についてのRの明示的なドキュメントは見つかりませんが、試行錯誤でわかります

myList [[5]] < - NULL

5番目の要素を削除してから、その要素の削除によって発生した穴を「閉じます」。それはインデックス値を満たしています、それで私は要素を落とすことに注意しなければなりません。私はリストの裏から表に向かって作業しなければなりません。

A スレッドの後半の投稿への応答 =

リストの要素を削除するには、R FAQ 7.1を参照してください。

そして R FAQの関連セクション はこう言います：

... x [i]またはx [[i]]をNULLに設定しないでください。リストから対応するコンポーネントが削除されるためです。

これは、要素を削除する方法を（やや後方に）教えてくれるようです。

それがあなたを助け、少なくとも正しい方向へ導くことを願っています。

185
Chad Birch

リストをその場で変更したくない場合（例えば、要素を削除したリストを関数に渡す場合など）は、インデックスを使用できます。負のインデックスは「この要素を含めない」という意味です。

x <- list("a", "b", "c", "d", "e"); # example list

x[-2];       # without 2nd element

x[-c(2, 3)]; # without 2nd and 3rd

また、論理インデックスベクトルも便利です。

x[x != "b"]; # without elements that are "b"

これはデータフレームでも動作します。

df <- data.frame(number = 1:5, name = letters[1:5])

df[df$name != "b", ];     # rows without "b"

df[df$number %% 2 == 1, ] # rows with odd numbers only
182
Florian Jenn

これは、Rの中のa listの最後の要素を削除する方法です。

x <- list("a", "b", "c", "d", "e")
x[length(x)] <- NULL

もしxがベクトルならば、新しいオブジェクトを作る必要があるでしょう。

x <- c("a", "b", "c", "d", "e")
x <- x[-length(x)]
  • リストおよびベクトルに対応
29
Aleksandr Levchuk

1行のリストからNull要素を削除する：

x=x[-(which(sapply(x,is.null),arr.ind=TRUE))]

乾杯

17
Sukhdeep Singh

名前付きリストがあり、特定の要素を削除したい場合は、次のことを試してください。

lst <- list(a = 1:4, b = 4:8, c = 8:10)

if("b" %in% names(lst)) lst <- lst[ - which(names(lst) == "b")]

これにより、要素lst、a、bを含むリストcが作成されます。 2行目では、要素bが存在することを確認した後に削除します（@hjvの問題を回避するため）。

またはそれ以上：

lst$b <- NULL

このようにして存在しない要素（例えばlst$g <- NULL）を削除しようとしても問題ありません。

14
alko989

さまざまな種類のリスト操作を扱うためのrlistパッケージ（ http://cran.r-project.org/web/packages/rlist/index.html ）があります。

例（ http://cran.r-project.org/web/packages/rlist/vignettes/Filtering.html ）：

library(rlist)
devs <- 
  list(
    p1=list(name="Ken",age=24,
      interest=c("reading","music","movies"),
      lang=list(r=2,csharp=4,python=3)),
    p2=list(name="James",age=25,
      interest=c("sports","music"),
      lang=list(r=3,Java=2,cpp=5)),
    p3=list(name="Penny",age=24,
      interest=c("movies","reading"),
      lang=list(r=1,cpp=4,python=2)))

list.remove(devs, c("p1","p2"))

の結果：

# $p3
# $p3$name
# [1] "Penny"
# 
# $p3$age
# [1] 24
# 
# $p3$interest
# [1] "movies"  "reading"
# 
# $p3$lang
# $p3$lang$r
# [1] 1
# 
# $p3$lang$cpp
# [1] 4
# 
# $p3$lang$python
# [1] 2
7
user2030503

それでも答えが必要かどうかわからないが、私がRで経験した限られた（3週間分の自己学習R）経験から、NULL代入を使うことは実際には間違っているか、または最適ではないことがわかった。 forループのようなものでリストを更新する。

より正確に言うと、

myList[[5]] <- NULL

エラーをスローします

myList [[5]] < - NULL：置換の長さは0です

または

交換する要素よりも多くの要素が供給されている

私がより一貫して働くことがわかったのは

myList <- myList[[-5]]
7
user2035799

それが名前付きリストの場合はwithinを使うことができます。

l <- list(a = 1, b = 2)    
> within(l, rm(a))
$b
[1] 2

元のリストを上書きすることができます

l <- within(l, rm(a))

リストaからlという名前の要素を削除します。

5
Kim

-（負符号）を要素の位置と共に使用します。3番目の要素を削除する場合は、your_list[-3]として使用します。

入力

my_list <- list(a = 3, b = 3, c = 4, d = "Hello", e = NA)
my_list
# $`a`
# [1] 3

# $b
# [1] 3

# $c
# [1] 4

# $d
# [1] "Hello"

# $e
# [1] NA

リストから単一の要素を削除する

 my_list[-3]
 # $`a`
 # [1] 3

 # $b
 # [1] 3

 # $d
 # [1] "Hello"

 # $e
 [1] NA

リストから複数の要素を削除する

 my_list[c(-1,-3,-2)]
 # $`d`
 # [1] "Hello"

 # $e
 # [1] NA

 my_list[c(-3:-5)]
 # $`a`
 # [1] 3

 # $b
 # [1] 3

 my_list[-seq(1:2)]
 # $`c`
 # [1] 4

 # $d
 # [1] "Hello"

 # $e
 # [1] NA
3
Sowmya S. Manian

名前付きリストにl["name"] <- NULLを追加することもできます。例えば：

l <- list(a = 1, b = 2, cc = 3)
l['b'] <- NULL
2
Alexey Shiklomanov

名前付きリストの場合、これらのヘルパー関数が役に立つと思います

member <- function(list,names){
    ## return the elements of the list with the input names
    member..names <- names(list)
    index <- which(member..names %in% names)
    list[index]    
}


exclude <- function(list,names){
     ## return the elements of the list not belonging to names
     member..names <- names(list)
     index <- which(!(member..names %in% names))
    list[index]    
}  
aa <- structure(list(a = 1:10, b = 4:5, fruits = c("Apple", "orange"
)), .Names = c("a", "b", "fruits"))

> aa
## $a
##  [1]  1  2  3  4  5  6  7  8  9 10

## $b
## [1] 4 5

## $fruits
## [1] "Apple"  "orange"


> member(aa,"fruits")
## $fruits
## [1] "Apple"  "orange"


> exclude(aa,"fruits")
## $a
##  [1]  1  2  3  4  5  6  7  8  9 10

## $b
## [1] 4 5
1
DJJ

Lapplyとgrepを使う：

lst <- list(a = 1:4, b = 4:8, c = 8:10)
# say you want to remove a and c
toremove<-c("a","c")
lstnew<-lst[-unlist(lapply(toremove, function(x) grep(x, names(lst)) ) ) ]
#or
pattern<-"a|c"
lstnew<-lst[-grep(pattern, names(lst))]
0
Ferroao

数値のインデックスを避けたい場合は、

a <- setdiff(names(a),c("name1", ..., "namen"))

aからnamea...namenという名前を削除します。これはリストに対して機能します

> l <- list(a=1,b=2)
> l[setdiff(names(l),"a")]
$b
[1] 2

ベクトルと同様に

> v <- c(a=1,b=2)
> v[setdiff(names(v),"a")]
b 
2
0
Greg Minshall