[R][ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯åˆ†æž] ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯æ§‹é€ ã®è«¸æŒ‡æ¨™ - yokkunsã®æ—¥è¨˜ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯åˆ†æž (Rã§å¦ã¶ãƒ‡ãƒ¼ã‚¿ã‚µã‚¤ã‚¨ãƒ³ã‚¹ 8)ã®ç¬¬3ç« ã®å†…容 密度（density） グラフã«ãŠã„ã¦å¼µã‚‹ã“ã¨ã®å‡ºæ¥ã‚‹å…¨ã¦ã®ã‚¨ãƒƒã‚¸ã®æ•°ã«å¯¾ã™ã‚‹ã€å®Ÿéš›ã®ã‚¨ãƒƒã‚¸ã®æ•°ã®æ¯”率 例 データã®å…¥åŠ› library(igraph) A <- matrix(c( 0,1,1,1,1, 1,0,0,1,1, 1,0,0,0,0, 1,1,0,0,0, 1,1,0,0,0),nrow=5) B <- matrix(c( 0,1,1,1,1, 0,0,0,1,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0),nrow=5,byrow=T) g1 <- graph.adjacency(A, mode = "undirected") g2 <- graph.adjacency(B) Aã®ãƒ—ãƒãƒƒãƒˆ plot(g1) Bã®ãƒ—ãƒãƒƒãƒˆ plot(g2) 密度ã®è¨ˆç®— > graph.density(g
![[R][ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯åˆ†æž] ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯æ§‹é€ ã®è«¸æŒ‡æ¨™ - yokkunsã®æ—¥è¨˜](https://cdn-ak-scissors.b.st-hatena.com/image/square/89b1bdd2fb93554c87e4f098a07634f86265e8ae/height=288;version=1;width=512/https%3A%2F%2Fcdn.image.st-hatena.com%2Fimage%2Fscale%2F4074181787358f30811322279c2d031a73a97bb8%2Fbackend%3Dimagemagick%3Bheight%3D1300%3Bversion%3D1%3Bwidth%3D1300%2Fhttp%253A%252F%252Fgyazo.com%252F8b2e5f7b7ee4dad42822c55be85c7efe.png)
スモールワールド・ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯ã¨Webマーケティング | 実践ï¼Webマーケティング：Blog | ミツエーリンクス
社会ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯åˆ†æžç ”究会
Cytoscape + R + igraph
{{#tags}}- {{label}}
{{/tags}}