I don’t know what your reason is, but here are two options:
Option 1: change the order of your formula when creating a chart:
g1<- graph.formula(1-2,1-3,2-3,2-4,5-6,7-8,8-9,8-10,2-7,3-4,3-6,3-7,3-8,3-9,3-10,4-8,4-9,5-7,5-8,6-7,6-8,6-9,6-10,7-9)
V(g1)$name
Option 2: Extract edgelist and create a new chart with this:
edges <- structure(c("1", "1", "2", "2", "2", "3", "3", "3", "3", "3",
"3", "4", "4", "5", "5", "5", "6", "6", "6", "6", "7", "7", "8",
"8", "2", "3", "3", "4", "7", "4", "6", "7", "8", "9", "10",
"8", "9", "6", "7", "8", "7", "8", "9", "10", "8", "9", "9",
"10"), .Dim = c(24L, 2L))
g2 <- graph(edges=edges)
V(g2)$name
Both outputs:
[1] "1" "2" "3" "4" "5" "6" "7" "8" "9" "10"