我有以下示例数据框:
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))
它是3x2
数据框(df2
)中的嵌套1x2
数据框(df
)。有没有办法将purrr::map
和dplyr::select
合并为仅在嵌套数据框中选择column C
? 我希望避免unnest
。结果应该是:
A data
<dbl> <list>
1 1 <tibble [3 x 1]>
答案 0 :(得分:6)
在您创建了嵌套数据集之后,您可以在同一select
次调用的“数据”列中的map
mutate
中使用df %>%
nest(B) %>%
mutate(data = map(data, ~df2),
data = map(data, ~select(.x, "C") ) )
。
launch.json