order vertices by degree

d <- degree(G)
p <- seq(1:length(V(G)))
i <- 1

for(dd in rev(levels(as.factor(d)))){
    for(pp in V(G)[d==dd]){
        p[pp] <- i
        i <- i+1
    }
}

G <- permute.vertices(G,p)