小编use*_*099的帖子

我想构建一个有向网络图的子图,其中所有顶点共享一个顶点属性(比如,V(Grph)$ year =="1952")和它们的一阶(立即)邻居,基于只有在外面.

我试过ego(),make_ego_graph(),neighbors(),和adjacent_vertices().

例如, CitGraph <- make_ego_graph(Grph, 1, nodes = which(V(Grph)$year=="1952"), mode = "out") 产生一个图表列表(而不是单个综合图表),并且令人惊讶的是,今年50k顶点需要两个小时,并且指向了150k个邻居.

我能想到的一种方法是聚合列表中的所有这些图,但不知道如何.此外,我想保留顶点属性,因为我的最终目标是assortativity_nominal()根据另一个顶点属性(在这种情况下为地理位置)进行计算.

预先感谢您提出的任何建议!

我正在尝试以行方式基于 data.frame 中的另一列从较大字符串中剪切/删除字符串。

例如，在此 data.frame 中col2应从中删除col1

kat1 <- data.frame(col1 = c("A123Testz45", "66Test255"), col2 = c("Testz", "Test2"))

结果是

          col1     col2
1     A123 45     Testz
2       66 55     Test2

我尝试过subwith的变体

kat1$col1 <- sub(kat1$col2, " ", kat1$col1)

但这会导致

Warning message: In sub(kat1$col2, " ", kat1$col1) : argument 'pattern' has length > 1 and only the first element will be used 

因此，我正在考虑如何使用 REGEX 中的列以行方式替换这些元素。