我有一个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))