将purrr :: map应用于嵌套列表的元素序列

Question

我需要purrr :: map嵌套列表的几个元素。例如，map(list,1)为我提供了嵌套列表中每个列表的第一个元素。问题是我需要多次应用它。如何将其应用于一系列预定义的数字？示例如下：

# Nested list
df <- list(
list(
 seq(0,100, length.out = 1000),
 seq(0,500, length.out = 1000),
 seq(0,700, length.out = 1000)),
list(
 seq(200,300, length.out = 1000),
 seq(500,5000, length.out = 1000),
 seq(200,900, length.out = 1000)
 )
)

# My sequence
myseq <- seq(1,3, by = 1)

我想执行map(df,myseq)之类的操作来自动执行以下顺序：map(df,1)，map(df,2)和map(df,3)，但是当然不起作用。 / p>

有什么想法吗？