Chọn phần tử đầu tiên của danh sách lồng nhau

Giả sử tôi có một danh sách như sau:

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

Tôi muốn một danh sách chỉ chứa các phần tử đầu tiên của danh sách lồng nhau. Tôi có thể làm điều này bằng cách trả lại một danh sách khác như vậy

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

Có ký hiệu tắt cho điều này không?

Không có nhiều phím tắt, nhưng bạn có thể làm điều này:

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

Một khả năng khác sử dụng purrrthư viện đẹp :

library(purrr)
map(x, 1)

Đối với danh sách ví dụ của bạn, bạn chỉ có thể làm:

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

nhưng điều đó phụ thuộc vào mỗi danh sách con có chính xác 2 phần tử.

Nếu có số lượng phần tử khác nhau thì trước tiên bạn có thể thực hiện sapplyphép tính độ dài, sau đó tính vị trí phần tử thứ nhất tương ứng (xem cumsum), sau đó chọn các giá trị đó từ unlistdanh sách chỉnh sửa. Nhưng đến lúc đó câu trả lời được chấp nhận có lẽ đơn giản hơn nhiều.

Nếu tất cả các danh sách con có cùng độ dài (nhưng có thể khác 2) thì bạn có thể làm như sau:

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

hoặc một số đúc khác đến một đối tượng chung. Nhưng tôi nghi ngờ rằng điều này sẽ hiệu quả như lapplycách tiếp cận.

Chúng ta có thể sử dụng plucktừ rvestđó chọn phần tử đầu tiên từ mỗi danh sách lồng nhau

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

#[[2]]
#[1] 3

#[[3]]
#[1] 5

Lưu ý rằng điều này cho kết quả khác với plucktừ purrrđó chọn phần tử thứ nhất ( x[[1]])

purrr::pluck(x, 1)

#[[1]]
#[1] 1

#[[2]]
#[1] 2

Không chính xác là một ký hiệu ngắn, nhưng điều này cũng có thể được thực hiện với một nếp gấp:

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

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