Rで完全グラフを描く

完全グラフは、すべての頂点間に辺のあるグラフです。
エッジを行列表現して、segments()関数を使って、こんな風に。

DrawPerfectGraph<-function(d=5){
#d:次数
#正d角形の頂点座標
k<-1:d
divk<-k/d
divk<-divk*2*pi
x<-cos(divk)
y<-sin(divk)
#プロット図を正方形にする
par(pin=c(2,2))
#点を打つ
plot(x,y,pch=20,cex=2)
#辺行列。対角成分=0の上三角TRUE行列にする
edgeMatrix<-matrix(rep(TRUE,d^2),nrow=d)
edgeMatrix[lower.tri(edgeMatrix,diag=TRUE)]<-FALSE
#TRUE成分の添え字を取り出す
Edges<-which(edgeMatrix,arr.ind=TRUE)
#線分を描く
segments(x[Edges[,1]],y[Edges[,1]],x[Edges[,2]],y[Edges[,2]])
}