如何在R中向netsed tible添加列 如何使用purrr的地图转换TIBLE。 我有以下嵌套的tibble： tbl_a <- tibble( a = letters[1:3], b = 1:3 ) tbl_b <- tibble( c = letters[1:3], d = 1:3 ) tbl_nested <- tibble( name = c("Test", "Sand"), nest_tbl = list(tbl_a,tbl_b) ) tbl\u a

我们可以使用

map2

library(dplyr)
library(purrr)
tbl_nested %>%
   mutate(nest_tbl_new = map2(nest_tbl, name, ~ 
          .x %>% 
            mutate(name = .y)))

-输出

# A tibble: 2 x 3
#  name  nest_tbl         nest_tbl_new    
#  <chr> <list>           <list>          
#1 Test  <tibble [3 × 2]> <tibble [3 × 3]>
#2 Sand  <tibble [3 × 2]> <tibble [3 × 3]>

#一个tible:2x3
#名称nest\u tbl nest\u tbl\u new
#                        
#1试验
#2沙

太好了，非常感谢！

# A tibble: 2 x 3
#  name  nest_tbl         nest_tbl_new    
#  <chr> <list>           <list>          
#1 Test  <tibble [3 × 2]> <tibble [3 × 3]>
#2 Sand  <tibble [3 × 2]> <tibble [3 × 3]>