r - 如何索引列表的第一个元素，并将其应用于 R 中数据帧的每一行？

Question

我有一列包含日期元素的列表对象，我想选择第一个日期并将其变异为新列，但现在我遇到了一些索引问题。

我试过索引列表，但它对每一行都不起作用，但总是显示第一行的第一个元素。代码如下:

> head(data$Date)
[[1]]
 [1] "2016-06-08" "2016-06-08" "2016-06-13" "2016-06-13" "2016-06-13" "2016-06-14"
 [7] "2016-06-14" "2016-06-14" "2016-06-14" "2016-06-14" "2016-06-14" "2016-09-15"
[13] "2016-10-31"

[[2]]
[1] "2016-10-02"

[[3]]
[1] "2016-09-25"

[[4]]
[1] "2017-02-16"

> data %>%
+     mutate(time1 = Date[[1]][1])%>%
+     select(time1)
# A tibble: 29,036 x 1
   time1     
   <chr>     
 1 2016-06-08
 2 2016-06-08
 3 2016-06-08
 4 2016-06-08
 5 2016-06-08
 6 2016-06-08

Answer 1

我们还可以将 pluck 与 reduce 一起使用，以确保 Date 不会被强制转换为 numeric

library(tidyverse)
data %>%
    mutate(time1 =  map(Date, pluck, 1) %>%
                       reduce(c))

如果我们需要 last，pluck last

data %>%
   mutate(time1 = map(Date, pluck, last) %>% 
                    reduce(c))