0

我有一个tidygraph对象列表。我正在尝试根据特定标准重新排序列表元素。也就是说，我列表中的每个元素都有一个名为name. 我正在尝试将具有相同name列的列表元素组合在一起......但我也想按其计数的降序对它们进行分组（即，name每个列表元素中相等列的计数）。希望我的例子能解释得更清楚。

首先，我创建了一些数据，将它们转换为 tidygraph 对象并将它们放在一个列表中：

library(tidygraph)
library(tidyr)

# create some node and edge data for the tbl_graph
nodes1 <- data.frame(
  name = c("x4", NA, NA),
  val = c(1, 5, 2)
)
nodes2 <- data.frame(
  name = c("x4", "x2", NA, NA, "x1", NA, NA),
  val = c(3, 2, 2, 1, 1, 2, 7)
)
nodes3 <- data.frame(
  name = c("x1", "x2", NA),
  val = c(7, 4, 2)
)
nodes4 <- nodes1
nodes5 <- nodes2
nodes6 <- nodes1

edges <- data.frame(from = c(1, 1), to = c(2, 3))
edges1 <- data.frame(
  from = c(1, 2, 2, 1, 5, 5),
  to = c(2, 3, 4, 5, 6, 7)
)

# create the tbl_graphs
tg_1 <- tbl_graph(nodes = nodes1, edges = edges)
tg_2 <- tbl_graph(nodes = nodes2, edges = edges1)
tg_3 <- tbl_graph(nodes = nodes3, edges = edges)
tg_4 <- tbl_graph(nodes = nodes4, edges = edges)
tg_5 <- tbl_graph(nodes = nodes5, edges = edges1)
tg_6 <- tbl_graph(nodes = nodes6, edges = edges)


# put into list
myList <- list(tg_1, tg_2, tg_3, tg_4, tg_5, tg_6)

因此，我们可以看到 中有 6 个tidygraph对象myList。

检查每个元素，我们可以看到 3 个对象具有相同的name列（即x4,NA,NA）.... 2 个对象具有相同的name列（"x4", "x2", NA, NA, "x1", NA, NA）.. 和 1 个对象仍然存在（x1,x2,NA）。

使用一个小函数来获取同名列的计数：

# get a count of identical list elements based on `name` col
counts <- lapply(myList, function(x) {
  x %>%
    pull(name) %>%
    paste0(collapse = "")
}) %>%
  unlist(use.names = F) %>%
  as_tibble() %>%
  group_by(value) %>%
  mutate(val = n():1) %>% 
  slice(1) %>%
  arrange(-val)

只是为了清楚起见：

> counts
# A tibble: 3 × 2
# Groups:   value [3]
  value                  val
  <chr>                <int>
1 x4 NA NA                 3
2 x4 x2 NA NA x1 NA NA     2
3 x1 x2 NA                 1

我想myList根据对象中的val列重新排列列表元素的顺序counts。

我想要的输出看起来像这样（我只是手动重新排序）：

myList <- list(tg_1, tg_4, tg_6, tg_2, tg_5, tg_3)

有没有办法根据相同name列的数量自动重新排序我的列表？

更新：

所以我尝试的解决方案是执行以下操作：

ind <- map(myList, function(x){
  x %>%
    pull(name) %>%
    replace_na("..") %>%
    paste0(collapse = "")
}) %>%
  unlist(use.names = F) %>%
  as_tibble() %>%
  mutate(ids = 1:n()) %>%
  group_by(value) %>%
  mutate(val = n():1) %>% 
  arrange(value) %>% 
  pull(ids)

# return new list of trees
myListNew <- myList[ind]

上面的代码按列对列表元素进行分组，name并返回一个名为ind. 然后我通过ind索引来索引我的原始列表以重新排列我的列表。

但是，我仍然想找到一种方法来根据每个相同变量的总量对新列表进行排序name……我还没有弄清楚。

4

1 回答 1

0

经过数小时的测试，我最终有了一个可行的解决方案。

ind <- map(myList, function(x){
  x %>%
    pull(name) %>%
    replace_na("..") %>%
    paste0(collapse = "")
}) %>%
  unlist(use.names = F) %>%
  as_tibble() %>%
  mutate(ids = 1:n()) %>%
  group_by(value) %>%
  mutate(val = n():1) %>% 
  arrange(value) 

ind <- ind %>%
  group_by(value) %>%
  mutate(valrank = min(ids)) %>%
  ungroup() %>%
  arrange(valrank, value, desc(val)) %>% 
  pull(ids)

# return new list of trees
myListNew <- myList[ind]

上面的代码按name字母顺序排列列表。然后我按名称分组并创建另一列对行进行排名。然后我可以根据这个变量重新排列行。最后我按结果索引。

于 2021-11-23T01:42:24.950 回答