使用 purrr 將字符向量折疊成字符串

Question

我想使用 purrr 將一個字符字段連接到一個字符串中。

d <- tibble(x = letters, y = c(rep(1,13), rep(2,13)) )
d
# output desired
tibble(y      =  c(1,2), 
       result =  c(stringr::str_c(letters[1:13],collapse = ","), stringr::str_c(letters[14:26], collapse = ",")))

Answer 1

不確定您要使用什么purrr function； 但您可以在dplyr中執行以下操作

library(dplyr)
d %>% group_by(y) %>% summarise(result = paste(x, collapse = ","))
## A tibble: 2 x 2
#      y result
#  <dbl> <chr>
#1     1 a,b,c,d,e,f,g,h,i,j,k,l,m
#2     2 n,o,p,q,r,s,t,u,v,w,x,y,z

或使用nest （回應您的評論）

d %>% group_by(y) %>% 
    nest(result = x) %>% 
    mutate(result = map_chr(result, ~paste(unlist(.x), collapse = ",")))