Nothing
#$HeadURL: file:///srv/svn/sintro/pkg/sprof/demo/igraphKK2.R $
#$Id: igraphKK2.R 235 2013-08-30 20:23:25Z gsawitzki $
#$Revision: 235 $
#$Date: 2013-08-30 22:23:25 +0200 (Fri, 30 Aug 2013) $
#$Author: gsawitzki $
# source('~/projects/rforge/sintro/pkg/sprof/tests/igraphKK.R', chdir = TRUE)
# setwd("")
#! To Do
#!
library(sprof)
if (require("igraph")) {
data(sprof01lm)
sprof <- sprof01lm
as_igraph_sprof <- function(sprof, layoutfun, params=NULL,...){
adj <- adjacency(sprof)
adj[adj!=0] <-1
sprof_igraph <- graph.adjacency(adj)
sprof_igraph <- set.graph.attribute(sprof_igraph, "layout",
layoutfun(sprof_igraph,params=params,...),...)
V(sprof_igraph)$color <- "yellow"
E(sprof_igraph)$color <- "#0000FF20"
E(sprof_igraph)$width <- c(1,2)
return(sprof_igraph)
}
#<<>>=
sprof_ig_auto <- as_igraph_sprof(sprof, layout.kamada.kawai)
plot(sprof_ig_auto,
main=paste0("igraph kamada.kawai layout\n", sprof$info$id))
legend("topleft",
legend= paste0("class: ",class(sprof_ig_auto)),
bg="#FFFFE040",
seg.len=0
)
} else warning("could not load igraph", immediate=TRUE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.