在R中是否有使用networkDynamic包突出显示特定节点和边的方法？

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

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

#删除已保存的列表
rm（list=ls（all.names=T））
#加载库
图书馆（网络动态）
#加载数据
原始数据您可以使用visNetwork软件包，因为这将允许您单击节点并高亮显示特定节点。我不想单击并高亮显示节点。我想在前面指定节点并将其保存为视频。您可以使用visNetwork软件包，因为这将允许您单击节点并高亮显示特定节点。我不想单击并高亮显示节点。我想先指定节点，然后将其另存为视频
#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))