Seleziona il primo elemento dell'elenco nidificato

Diciamo che ho una lista come questa:

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

Vorrei una lista che contenga solo i primi elementi della lista annidata. Posso farlo restituendo un altro elenco in questo modo

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

C'è una notazione scorciatoia per questo?

Non è una scorciatoia, ma puoi farlo:

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

Un'altra possibilità utilizza la simpatica purrrlibreria:

library(purrr)
map(x, 1)

Per il tuo elenco di esempio puoi semplicemente fare:

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

ma questo dipende dal fatto che ogni sottolista abbia esattamente 2 elementi.

Se ci sono diversi numeri di elementi, puoi prima fare un sapplyper calcolare le lunghezze, quindi calcolare le corrispondenti posizioni del primo elemento (vedi cumsum), quindi selezionare quei valori dall'elenco unlisted. Ma a quel punto la risposta accettata è probabilmente molto più semplice.

Se tutte le sottoliste hanno la stessa lunghezza (ma potrebbero essere diverse da 2), potresti fare qualcosa del tipo:

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

o qualche altro cast su un oggetto comune. Ma dubito che questo sarebbe efficiente quanto l' lapplyapproccio.

Possiamo usare pluckda rvestcui seleziona il primo elemento da ogni elenco annidato

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

#[[2]]
#[1] 3

#[[3]]
#[1] 5

Si noti che questo dà risultato diverso con pluckda purrrcui seleziona 1 ° elemento ( x[[1]])

purrr::pluck(x, 1)

#[[1]]
#[1] 1

#[[2]]
#[1] 2

Non esattamente una breve notazione, ma questo può essere fatto anche con una piega:

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

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