igraphパッケージのグラフプロットが見づらい

解決したいこと

社会科学のためのデータ分析入門(下)という教材を元にネットワークデータの分析をRstudioで行っています。
igraphパッケージで作成したネットワークデータのプロットが、円と名前がかぶってしまって見にくいです。どうすれば教材のようなグラフにできるでしょうか。

発生している問題・エラー

install.packages("igraph")
library(igraph)
a <- as.matrix(florence)
florence <- graph.adjacency(a , mode = "undirected"
, diag = FALSE)
plot(florence) #グラフをプロットする

実際にしたいグラフのイメージ図(教材)

普段はチャットGPT4で質問して教材を進めているのですが、問いの立て方が悪いのかうまくいかずよくわかりません。
どなたか教えていただけますと幸いです。