как указать метки вершин в R

У меня есть матрица, как показано ниже:

          jerry    peter    king
 jerry     1       0        0    
 peter     0       1        0    
 king      1       1        1              

Теперь я пытаюсь нарисовать стоящий график для матрицы с кодом ниже:

t <- read.table("../data/table.dat");
adjm <- data.matrix(t);
g1 <- graph.adjacency(adjm,add.colnames=NULL);
plot(g1, main="social network", vertex.color="white", edge.color="grey", vertex.size=8,
     vertex.frame.color="yellow");

Метки вершин - это id, поэтому мой вопрос: как мне установить метки вершин с помощью dimnames матрицы?

Я пробовал использовать код

vertex.label=attr(adjm,"dimnames")

, но получился неправильный график.