在R中添加父行作为列标识符

发布于03月22日

我有一个数据导出，它列出了一个层次 struct ，但它并不能真正用于我的目的.以下是一个数据示例:

Level	Number
1	CO123
2	PN123
2	PN124
1	CO124
2	PN125
2	PN126
1	CO125
2	PN127
2	PN128

我希望它看起来像这样:

Parent	Child
CO123	PN123
CO123	PN124
CO124	PN125
CO124	PN126
CO125	PN127
CO125	PN128

我有很多行，每一位家长都有不同数量的"子元素".然而，父项只在数据集中出现一次，而子项可以被构造为多个父项.

我试图对每一位家长进行一些分析，比如子元素的平均数量.

提前谢谢.

推荐答案

我们可以使用pivot_wider来reshape 为"宽"格式

library(dplyr)
library(tidyr)
library(数据.table)
df1 %>% 
  mutate(nm1 = case_when(Level == 1 ~ "Parent", TRUE ~ "Child"),
    rn = rowid(Level)) %>%
  pivot_wider(names_from = nm1, values_from = Number) %>%  
  fill(everything(), .direction = "downup") %>% 
  filter(Level != 1) %>%
   select(-rn,-Level)

-输出

# A tibble: 6 × 2
  Parent Child
  <chr>  <chr>
1 CO123  PN123
2 CO123  PN124
3 CO124  PN125
4 CO124  PN126
5 CO125  PN127
6 CO125  PN128

数据

df1 <- structure(list(Level = c(1L, 2L, 2L, 1L, 2L, 2L, 1L, 2L, 2L), 
    Number = c("CO123", "PN123", "PN124", "CO124", "PN125", "PN126", 
    "CO125", "PN127", "PN128")), class = "数据.frame", row.names = c(NA, 
-9L))