R 循环中覆盖NonExistent Components

library(tidyverse)
library(igraph)


set.seed(123)
n=15
data = tibble(d = paste(1:n))

relations = tibble(
  from = sample(data$d),
  to = lead(from, default=from[1]),
)

graph = graph_from_data_frame(relations, directed=T, vertices = data) 

V(graph)$color <- ifelse(data$d == relations$from[1], "red", "orange")

plot(graph, layout=layout.circle, edge.arrow.size = 0.2)

g <- graph-E(graph)
plot(g)

for (i in 1:15)
 for (j in 1:15) { 

graph <- graph - edge(paste0(i, "|", j)) 

} 

Error in delete_edges(e1, unlist(e2, recursive = FALSE)) : 
  At iterators.c:1828 : Cannot create iterator, invalid edge id, Invalid vertex id

library(igraph)
library(dplyr)

set.seed(123)
n=15
data = tibble(d = paste(1:n))

relations = tibble(
  from = sample(data$d),
  to = lead(from, default=from[1]),
)

graph = graph_from_data_frame(relations, directed=T, vertices = data) 

V(graph)$color <- ifelse(data$d == relations$from[1], "red", "orange")

plot(graph, layout=layout.circle, edge.arrow.size = 0.2)

edgelist <- as_edgelist(graph, names = TRUE)

  for (i in 1:15) { 
    
    graph <- graph - edge(paste0(edgelist[i,1], "|", edgelist[i,2])) 
    
  } 

plot(graph)

R相关问答推荐

将Multilinetring合并到一个线串中，使用sf生成规则间隔的点

单击 map 后，将坐标复制到剪贴板

从嵌套列表中智能提取线性模型系数

R Markdown中的交叉引用表

从gtsummary包中使用tBL_strata()和tBL_summary()时删除变量标签

判断字符串中数字的连续性

derrr summarise每个组返回多行？

我不能在docker中加载sf

根据多个条件增加y轴高度以适应geom_text标签

如何从R ggplot图片中获取SVG字符串？

plotly hover文本/工具提示在shiny 中不起作用

为什么我使用geom_density的绘图不能到达x轴？

R -使用矩阵reshape 列表

手动指定从相同数据创建的叠加图的 colored颜色

为什么我对圆周率图的蒙特卡罗估计是空的？

在ggploy中创建GeV分布时出错

R预测包如何处理ARIMA(Auto.arima函数)中的缺失值

如何修改GT表中组名行的 colored颜色 ？

将CSV转换为R中的自定义JSON格式

根据向量对列表元素进行排序