使用 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>