dplyr::select 个嵌套数据框

Question

我有以下示例数据框：

library(tibble)
library(tidyverse)
df <- tibble(A = 1, B = 1)
df2 <- tibble(C = 2:4, D = 4:6)
df <- df %>%
        nest(B) %>%
        mutate(data = map(data, ~df2))

它是 1x2 数据框 (df) 中的嵌套 3x2 数据框 (df2)。有没有办法在嵌套数据框中将 purrr::map 和 dplyr::select 合并为 select 只有 column C？ 我希望避免 unnest。 结果应该是：

      A             data
  <dbl>           <list>
1     1 <tibble [3 x 1]>

Answer 1

创建嵌套数据集后，您可以在同一 mutate 调用中的 "data" 列的 map 中使用 select。

df %>%
    nest(B) %>%
    mutate(data = map(data, ~df2),
           data = map(data, ~select(.x, "C") ) )

dplyr::select 个嵌套数据框

dplyr::select of nested data frame

select

r

dplyr

purrr