Виберіть перший елемент вкладеного списку

Скажімо, у мене є такий список:

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

Я хотів би отримати список, який містить лише перші елементи вкладеного списку. Я можу зробити це, повернувши інший список таким чином

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

Чи існує для цього позначення ярлика?

Ярлик не надто великий, але ви можете зробити це:

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

Інша можливість використовує приємну purrrбібліотеку:

library(purrr)
map(x, 1)

Для вашого списку прикладів ви можете просто зробити:

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

але це залежить від кожного підсписку, що має рівно 2 елементи.

Якщо існує різна кількість елементів, тоді спочатку можна зробити sapplyобчислення довжин, потім обчислити відповідні позиції 1-го елемента (див. cumsum), А потім вибрати ці значення зі списку unlisted. Але на той час прийнята відповідь набагато простіша.

Якщо всі підсписки мають однакову довжину (але можуть відрізнятися від 2), ви можете зробити щось на зразок:

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

або якийсь інший кидок на загальний предмет. Але я сумніваюся, що це було б настільки ж ефективно, як і lapplyпідхід.

Ми можемо використовувати, pluckз rvestяких обирає 1-й елемент із кожного вкладеного списку

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

#[[2]]
#[1] 3

#[[3]]
#[1] 5

Зверніть увагу , що це дає різний результат з pluckвід purrrякий вибирає 1 - й елемент ( x[[1]])

purrr::pluck(x, 1)

#[[1]]
#[1] 1

#[[2]]
#[1] 2

Не зовсім короткий запис, але це також можна зробити за допомогою складки:

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

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