r - Set color for segments in ggnet -

-

i hvar following data set:

structure(c(2l, 6l, 2l, 6l, 7l, 7l, 2l, 7l, 6l, 8l, 8l, 4l, 8l,  2l, 9l, 8l, 7l, 6l, 9l, 1l, 9l, 4l, 9l, 3l, 2l, 10l, 9l, 10l,  8l, 10l, 7l, 6l, 10l, 1l, 2l, 12l, 9l, 8l, 12l, 1l, 11l, 10l,  2l, 44l, 79l, 10l, 8l, 47l, 45l, 51l, 9l, 11l, 74l, 75l, 77l,  69l, 75l, 77l, 78l, 2l, 44l, 44l, 46l, 46l, 8l, 6l, 1l, 1l, 6l,  7l, 1l, 4l, 7l, 8l, 8l, 1l, 4l, 8l, 3l, 8l, 8l, 9l, 9l, 9l, 1l,  9l, 5l, 9l, 3l, 9l, 9l, 9l, 10l, 8l, 10l, 7l, 10l, 10l, 1l, 10l,  10l, 9l, 12l, 12l, 1l, 12l, 12l, 12l, 12l, 7l, 7l, 44l, 44l,  44l, 44l, 44l, 44l, 44l, 44l, 44l, 44l, 7l, 7l, 7l, 7l, 44l,  10l, 9l, 42l, 43l, 46l, 46l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l,  1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l,  1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, -1l, 1l, 1l, 1l, 1l, 1l,  1l, 1l, 1l, 1l, 1l, -1l, 1l, 1l, 1l, -1l, -1l, 1l, 1l, 1l, 1l,  1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, -1l), .dim = c(66l,  3l), .dimnames = list(null, c("from", "to", "impact")))

the data set indicates, connection between , positive (1) or negative (-1) impact.

i plot network graph ggnet (or ggplot2) plot graph.

so far have done following steps:

library(network) library(ggplot2) library(ggnet) library(grid)  net <- network(df2[,c(1,2)], directed = false)  ggnet(net, mode = 'kamadakawai', size = 6, alpha = .5, label.nodes=f, segment.alpha = 0.5, color = "black") +   theme(legend.position = "none") +   theme(plot.margin = unit(c(0.1,0.1,0.1,0.1), "cm"))

this lead result: enter image description here

i wondering how colorize edges based on impact in dataset (1 = green , -1 = red). wondering why there many unconnected nodes...

can me this?

thanks lot.

first, using ggally::ggnet available through cran. believe equivalent on github.

library(network) library(ggally) library(ggplot2) # dependencies library(grid) library(sna) library(intergraph)

the reason have many unconnected nodes in network diagram because node names have supplied not unbroken sequence of integers. example, if supply edge between nodes named 1 , 10, network() assume presence of 8 unconnected nodes names 2:9. example,

netwk1 <- network(cbind(1,2), directed = f) get.vertex.attribute(netwk1, attrname="vertex.names") netwk2 <- network(cbind(1,10), directed = f) get.vertex.attribute(netwk2, attrname="vertex.names")

so if convert node names unbroken sequence, lose unconnected nodes. like:

df2[,1:2]=as.numeric(as.factor(df2[,c(1,2)])) net <- network(df2[,c(1,2)], directed = f) ggnet(net, mode = 'kamadakawai', size = 6, alpha = .5, label.nodes=t, segment.alpha = 0.5, color = "black") +   theme(legend.position = "none") +   theme(plot.margin = unit(c(0.1,0.1,0.1,0.1), "cm"))

you can color edges segment.color argument in ggnet() :

edge_color = ifelse(df2[,3]==-1, "red", "green") ggnet(net, mode = 'kamadakawai', size = 6, alpha = .5, segment.color=edge_color, label.nodes=t, segment.alpha = 0.5, color = "black") +   theme(legend.position = "none") +   theme(plot.margin = unit(c(0.1,0.1,0.1,0.1), "cm"))

Comments

Post a Comment

Popular posts from this blog

java - Run a .jar on Heroku -

-
i trying run .jar file on heroku, , can't find instructions anywhere on how this. have read wants me compile uploading heroku. possible, , if is, how this? if helps, trying run minecraft craftbukkit server, , don't have pom.xml file yet. you didn't provide details i'll try give , people reaches question way it. first of all, create heroku account , create heroku application (assumed have done that). second, need generate application jar , upload heroku. so, open terminal , install heroku cli (assuming unix terminal): $ sudo npm install -g heroku-cli you need have npm , nodejs installed, can check link: https://www.digitalocean.com/community/tutorials/how-to-install-node-js-on-ubuntu-16-04 once done that, can use npm update node version acceptable heroku-cli: $ sudo npm install -g n $ sudo n 7.10.0 and run: $ sudo npm install -g heroku-cli in order deploy jars, need install deploy plugin: $ sudo heroku plugins:install heroku-cli-deploy ...
Read more

java - Jtable duplicate Rows -

-
Image
when add new rows in jtable duplicate rows many times this method update jtable public final void tableaucomande(){ ((defaulttablemodel)tabcommande.getmodel()).getdatavector().clear(); session s=hibernateutil.getsessionfactory().opensession(); criteria cr1= s.createcriteria(commande.class); list <commande> lcs=cr1.list() ; criteria cr2= s.createcriteria(lignecommande.class); list <lignecommande> lck=cr2.list() ; if(lcs.size()!=0 && lck.size()!=0) { (commande lc:lcs) { for(lignecommande lig:lck){ ((defaulttablemodel)tabcommande.getmodel()).addrow(new object[]{ lc.getid_cmd(),lc.getnumcmd(),lc.getdate_cmd(),lc.getclient().getnomprenom(), lig.getproduit().getlib_prd(),lig.getquantite(),lig.getproduit().getid_prd() }); } } // tabcommande.setrowselectioninterval(tabcommande.getrowcount()-1,tabcommande.getrowcount()-1); } } this code add add data rows displaye...
Read more

validation - How to pass paramaters like unix into windows batch file -

-
i need pass various parameters .cmd file unix format file.cmd -configuration=value -source=value -flag but, try this: startlocal @echo off cls setlocal set cmdline=%* set configuration= set source= set badargs= set validation= goto main :splitargs echo splitargs(%*) if "%*" neq "" ( /f "tokens=1,2,* delims== " %%i in ("%*") call :assignkeyvalue %%i %%j & call :splitargs %%k ) goto :eof :assignkeyvalue echo assignkeyvalue(%1, %2) if /i %1==-configuration ( set configuration=%2 ) else if /i %1==-source ( set source=%2 ) else ( rem append unrecognised [key,value] badargs echo unknown key %1 set badargs=%badargs%[%1, %2] ) goto :eof :validate echo validating set validation=fail if defined configuration ( echo -configuration ok if defined source ( echo -source ok if not defined badargs ( set validation=success ) ) ) goto :eof :main cl...
Read more