如何解决绘制图形时出现“顺序错误y:'orderVector1'中未实现的类型'list'”
的 role 列时出错说明: 目标是根据 D1 数据框的列角色 [F,S,A] 在 V2 中设置颜色。 可视化 V2 由具有 3 列和 300 多行的 D2 数据框组成
没有颜色编码的可视化如下:
代码片段如下:
library(igraph)
# input data
edges <- read.csv(
file.choose(),header = TRUE
)
head(edges)
# making adjacency matrix
adj_matrix <- as.matrix(get.adjacency(graph.data.frame(edges)))
head(adj_matrix)
class(adj_matrix)
# converting to igraph object
g=graph.adjacency(adj_matrix,mode="undirected")
V(g)
E(g)
# Generating Centrality measures
degree(g) #degree centrality
betweenness(g) #betweeness centrality
closeness(g) #closeness centrality
evcent(g)
#plotting the graph
color_graph <- read.csv( file.choose(),header = TRUE)
#head(color_graph)
# making adjacency matrix
color_graph_adj_matrix <- as.matrix(get.adjacency(graph.data.frame(color_graph)))
head(color_graph_adj_matrix)
# converting to igraph object
color_graph=graph.adjacency(color_graph_adj_matrix,mode="undirected")
#Creating a vector of color
library(RColorBrewer)
color_set <- brewer.pal(3,"Set1")
vertex_color <- color_set[as.numeric(as.factor(V(color_graph)$role))] #error_line
head(vertex_color)
plot(g,vertex.color)
graph.density(g) #get a density of graph
diameter(g,directed=FALSE,weights = NA)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。