dplyr ::选择嵌套数据框

CPa*_*Pak 4 select r dplyr purrr

我有以下示例数据框:

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))
Run Code Online (Sandbox Code Playgroud)

它是3x2数据框(df2)中的嵌套1x2数据框(df).有没有办法组合purrr::mapdplyr::selectcolumn C在嵌套数据框中选择?我希望避免unnest.结果应该是:

      A             data
  <dbl>           <list>
1     1 <tibble [3 x 1]>
Run Code Online (Sandbox Code Playgroud)

aos*_*ith 6

一旦你做了,你有嵌套的数据集,可以使用selectmap对"数据"列在同一个mutate电话.

df %>%
    nest(B) %>%
    mutate(data = map(data, ~df2),
           data = map(data, ~select(.x, "C") ) )
Run Code Online (Sandbox Code Playgroud)