小弟有一个CSV档案需要画图,然后我是使用RStudio去画的
The graph contains nodes and edges.
图是包括节点(node)和边(edge)
因此我需要使用以下程式码画图
`start.time <- Sys.time()
#Loading Packages
library(igraph)
library(readr)
library(haven)
#import data
df = read.csv('../../Pre_Draw_Graph_for_R.csv', header = TRUE, encoding = 'UTF-8')
#Creating an iGraph Style Edge List
df_Edge_List <- df
#Creating Graph
df_graph = graph.data.frame(df_Edge_List, directed = TRUE)
#df Network: First Try
#Layout Options
set.seed(3500)
layout1 <- layout.fruchterman.reingold(df_graph)
#Node or vertex Options: Color
V(df_graph)$color <- "yellow"
V(df_graph)[degree(df_graph, mode = "in") > 500]$color <- "red"
#Edge Options: Size
E(df_graph)$color <- "grey"
#Plotting
plot(df_graph, vertex.label=NA)
#plot(df_graph)
end.time <- Sys.time()
time.taken <- end.time - start.time
time.taken`
我是可以输出结果,但是结果有问题发生,里面的节点都非常窄,没办法清楚看到里面的结果:
我希望可以增加每个节点之间的距离,但是我用过很多种方法都无法成功的解决,我希望可以得到类似以下图片的结果,能够清楚看到每个节点的图。
希望大家能够帮到我,谢谢你们。