r - 如何找到 Id 并将其放入新列

Question

我是 R 的初学者，我使用 tidyverse 包。

我有这样的数据

ID   Jobs    Successors
1    JobA    JobB;JobC
2    JobB    JobD
3    JobC    JobD
4    JobD

我想添加一个包含继任者 ID 的列，以便数据看起来像这样

ID   Jobs    Successors    SuccessorIds
1    JobA    JobB;JobC     2;3
2    JobB    JobD          4
3    JobC    JobD          4
4    JobD

Answer 1

涉及 dplyr 和 purrr 的一个选项可能是:

df %>%
 mutate(SuccessorsIds = map(.x = strsplit(Successors, ";", fixed = TRUE),
                            ~ ID[match(.x, Jobs)]))

  ID Jobs Successors SuccessorsIds
1  1 JobA  JobB;JobC          2, 3
2  2 JobB       JobD             4
3  3 JobC       JobD             4
4  4 JobD       <NA>            NA

如果你不想要一个列表，而是一个字符向量:

df %>%
 mutate(SuccessorsIds = map_chr(.x = strsplit(Successors, ";", fixed = TRUE),
                                ~ paste0(ID[match(.x, Jobs)], collapse = ";")))

  ID Jobs Successors SuccessorsIds
1  1 JobA  JobB;JobC           2;3
2  2 JobB       JobD             4
3  3 JobC       JobD             4
4  4 JobD       <NA>            NA