Question

下面的代码是我的R脚本。我想从我的r脚本的结果列表中获取$ r [[1]]和$ r1：loop_results。下面是loop_results的第一个元素的一部分看起来如何的样本。我想要一个列表，只显示最短路径的序列，如1和1 2，以及一个只包含顶点序列的列表，如A和A B.

[[1]]
[[1]][[1]]
[[1]][[1]]$r
[[1]][[1]]$r[[1]]
[1] 1


[[1]][[1]]$r1
Vertex sequence:
[1] "A"


[[1]][[2]]
[[1]][[2]]$r
[[1]][[2]]$r[[1]]
[1] 1 2


[[1]][[2]]$r1
Vertex sequence:
[1] "A" "B"

这是我的R脚本

library(igraph)
  g <- graph.ring(5) # the graph
  V(g)$name <- LETTERS[1:5] # Vertex names
  # Define functions:
  val=function(g,i,j) { r=get.shortest.paths(g, i,j ,mode = "out"); return(r) } 
  val_all=function(r) { r1 <- V(g)[r$vpath[[1]]]; return(r1) }

  loop_results <- list()
  for (i in 1:5) {
    loop_results[i] <- list(NULL)
    for(j in 1:5) { 

      r=val(g ,i, j)
      print(r[[1]]) 
      r1 = val_all(r)
      print(r1)
      loop_results[[i]][[j]] <- list(r=r[[1]], r1=r1)
    }
  }
  loop_results

我从dput(loop_results)获得以下输出：

  list(list(structure(list(r = list(1), r1 = structure(1, 
  class ="igraph.vs", env = <environment>)), .Names = c("r", 
  "r1")), structure(list(r = list(c(1, 2)), 
   r1 = structure(c(1, 2), 
   class = "igraph.vs", env = <environment>)), .Names = c("r", "r1")),
   structure(list(r = list(c(1, 2, 3)), r1 = structure(c(1, 2, 3), 
   class = "igraph.vs", env = <environment>)), .Names = c("r", "r1")),
    structure(list(r = list(c(1, 5, 4)), r1 = structure(c(1, 5, 4)       class = "igraph.vs",env = <environment>)), 
    .Names = c("r", "r1")), structure(list(r = list(c(1, 5)), r1 =      structure(c(1, 5),class = "igraph.vs", env = <environment>)), .Names = c("r", "r1")))

以这种形式为剩余的4个字母中的每一个也。 get.shortest.path函数中的R只返回最短路径序列作为数字。如果我们有字符串的顶点，那么我们用我的r脚本中使用val_all函数的最短路径结果打印出顶点序列名称。

我的主要目标是找到包含具有中间节点的最短路径序列的列表。就像在我的例子中我想找到节点“A”和“C”之间的最短路径一样，结果将是AB C.然后，我只想打印中间节点，即“B”而不是“A”和“C” “，这是我发现最短路径的节点。为此，我想在r中使用setdiff（）函数，对于这个函数，我需要传递一个列表，这就是为什么我想要我之前提到的列表。

Answer 1

如果要根据数据是否与r或r1相关联，将现有列表拆分为两个列表，您可以使用嵌套lapply调用来完成此操作：< / p>

r：

lapply(seq_along(loop_results), 
    function(x) lapply(seq_along(loop_results[[x]]), 
         function(y) loop_results[[x]][[y]][["r"]]))

r1：

lapply(seq_along(loop_results), 
    function(x) lapply(seq_along(loop_results[[x]]), 
        function(y) loop_results[[x]][[y]][["r1"]]))

从r

1 个答案: