使用 R/tidyverse 在未定义的列数中分隔数据框的列

Question

我必须导入一个类似于以下数据框的表：

> df = data.frame(x = c("a", "a.b","a.b.c","a.b.d", "a.d"))
> df
      x
1  <NA>
2     a
3   a.b
4 a.b.c
5 a.b.d
6   a.d

我想根据我会找到多少个分隔符将第一列分隔在一列或多列中。

输出应该像这样

> df_separated
  col1 col2 col3
1    a <NA> <NA>
2    a    b <NA>
3    a    b    c
4    a    b    d
5    a    d <NA>

我尝试在 tidyr 中使用单独的函数，但我需要先验地指定我需要多少输出列。

非常感谢您的帮助

Answer 1

您可以先计算它可以占用的列数，然后使用separate.

nmax <- max(stringr::str_count(df$x, "\\.")) + 1
tidyr::separate(df, x, paste0("col", seq_len(nmax)), sep = "\\.", fill = "right")

#  col1 col2 col3
#1    a <NA> <NA>
#2    a    b <NA>
#3    a    b    c
#4    a    b    d
#5    a    d <NA>