Этикетки график участка сдвиг вправо при использовании формата()

Question

Пожалуйста, обратите внимание следующее

g <- graph.ring(10) 
V(g)$label[1:5] <- 10 
V(g)$label[6:10] <- 100000000 
plot(g, layout=layout.circle, vertex.label=format(V(g)$label, big.mark=",", scientific=FALSE)) 

, какой выход

Интересно, почему метки первых 5 вершин сдвига вправо и как вернуть их в центр узла.

Answer 1

ли больше делать с format чем igraph:

format(V(g)$label, big.mark=",", scientific=FALSE) 
# [1] "   10" "   10" "   10" "   10" "   10" 
# [6] "100,000,000" "100,000,000" "100,000,000" "100,000,000" "100,000,000" 

Просто удалите пробелы и метки будут сосредоточены:

sub("[ ]+", "", format(V(g)$label, big.mark=",", scientific=FALSE)) 
# [1] "10"   "10"   "10"   "10"   "10"   
# [6] "100,000,000" "100,000,000" "100,000,000" "100,000,000" "100,000,000"