Nothing
## ----setup, include=FALSE-----------------------------------------------------
library(intergraph)
library(knitr)
set.seed(123)
## ----packages-----------------------------------------------------------------
library(intergraph)
library(network)
library(igraph)
## ----summarize-igraph---------------------------------------------------------
summary(exIgraph)
summary(exIgraph2)
## ----summarize-network--------------------------------------------------------
exNetwork
exNetwork2
## ----network2igraph-----------------------------------------------------------
# check class of 'exNetwork'
class(exNetwork)
# convert to 'igraph'
g <- asIgraph(exNetwork)
# check class of the result
class(g)
## -----------------------------------------------------------------------------
el.g <- get.edgelist(g)
el.n <- as.matrix(exNetwork, "edgelist")
identical( as.numeric(el.g), as.numeric(el.n))
## ----igraph2network-----------------------------------------------------------
net <- asNetwork(exIgraph)
## -----------------------------------------------------------------------------
el.g2 <- get.edgelist(exIgraph)
el.n2 <- as.matrix(net, "edgelist")
identical( as.numeric(el.g2), as.numeric(el.n2))
## ----attrmap-defaults---------------------------------------------------------
attrmap()
## ----attrmap-example-rules----------------------------------------------------
new_rule <- data.frame(type="vertex", fromcls="network", fromattr="na",
tocls="igraph", toattr=NA,
stringsAsFactors=FALSE)
# combine with the default rules
rules <- rbind( attrmap(), new_rule )
rules
## ----attrmap-example----------------------------------------------------------
(ig1 <- asIgraph(exNetwork))
(ig2 <- asIgraph(exNetwork, amap=rules))
# check if "na" was dropped
"na" %in% igraph::vertex_attr_names(ig1)
"na" %in% igraph::vertex_attr_names(ig2)
## ----asDF---------------------------------------------------------------------
l <- asDF(exIgraph)
str(l)
## ----show-edgedb--------------------------------------------------------------
l$edges
## ----show-vertexdb------------------------------------------------------------
l$vertexes
## ----fromdf-------------------------------------------------------------------
z <- asNetwork(l$edges, directed=TRUE, l$vertexes)
z
## ----showdata-code,eval=FALSE-------------------------------------------------
# layout(matrix(1:4, 2, 2, byrow=TRUE))
# op <- par(mar=c(1,1,2,1))
# # compute layout
# coords <- layout.fruchterman.reingold(exIgraph)
# plot(exIgraph, main="exIgraph", layout=coords)
# plot(exIgraph2, main="exIgraph2", layout=coords)
# plot(exNetwork, main="exNetwork", displaylabels=TRUE, coord=coords)
# plot(exNetwork2, main="exNetwork2", displaylabels=TRUE, coord=coords)
# par(op)
## ----showdata-pic, ref.label="showdata-code",echo=FALSE,fig.height=10,fig.width=10----
layout(matrix(1:4, 2, 2, byrow=TRUE))
op <- par(mar=c(1,1,2,1))
# compute layout
coords <- layout.fruchterman.reingold(exIgraph)
plot(exIgraph, main="exIgraph", layout=coords)
plot(exIgraph2, main="exIgraph2", layout=coords)
plot(exNetwork, main="exNetwork", displaylabels=TRUE, coord=coords)
plot(exNetwork2, main="exNetwork2", displaylabels=TRUE, coord=coords)
par(op)
## ----session_info-------------------------------------------------------------
sessionInfo()
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.