如何使用具有不同长度的列表？

这个问题从这里开始。

我有一个无向图g和n<100顶点。该图很简单。所有顶点的坐标都是整数(x_i, y_i), i=1, 2,..., n，边缘的集合是预定义的，它们是长度1单位为线段。顶点的程度可以2，3或4。

library(igraph)

g <- graph_from_literal(1-2-3-4-5-6-7-8-1, 8-9-4)
B <- t(matrix(c(0,0, 0,1, 0,2, -1,2, -2,2, -2,1, -2,0, -1,0, -1,1), nrow =2));

V(g)$id <- seq_len(vcount(g))

V(g)$x <- B[,1]; V(g)$y <- B[,2]

plot(g, layout=as.matrix(B))

我需要为顶点设置新corner属性。

如果顶点的度为且两个入射边不在同一条线上，则称该顶点i为corner顶点2。在上面的顶点上的图1, 3, 5, 7是角顶点，而其余顶点2, 4, 6, 8, 9是非角。

我已经找到了度等于的顶点列表2。

idv <- V(g)[strength(g)==2]; idv # 1 2 3 5 6 7 9

然后i找到第-个顶点的邻域顶点列表，并创建新的属性：

neigh<-neighborhood(g, nodes=idv); neigh
V(g)$corner <- 0

我的尝试

for(i in idv){
    ifelse(V(g)[neigh[[i]][2]]$x == V(g)[neigh[[i]][3]]$x || 
           V(g)[neigh[[i]][2]]$y == V(g)[neigh[[i]][3]]$y, 
    V(g)[neigh[[i]][1]]$corner <- 0, 
    V(g)[neigh[[i]][1]]$corner <- 1)}

但是我有错误 Error in neigh[[i]] : subscript out of bounds

通常情况下，的长度neigh小于或等于长度V(g)$id：

length(neigh)     # 7
length(V(g)$id)   # 9

而且我无法比较协调员(x_i, y_i)。

题。如何使用具有不同长度的列表？