r - 从类(class)列表中查找当前事件条目

Question

我需要从类(class)列表中找到“当前”等效类(class)。该列表采用相当简单的格式，来自 SQL 查询，如下所示:

<表类="s-表"> <头> 类(class)代码 类(class)名称 类(class)状态 家长类(class) <正文> HLT31802 Title1a 已被取代 HLT31807 HLT31807 Title1b 已被取代 HLT31812 HLT31812 Title1c 已被取代 HLT35015 HLT35015 标题1d 已被取代 HLT35021 HLT35021 标题1e 当前 无 ABC12345 Title2a 已被取代 ABC67890 ABC67890 Title2b 当前 无

我确定解决方案与递归有关，但我无法理解它。我很高兴发布我尝试过的代码，但如果不在 SQL 中创建多个列(child1、child2 等)，我并没有走得太远。

要求的输出应该是这样的:

<表类="s-表"> <头> 类(class)代码 当前类(class) <正文> HLT31802 HLT35021 HLT31807 HLT35021 HLT31812 HLT35021 HLT35015 HLT35021 HLT35021 HLT35021 ABC12345 ABC67890 ABC67890 ABC67890

如有任何帮助，我们将不胜感激!

Answer 1

如果您不想使用 course_title 列，您也可以这样做。

• 使用 igraph 为每个 parent-child 创建一个单独的集群。
• 此后在我们的案例中使用了 cluster-id values，用于实际数据的 group_by。
• 为了对parent-child 进行网络分析，我还必须从parent 中删除None，并在None 为None 时将其替换为child 本身找到了。

希望其他语法非常清楚。否则要求解释

df <- read.table(header = T, text = 'Course_Code    Course_Title    Course_Status   Parent_Course
HLT31802    Title1a Superseded  HLT31807
HLT31807    Title1b Superseded  HLT31812
HLT31812    Title1c Superseded  HLT35015
HLT35015    Title1d Superseded  HLT35021
HLT35021    Title1e Current None
ABC12345    Title2a Superseded  ABC67890
ABC67890    Title2b Current None')

library(tidyverse)
library(igraph)

df %>%
  mutate(Parent_Course = ifelse(Parent_Course == 'None', Course_Code, Parent_Course)) %>%
  select(1,4) %>%
  graph.data.frame() %>%
  components() %>%
  pluck(membership) %>%
  stack() %>%
  right_join(df, by = c('ind' = 'Course_Code')) %>%
  group_by(values) %>%
  mutate(Parent_Course = ind[Course_Status == 'Current'], .keep = 'used') %>%
  rename(Course_Code = ind)

#> # A tibble: 7 x 4
#> # Groups:   values [2]
#>   values Course_Code Course_Status Parent_Course
#>    <dbl> <chr>       <chr>         <chr>        
#> 1      1 HLT31802    Superseded    HLT35021     
#> 2      1 HLT31807    Superseded    HLT35021     
#> 3      1 HLT31812    Superseded    HLT35021     
#> 4      1 HLT35015    Superseded    HLT35021     
#> 5      1 HLT35021    Current       HLT35021     
#> 6      2 ABC12345    Superseded    ABC67890     
#> 7      2 ABC67890    Current       ABC67890

^{由 reprex package 创建于 2021-06-30 (v2.0.0)}