ryamada22 https://blog.hatena.ne.jp/ryamada22/ ryamadaの遺伝学・遺伝統計学メモ https://ryamada22.hatenablog.jp/ 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) edgeM… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20100126%2F1264481341" title="Rで完全グラフを描く - ryamadaの遺伝学・遺伝統計学メモ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2010-01-26 13:49:01 rich https://ryamada22.hatenablog.jp/entry/20100126/1264481341 1.0 100%