如何在R中的简单网络图上添加标签？提供的代码

我正在使用以下代码加载弗洛伦汀数据集，并试图形象化网络：

library("ergm")
data("florentine")
require(intergraph)
require(igraph)
marriages <- asIgraph(flomarriage)

# Calculate degree centrality
V(marriages)$degree <- degree(marriages)

# Plot
plot(marriages, 
     vertex.label.cex = .6, 
     vertex.label.color = 'blue')

结果：

网络

问题：节点具有数字，而不是数据集中存在的族的名称（称为vertex.names）。如何用名称替换节点号？例如，我可以使用标签功能吗？