單一社區

Question

我的代碼

library(igraph) 
library(igraphdata) 

data("karate") 

g <- karate 

# for reproducibility 
set.seed(23548723) 

network_layout <- layout_with_fr(g) 
trimmed_network <- delete.edges(g, which(E(g)$weight < 4)) 
communities <- cluster_louvain(trimmed_network) 

plot(communities, trimmed_network, layout=network_layout) 

該位的個人色彩和它產生

我想在單一頂點禁用着色（color="white"和mark.groups=NULL）頂點社區（length 1），我知道你可以通過使用$color來操作「正常」圖的顏色，但我沒有fi nd igraph文檔中的任何提示如何處理每個社區。

也有不使用社區

plot(trimmed_network, ...) 

繪製從而使用圖形的顏色選擇，但後來我就輸了組標記。

我怎樣才能改變基於length(communities[1]) == 1

Answer 1

標識頂點每組> 1，並傳遞那些爲一個列表到mark.groups。這有點煩瑣，但它有效。

r <- rle(sort(communities$membership)) 
x <- r$values[which(r$lengths>1)] 
y <- r$values[which(r$lengths==1)] 
cols <- communities$membership 
cols[which(cols %in% y)] <- "white" 
grps <- lapply(x, function(x) communities[[x]]) 
grps <- lapply(1:length(grps), function(x) which(V(g)$name %in% grps[[x]])) 
plot(communities, trimmed_network, layout=network_layout, 
col = cols, mark.groups = grps) 

Answer 2

我們需要找到社區的數字標識符，只有一個成員，並設置這些單身社區成員的顏色爲「白色每個社區提供的色彩和組標記」。

# Get community membership 
memb = membership(communities) 

# Find number of members in each community 
tab = table(memb) 

# Set colors for each member. (Adjust these as desired) 
col = colors()[2:(length(memb)+1)] 

# But for members of communities of one, set the color to white 
singles = which(memb %in% as.numeric(names(tab)[tab==1])) 
col[singles] = "white" 

plot(communities, trimmed_network, layout=network_layout, col=col, mark.groups=NULL)