ここでこのトーラスを描画する必要があります (3D オブジェクトを取得するために水平と垂直の辺を接続する場所です。iGraph パッケージには、少なくともランダムな幾何学的グラフが含まれています。詳細はこちら ですが、この種の詳細なトーラスを以下に描画するためのものではないようです。
R: 少しトーラスに見えますが、ラベルや装飾などはありません
d <- 1e6
R <- 9
r <- 2
a <- 0:(d*pi)/30
b <- 0:(d*pi)/40
plot3d(x = (R + r*cos(a)) * cos(b),
y = (R + r*cos(a)) * sin(b),
z = r * sin(a))
おそらく関連している
インスピレーションを得るためのハイエンド ソフトウェアの例