1

对于我在这里提出的问题，我有一个后续问题。

我想构建一个函数，该函数将基于某个参数（lev在下面的示例中调用）将属性分配给图形。这是我的玩具图：

toy.graph <- graph.formula(121-221,121-345,121-587,345-587,221-587,490,588)

这是一个示例函数：

deco2 <- function(x, lev){
      switch(lev,
            one = {V(x)$color <- "red"},
            two = {V(x)$color <- "yellow"})
      return(x)
}

似乎该color属性已添加到我的图表中：

toy.graph <- deco2(toy.graph, lev="one")
> toy.graph
IGRAPH UN-- 6 5 -- 
+ attr: name (v/c), color (v/c)

但是，当我打印属性的值时，结果发现它们不存在：

> toy.graph$color
NULL

我错过了什么？

编辑y当我只有一种颜色时，分配的解决方案非常完美。但是，当我想在每个switch选项中分配多种颜色时，我仍然遇到问题。这是我对作业的尝试y：

V(toy.graph)$gender <- sample(c("M","F"), 6, replace = TRUE)
V(toy.graph)$gender
[1] "M" "F" "F" "M" "F" "M"

deco2 <- function(x, lev){
         y <- switch(lev,
             one = {V(x)$color = "red"},
             two = {V(x)[gender == "F"]$color = "yellow"
                    V(x)[gender == "M"]$color = "green"})
         V(x)$color <- y
         return(x)
}

出于某种原因，我只分配"green"颜色：

toy.graph <- deco2(toy.graph, lev="two")
toy.graph
IGRAPH UN-- 6 5 -- 
+ attr: name (v/c), gender (v/c), color (v/c)
V(toy.graph)$color
[1] "green" "green" "green" "green" "green" "green"
4

1 回答 1

1

这看起来像你想要的：

library(igraph)
toy.graph <- graph.formula(121-221,121-345,121-587,345-587,221-587,490,588)

deco2 <- function(x, lev){
  #make sure you assign switch's output to a variable (e.g. y)
  y <-
  switch(lev,
         one =  "red",
         two =  "yellow")
  V(x)$color <- y
  x
}


toy.graph <- deco2(toy.graph, lev="one")

> V(toy.graph)$color
[1] "red" "red" "red" "red" "red" "red"

我认为给 x inside 赋值不是一个好主意switch。而是使用switch它的设计，即返回与您的输入相对应的值，然后在下一步中将该值分配给您的对象。

这样它就可以按预期工作了！

于 2015-05-23T00:53:57.143 回答