使用 Ifelse 时出现 Igraph 无效索引错误

Question

我有两个节点向量：

bad_node_pair
+ 2/2 vertices, named:
[1] 1949 1967

remaining_nodes
+ 5/? vertices, named:
[1] 1947 1948 1949 1967 1968

我测试 bad_node_pair 是否存在于 remaining_nodes 中，如果存在，return 出现的那些：

bad_node_pair[names(bad_node_pair) %in% names(remaining_nodes)]
+ 2/2 vertices, named:
[1] 1949 1967

但是，当我将其放入循环中时，我得到：

ifelse(
  bad_node_pair[names(bad_node_pair) %in% names(remaining_nodes)], 
       print(1), 
       print(0)
       )
[1] 1
Error in `[<-.igraph.vs`(`*tmp*`, test & ok, value = c(1, 1)) : 
  invalid indexing

它打印答案，但抛出错误。

这是怎么回事？

坏节点数据：

df1 <- read.table(header=T, text=" from   to
8 1949 1967")
bad_g <- graph.data.frame(df1, directed=FALSE)
bad_node_pair <- V(bad_g)

好节点的数据：

df2 <- read.table(header=T, text=" from   to
1 1947 1948
2 1947 1949
3 1947 1967
4 1947 1968
5 1948 1949
6 1948 1967
7 1948 1968
8 1949 1968")
g <- graph.data.frame(df2, directed=FALSE)
remaining_nodes <- V(g)

Answer 1

如果你想使用ifelse，你必须传递一个逻辑参数：

ifelse(any(bad_node_pair[names(bad_node_pair) %in% names(remaining_nodes)]), 1, 0)
[1] 1

或者：

ifelse(names(bad_node_pair) %in% names(remaining_nodes), 1, 0)
[1] 1 1

看你想得到什么（不知道我是否理解正确）

使用 Ifelse 时出现 Igraph 无效索引错误

Igraph Invalid Indexing Error when using Ifelse

indexing

error-handling

if-statement

r

igraph