根据相同的分隔符拆分多列[重复]

Question

我很难找到一种更加程序化的方法来根据相同的分隔符拆分多列...

该解决方案适用于 n 列，所有列都由类似的模式标识，在我的示例中为“^var[0-9]”

例如

library(tidyverse)
foo <- data.frame(var1 = paste0("a_",1:10), var2 = paste("a_",1:10), id = 1:10)

# Desired output

foo %>% 
  separate(var1, into = c("group1", "index1")) %>%
  separate(var2, into = c("group2", "index2"))
#>    group1 index1 group2 index2 id
#> 1       a      1      a      1  1
#> 2       a      2      a      2  2
#> 3       a      3      a      3  3
#> 4       a      4      a      4  4
#> 5       a      5      a      5  5
#> 6       a      6      a      6  6
#> 7       a      7      a      7  7
#> 8       a      8      a      8  8
#> 9       a      9      a      9  9
#> 10      a     10      a     10 10

Answer 1

这不是很优雅，但它有效（基于此处的答案：Tidy method to split multiple columns using tidyr::separate）：

grep("var[0-9]", names(foo), value = TRUE) %>% 
  map_dfc(~ foo %>% 
            select(.x) %>% 
            separate(.x, 
                     into = paste0(c("group", "index"), gsub("[^0-9]", "", .x)))
  ) %>% 
  bind_cols(id = foo$id)

返回：

组 1 索引 1 组 2 索引 2 id 1 一 1 一 1 1 2 一个 2 一个 2 2 3 一 3 一 3 3 4 一 4 一 4 4 5 一个 5 一个 5 5 6 一 6 一 6 6 7 一 7 一 7 7 8 一 8 一 8 8 9 一 9 一 9 9 10 一个 10 一个 10 10