r - arranging matrix - network graphs -


i trying make network graph, using function gplot library(sna). graph represent links between different fields. have following data:

mtm <- c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1) fi <- c(0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0) mcli <- c(0,0,1,0,0,1,1,1,0,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1) mat1 <- data.frame(mtm,fi,mcli) mat1 <- as.matrix(mat1)

where "mtm", "fi" , "mcli" "fields of interest" , every row different project has some/any/none of fields in common. how transform these data this? 

matx:           mtm   fi   mcli mtm     10    0   1 fi       0    1   1 mcli    10    1   17

i interested in representing -in network graph- fields "nodes", , connections "edges". helpful in representing "popular" , interconnected fields. possible these data?

thanks in advance!

edit: came across this solution, ok want:

library(igraph) g<-graph.incidence(as.matrix(mat1),weighted=true,directed=false) summary(g) plot(g)

here 1 way make network graph data each node "field of interest". note have made symmetrical adjacency matrix original data doesn't entirely match desired matrix output.

library(igraph)  # use matrix multiplication create symmetrical adjacency matrix. adj_mat = t(mat1) %*% (mat1)  # 2 ways show edge weights. png("igraphs.png", width=10, height=5, units="in", res=200) par(mfrow=c(1, 2))  g1 = graph.adjacency(adj_mat, mode="undirected", diag=false, weighted=true) plot(g1, edge.width=e(g1)$weight, vertex.size=50)  g2 = graph.adjacency(adj_mat, mode="undirected", diag=false) plot(g2, vertex.size=50)  dev.off()

enter image description here


Comments

Post a Comment

Popular posts from this blog

linux - xterm copying to CLIPBOARD using copy-selection causes automatic updating of CLIPBOARD upon mouse selection -

i've tried various ways coerce xterm (versions 285 , 292) copy selection clipboard clipboard whenever press ctrl-shift-c. promising way far has been, in ~/.xresources, put this: xterm*vt100.translations: #override \ ctrl shift <keypress> c: copy-selection(clipboard) \n\ ctrl shift <keypress> v: insert-selection(clipboard) ctrl-shift-v works perfectly, copying has nuance... if restart xterm, highlighting text puts things in primary clipboard; expected, proper, default behavior. if hit ctrl-shift-c, copies current selection clipboard clipboard. the bug, however, if highlight text after first time pressed ctrl-shift-c, you'll see highlighting copies both primary and clipboard. cannot figure out how stop xterm updating clipboard upon selection... , doesn't make sense me in first place. i said, @ specific point in time, copy selection clipboard... yet starts updating automatically upon selection after doing once... anyone have workaround...
Read more

c++ - qgraphicsview horizontal scrolling always has a vertical delta -

Image
i've subclassed qgraphicsview custom canvas used in cad application. i've reimplemented qgraphicsview::wheelevent check keyboard modifiers control key and, if control key pressed, zoom. i'm trying implement horizontal scroll when user holds shift , uses wheel. the problem i'm having horizontal scrolling always scrolls 0.279. not huge problem, hugely annoying , points else being wrong. so, here questions: is right way implement horizontal scrolling? if not, is? how eliminate delta of 0.279? thanks in advance. code , sample output below void myview::zoom(int delta) { double factor = pow(1.2, delta/abs(delta)); this->scale(factor, factor); } void myview::scrollhorizontal(int level) { qpointf center = maptoscene(viewport()->rect().center()); qdebug() << "center: " << center.x() << ", " << center.y(); centeron(qpointf(center.x() - level, center.y())); } void myview::wheelevent(qwheeleve...
Read more