前端之家

  1. 首页
  2. 问答

如何在R中返回igraph列表的唯一子元素

• 问答

我有一个来自walks对象的列表igraph：

> walks
[[1]]
+ 3/10 vertices,named,from d1edbf2:
[1] C O D

[[2]]
+ 3/10 vertices,from d1edbf2:
[1] C O J

[[3]]
+ 3/10 vertices,from d1edbf2:
[1] C O N

[[4]]
+ 3/10 vertices,from d1edbf2:
[1] C O N

我需要返回列表的唯一子元素。 预期结果是：

[[1]]
[1] C O D

[[2]]
[1] C O J

[[3]]
[1] C O N

我尝试在玩具示例列表上使用unique()函数：

list1 = list(c("C","O","D"),c("C","J"),"N"),"N"))
unique(list1)

我已经获得了预期的结果。

问题。如何获取来自igraph对象的列表的结果？

编辑。 

> dput(walks)
list(structure(c(1L,7L,2L),.Names = c("C",env = <weak reference>,graph = "d1edbf24-043a-11ea-aa53-d7a9b9f5ae37",class = "igraph.vs"),structure(c(1L,4L),class = "igraph.vs",graph = "d1edbf24-043a-11ea-aa53-d7a9b9f5ae37"),6L),class = "igraph.vs"))

简而言之，我看到：

> dput(walks,control = NULL)
list(c(1,7,2),c(1,4),6),6))
chen870909 回答：如何在R中返回igraph列表的唯一子元素

唯一功能是正确的选择，在这种情况下，它不起作用，因为列表中的元素具有“ igraph”类。您需要先提取名称，然后应用唯一名称。

您的dput中有一些奇怪的“ env”，因此我在下面模拟了一些数据来说明这一点：

library(igraph)
set.seed(111)
g <- make_ring(9,directed = TRUE) %u%
  make_star(10,center = 10) + edge(10,1)
g <- set.vertex.attribute(g,"name",value=letters[1:10])

result = lapply(1:5,function(i)random_walk(g,start = 1,steps = 3))

您得到与示例相似的内容：

> result
[[1]]
+ 3/10 vertices,named,from 0105e1a:
[1] a b c

[[2]]
+ 3/10 vertices,from 0105e1a:
[1] a b c

[[3]]
+ 3/10 vertices,from 0105e1a:
[1] a j a

[[4]]
+ 3/10 vertices,from 0105e1a:
[1] a j a

[[5]]
+ 3/10 vertices,from 0105e1a:
[1] a j a

> class(result[[1]])
[1] "igraph.vs"

您可以检查两个不同的输出：

# does not work for you
unique(walks)
# this works
unique(lapply(walks,names))
> unique(lapply(walks,names))
[[1]]
[1] "a" "j" "a"

[[2]]
[1] "a" "b" "c"

[[3]]
[1] "a" "b" "j"
igraphlistrunique
本文链接：https://www.f2er.com/3126357.html

大家都在问