İç içe listenin ilk öğesini seçin

Diyelim ki böyle bir listem var:

x = list(list(1,2), list(3,4), list(5,6))

İç içe geçmiş listenin yalnızca ilk öğelerini içeren bir liste istiyorum. Böyle başka bir listeyi geri döndürerek bunu yapabilirim

x1 = lapply(x, function(l) l[[1]])

Bunun için kısayol notasyonu var mı?

Pek bir kısayol değil, ancak bunu yapabilirsiniz:

lapply(x, `[[`, 1)
# [[1]]
# [1] 1
#
# [[2]]
# [1] 3
#
# [[3]]
# [1] 5

Başka bir olasılık güzel purrrkitaplığı kullanır :

library(purrr)
map(x, 1)

Örnek listeniz için şunları yapabilirsiniz:

unlist(x)[ c(TRUE,FALSE) ]

ancak bu, her bir alt listenin tam olarak 2 öğeye sahip olmasına bağlıdır.

Farklı sayıda eleman varsa, önce sapplyuzunlukları hesaplamak için bir yapabilir , ardından karşılık gelen 1. eleman konumlarını hesaplayabilir (bakınız cumsum), ardından bu değerleri unlisted listesinden seçebilirsiniz . Ancak o zamana kadar kabul edilen cevap muhtemelen çok daha basittir.

Tüm alt listeler aynı uzunluğa sahipse (ancak 2'den farklı olabilir), aşağıdaki gibi bir şey yapabilirsiniz:

do.call( rbind, x)[,1]

veya bir başkası ortak bir nesneye atılır. Ancak bunun lapplyyaklaşım kadar verimli olacağından şüpheliyim .

Biz kullanabilirsiniz pluckgelen rvesther hangi iç içe listeden 1 eleman seçer

rvest::pluck(x, 1)
#[[1]]
#[1] 1

#[[2]]
#[1] 3

#[[3]]
#[1] 5

Bunun, 1. öğeyi ( ) seçen farklı bir sonuç verdiğine dikkat edin pluck.purrrx[[1]]

purrr::pluck(x, 1)

#[[1]]
#[1] 1

#[[2]]
#[1] 2

Tam olarak kısa bir gösterim değil, ancak bu bir katlama ile de yapılabilir:

Reduce(function(a, b) c(a, b[1]), x, init = c()) 

# [[1]]
# [1] 1
# 
# [[2]]
# [1] 3
# 
# [[3]]
# [1] 5