在二分图中将顶点属性复制/设置为相邻顶点

Question

我与研究人员及其附属机构建立了双方共同作者网络。这些机构的顶点属性表示其国家（在V（sg）$ country中）。我想将此属性复制到连接到节点的每个研究人员，以便＆＃34; a＆＃34;会有一个＆＃34;国家＆＃34;属于＆＃34;中国＆＃34;和＆＃34; e＆＃34;会有＆＃34;美国＆＃34;在下面的例子中：

此外，一些研究人员在其职业生涯中转移到其他国家的机构，因此与几个机构有关。在这样的情况下，如果他们从最常见的国家获得他们的属性将是理想的（例如：＆＃34; c＆＃34;将得到＆＃34;中国＆＃34;而不是＆＃34;法国＆＃34;。

我对编码非常陌生，这是我在这里的第一个问题，所以我提前为我的诺言方式道歉。

可重复的例子

library(igraph)

set.seed(1)
sg<-sample_bipartite(10, 5, p=.3)

countries<-c("US","France","China")
V(sg)[type=="TRUE"]$country<-sample(countries,replace=TRUE,5)

V(sg)[type=="FALSE"]$label <- c("a","b","c","d","e","f","g","h","i","j")
V(sg)[type=="TRUE"]$label <- V(sg)[type=="TRUE"]$country
V(sg)$color[1:10] <- rgb(0,1,0,.5)
V(sg)$color[11:15] <- rgb(1,0,0,.5)
plot(sg)

Answer 1

以下是一种方法：

public void test() { 
    driver.get("the-internet.herokuapp.com/javascript_alerts");     
    WebElement element=driver.findElement(By.id("//button[text()='Click for JS Alert']")); 
    element.click(); 
}