有没有一种简单的方法可以将解释顶点颜色的图例添加到R中的fruchterman reingold绘图中？

我有一个fruchterman-reingold图，其中有20个随机学生的课外活动，顶点颜色基于他们在相关数据集中的最终成绩（数字，范围从0-20）。有没有一种方法可以显示一个图例来打印每个顶点颜色的范围

library(igraph)

a <- graph.adjacency(sport,mode="undirected")

plot(a,layout=layout.fruchterman.reingold, vertex.size=6, vertex.color=portsmall$G3)

库（igraph）
a您只需使用
图例
功能即可。例如：

legend("top",legend=c(1,2,3),fill=c("red","green","blue"))

您需要计算出参数的精确性质，因为我们没有您的数据，所以无法猜测。有关更多信息，请阅读
图例的文档
 
graph.adjancy
不是base R中的函数。您可以添加您正在使用的软件包的名称以及可复制的示例吗？该软件包是igraph，您需要什么样的可复制示例（这样我可以确保提供所有内容）？有一篇关于的帖子，也有一篇关于的帖子。