将具有开始列和结束列的数据重新排序为连续序列

Question

我有一个数据框，其中每一行都有一个开始和一个结束 ID：

df <- data.frame(start_id = c("130", "100", "150", "120"),
                 end_id = c("150", "180", "100", "130"))

#   start_id end_id
# 1      130    150
# 2      100    180
# 3      150    100
# 4      120    130

我想对数据进行排序，使一行中的“end_id”成为下一行的“start_id”；开始和结束 ID 应该“连接”以形成一个连续的链。一个简单的视觉表示：

120 -> 130                       
       130 -> 150                
              150 -> 100
                     100 -> 180

所需的重新排序数据：

#   start_id end_id
# 4      120    130
# 1      130    150
# 3      150    100
# 2      100    180

Answer 1

将您的数据框转换为图表。使用get_diameter 获取最长路径的顶点索引。使用索引对原始数据进行排序。

library(igraph)
g <- graph_from_data_frame(df)
df[head(get_diameter(g), -1), ]
#   start_id end_id
# 4      120    130
# 1      130    150
# 3      150    100
# 2      100    180

---

或者使用一个简单的循环：

# create a vector of row indices 
# get the first start ID, pre-allocate the remaining indices with NA 
ix <- c(which(!df$start_id %in% df$end_id), rep(NA, nrow(df) - 1))

# for each row, check if end ID in one row matches start ID in the next row
for(i in 2:nrow(df)){
  ix[i] <- match(df$end_id[ix[i - 1]], df$start_id)
}

# reorder data
df[ix, ]

---

get_diameter(g)
# + 5/5 vertices, named, from 8e3b983:
# [1] 120 130 150 100 180

plot(g)

Answer 2

这是使用dplyr 的一种方式-

df %>% 
  arrange(apply(., 1, max))

  start_id end_id
1      120    130
2      130    150
3      150    100
4      100    180

在基础 R 中 -

df[order(apply(df, 1, max)), ]

  start_id end_id
4      120    130
1      130    150
3      150    100
2      100    180

对于字母数字ids，根据您的评论，您可以使用readr 中的parse_number()，它是tidyverse 的一部分-

df %>% 
  arrange(apply(df, 1, function(x) max(parse_number(x))))

# in base R
df[order(apply(df, 1, function(x) max(parse_number(x)))), ]