library(igraph)

example graph

g <- sample_gnp(10, 3/10)
plot(g)

betweenness(g)

##  [1]  0.0000000  4.5000000  0.3333333  7.2500000  0.0000000  4.0833333
##  [7] 11.0833333  0.0000000  3.4166667  1.3333333

degree preserving

g_re <- rewire(g, with = keeping_degseq(niter = vcount(g) * 10))
plot(g_re)

betweenness(g_re)

##  [1]  0.7000000  8.4500000  0.0000000  7.8166667  0.0000000  2.2833333
##  [7] 11.4666667  0.8333333  0.4500000  1.0000000