在 R 中，您可以将文本分隔到列以使值对齐吗？ [复制]

Question

我有一个文本值向量，例如：

Col1
camel; cow; giraffe; panda; zebra
camel; giraffe; zebra
panda; zebra

我想将这些值分成相等数量的列，以便这些值在同一列中垂直对齐，NA 有间隙，这样我得到：

Col1, Col2, Col3, Col4, Col5
camel, cow, giraffe, panda, zebra
camel, NA, giraffe, NA, zebra
NA, NA, NA, panda, zebra

我怎样才能做到这一点？我尝试在 dplyr 中使用“分离”函数，但这会返回错误消息，而在 splitshapestack 中使用“拆分”函数允许我分隔列，但它们不会返回垂直对齐的值。我也尝试过以与this post 类似的方式使用“lapply”和“match”，但我仍然不断收到错误消息。

Answer 1

您可以多次旋转数据以对齐这些值：

library(dplyr)

df %>% 
  tibble::rowid_to_column("id") %>% 
  tidyr::separate_rows(Col1, sep = "; ") %>% 
  tidyr::pivot_wider(id_cols = id,
                     names_from = Col1,
                     values_from = Col1) %>% 
  dplyr::select(-id) %>% 
  magrittr::set_colnames(paste0("Col", 1:ncol(.)))

---

输出

 Col1  Col2  Col3    Col4  Col5 
  <chr> <chr> <chr>   <chr> <chr>
1 camel cow   giraffe panda zebra
2 camel NA    giraffe NA    zebra
3 NA    NA    NA      panda zebra

---

工作原理

1. rowid_to_column 会跟踪行号，因此当数据转换为更长的格式时，我们不会忘记哪些值属于哪些行。
2. separate_rows 将分隔 Col1 并将数据转换为更长的格式。 @Adam 建议作为改进。
3. pivot_wider 将所有内容对齐到您指定的列中。

---

数据

structure(list(Col1 = c("camel; cow; giraffe; panda; zebra", 
"camel; giraffe; zebra", "panda; zebra")), class = "data.frame", row.names = c(NA, 
-3L))