用 R/tidyverse 将数据框的一列分隔为未定义的列数

Question

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

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

用 R/tidyverse 将数据框的一列分隔为未定义的列数

Separate a column of a dataframe in undefined number of columns with R/tidyverse

r

data-import

tidyr

tidyverse