r - 我可以每隔一个逗号分隔一个字符吗？

Question

假设我有 dd 并且我想拆分 cc 列并最终获得一个 targetdd。

> dd <- tibble(aa=c("we","dd","qw"),
+              cc=c("de,34,ff,55u,gf,55","de,34","de,34,ff,55u"))
> dd
# A tibble: 3 x 2
  aa    cc                
  <chr> <chr>             
1 we    de,34,ff,55u,gf,55
2 dd    de,34             
3 qw    de,34,ff,55u      
> targetdd <- tibble(aa=c("we","we","we","dd","qw","qw"),
+                    cc= c("de,34","ff,55u","gf,55","de,34","de,34","ff,55u"))
> targetdd
# A tibble: 6 x 2
  aa    cc    
  <chr> <chr> 
1 we    de,34 
2 we    ff,55u
3 we    gf,55 
4 dd    de,34 
5 qw    de,34 
6 qw    ff,55u

假设我有 dd 并且我想拆分 cc 列并最终获得一个 targetdd。

Answer 1

使用 positive look-ahead我们可以拆分 ,后跟字母

library(dplyr)
dd %>% tidyr::separate_rows(cc, sep = ",(?=[a-z]+)")
# A tibble: 6 x 2
  aa    cc    
  <chr> <chr> 
1 we    de,34 
2 we    ff,55u
3 we    gf,55 
4 dd    de,34 
5 qw    de,34 
6 qw    ff,55u