1

我有一个 csv 格式的数据集。我想创建一个网络对象并用这个数据集制作一个动画。我在 R 中编写了一个示例代码来执行此操作。

我想要的是突出动画中的某些节点（4,7）并在动画中添加图例，提及（4,7）这些节点的重要性。任何解决此问题的建议将不胜感激。数据集附上 ::: raw_data

#Removing the saved list
rm(list = ls(all.names = T))
#loading libraries
library(networkDynamic)
#loading data
raw_data <- read.csv("arranged_data1.csv",header = TRUE) 
timeData<-read.csv("arranged_data1.csv",header = TRUE)
#arranging data--------------------"onset"---beginning time of interaction:::"terminus"-----end of interaction
timeData$onset <- timeData$onset
timeData$terminus <- timeData$terminus
#finding the unique ant ids---------------"tail"--from where the interaction begins:::"head"--to where is the interaction
unique_ant_ids<-unique(c(timeData$tail,timeData$head))
#covert ids
timeData$head<- match(timeData$head,unique_ant_ids)
timeData$tail<- match(timeData$tail,unique_ant_ids)
#converting to network dynamic object
network_obj<-networkDynamic(edge.spells=timeData)
library(ndtv)
compute.animation(network_obj)
saveVideo(render.animation(enronDyn))
4

0 回答 0