Warning! Igproj.com has expired. If this is your domain name you must renew it immediately before it is deleted and permanently removed from your account. To renew this domain name visit http://www.NameBright.com
igraphパッケージã®ä½¿ã„æ–¹ 1. グラフオブジェクトã®ä½œæˆã¨å–り扱ㄠ- ã‚‚ã†ã‚«ãƒ„丼ã¯ã„ã„よãª
è¿‘é ƒRã®igraphパッケージã§éŠã‚“ã§ã‚‹ã‚“ã ã‘ã©å‰²ã¨é¢ç™½ã„ã®ã§ä½¿ã„方を忘れãªã„ã†ã¡ã«ãƒ¡ãƒ¢ã£ã¦ãŠã． グラフã¯ãƒ—ãƒãƒƒãƒˆã—ãŸæ–¹ãŒç†è§£ã—ã‚„ã™ã„ã‚“ã ã‘ã©ã¨ã‚Šã‚ãˆãšä»Šå›žã¯ã‚°ãƒ©ãƒ•ã‚ªãƒ–ジェクトã®ä½œæˆã¨è¦ç´ ã¸ã®ã‚¢ã‚¯ã‚»ã‚¹ã¨ã‹ãã®è¾ºï¼Žãƒ—ãƒãƒƒãƒˆã¯æ¬¡å›žï¼Ž グラフã£ã¦ä½•ãžã¨ã‹ç”¨èªžã®æ„味ã¨ã‹ã¯ã‚°ãƒ©ãƒ•ç†è«– - Wikipedia． グラフオブジェクトã®ä½œæˆ 基本 エッジをベクトルã«ã¾ã¨ã‚ã¦graph()関数ã«ä¸Žãˆã‚‹ã“ã¨ã§ã‚°ãƒ©ãƒ•ã‚ªãƒ–ジェクトãŒä½œæˆã•ã‚Œã‚‹ï¼Žãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã§æœ‰å‘グラフ．有å‘，無å‘ã®åˆ¶å¾¡ã¯å¼•æ•°directedã«TRUEã‹FALSEを与ãˆã‚‹ã“ã¨ã§å¯èƒ½ï¼Žãƒ«ãƒ¼ãƒ—や多é‡ã‚¨ãƒƒã‚¸ã‚‚å«ã‚る事ãŒã§ãる． > ## エッジã®ä¸€è¦§ã‚’graph()関数ã«ä¸Žãˆã‚‹ > edge <- c(0,1, 0,2, 0,3, 1,2, 2,2, 1,3, 1,3) > g <- graph(edge, directed=FALSE) > g Ver
ï¼²ã®ã‚°ãƒ©ãƒ•ã‚£ãƒƒã‚¯ã‚¹
ã‚‚ã©ã‚‹ 複雑系ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯ クラスター係数ã®è¨ˆç®— ç„¡å‘グラフã«ãŠã‘ã‚‹ã‚るノードã®ã‚¯ãƒ©ã‚¹ã‚¿ãƒ¼ä¿‚æ•°ã¨ã¯ã€ãã®ãƒŽãƒ¼ãƒ‰ã¨ï¼ˆç›´æŽ¥ï¼‰ãƒªãƒ³ã‚¯ã®å¼µã‚‰ã‚Œã¦ã„るノード間ã«ãƒªãƒ³ã‚¯ãŒå¼µã‚‰ã‚Œã¦ã„る割åˆã®ã“ã¨ã€‚例ã€ãƒŽãƒ¼ãƒ‰Aã¯ãƒŽãƒ¼ãƒ‰B,C,Dã¨ãƒªãƒ³ã‚¯ã§çµã°ã‚Œã¦ãŠã‚Šã€B,C,Dã®é–“ã§ã¯B,Cé–“ã ã‘リンクãŒå¼µã‚‰ã‚Œã¦ã„ã‚‹ã¨ã™ã‚‹ã¨ã€ãƒŽãƒ¼ãƒ‰Aã®ã‚¯ãƒ©ã‚¹ã‚¿ãƒ¼ä¿‚æ•°ã¯3分ã®1（B,Dé–“ã¨C,Dé–“ã®ãƒªãƒ³ã‚¯ãŒå¼µã‚‰ã‚Œã¦ã„ãªã„ãŸã‚ã€B,C,Dé–“ã®å¯èƒ½ãªãƒªãƒ³ã‚¯3本ã®ã†ã¡ã€1本ã—ã‹ãƒªãƒ³ã‚¯ãŒãªã„）。 リンクリスト（片方å‘リンク）bbã¨ãƒŽãƒ¼ãƒ‰æ•°mを与ãˆã¦ã€ã™ã¹ã¦ã®ãƒŽãƒ¼ãƒ‰ã®ã‚¯ãƒ©ã‚¹ã‚¿ãƒ¼ä¿‚数を計算ã™ã‚‹ã€‚ clust = function(bb, m) { cl = rep(0,m); for(k in 1:m) { ed = sort(c(bb[which(bb[,1]==k),2], bb[which(bb[,2]==k),1])) # kを端点ã¨ã™ã‚‹ãƒª
igraphパッケージã®ä½¿ã„æ–¹ 2.グラフオブジェクトã®ãƒ—ãƒãƒƒãƒˆ - ã‚‚ã†ã‚«ãƒ„丼ã¯ã„ã„よãª
プãƒãƒƒãƒˆ igraphパッケージã«ã¯ã‚°ãƒ©ãƒ•ã‚ªãƒ–ジェクト(igraphクラス)をプãƒãƒƒãƒˆã™ã‚‹ãŸã‚ã®plot.igraph()関数ãŒç”¨æ„ã•ã‚Œã¦ã„る．勿論，使ã†å ´åˆã¯plot()関数ã«ã‚°ãƒ©ãƒ•ã‚ªãƒ–ジェクトを渡ã™ã ã‘ã§ã„ã„． > ## plot.igraph()ãŒç”¨æ„ã•ã‚Œã¦ã„ã‚‹ > g <- graph.tree(15) > plot.igraph(g) > ## plot()ã«igraphクラスã®ã‚ªãƒ–ジェクトを渡ã›ã°å‘¼ã³å‡ºã•ã‚Œã‚‹ > plot(g) デフォルトã§ã¯ãƒŽãƒ¼ãƒ‰ã®é…ç½®ã¯æ¯Žå›žå¤‰ã‚ã‚‹(後述)． レイアウト デフォルトã§ã¯ãƒ—ãƒãƒƒãƒˆã®éš›ã«ãƒŽãƒ¼ãƒ‰ã¯ãƒ©ãƒ³ãƒ€ãƒ ã«é…ç½®ã•ã‚Œã‚‹ï¼ŽãƒŽãƒ¼ãƒ‰ã®é…ç½®ã¯plot()ã®layout引数ã«ãƒŽãƒ¼ãƒ‰ã®åº§æ¨™ã‚’与ãˆã‚‹ã“ã¨ã§æ“作ã§ãã‚‹ãŒï¼Œã“ã®åº§æ¨™ã‚’アルゴリズムã«ã‚ˆã£ã¦æ±ºå®šã—出力ã™ã‚‹é–¢æ•°ãŒã„ãã¤ã‹ç”¨æ„ã•ã‚Œã¦ã„る．ã“れらã®é–¢æ•°ã¯layout.ã‹ã‚‰å§‹ã¾ã‚‹åå‰ã‚’æŒã£ã¦ã„る． > ## lay
1
ãŠçŸ¥ã‚‰ã›
障害
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
[R] Ceiling to the nearest ten?
R言語ã§çµ±è¨ˆè§£æžå…¥é–€ï¼š 散布図ã«ã‚ˆã‚‹ãƒ‡ãƒ¼ã‚¿ã®è¦–覚化　梶山　喜一郎
http://eau.uijin.com/advgraphs/axes.html
{{#tags}}- {{label}}
{{/tags}}