Add Edges to a Network Object
Add one or more edges to an existing network object.
add.edge(x, tail, head, names.eval = NULL, vals.eval = NULL, edge.check = FALSE, ...) add.edges(x, tail, head, names.eval = NULL, vals.eval = NULL, ...)
x |
an object of class |
tail |
for |
head |
for |
names.eval |
for |
vals.eval |
for |
edge.check |
logical; should we perform (computationally expensive) tests to check for the legality of submitted edges? |
... |
additional arguments |
The edge checking procedure is very slow, but should always be employed when
debugging; without it, one cannot guarantee that the network state is
consistent with network level variables (see
network.indicators). For example, by default it is possible to
add multiple edges to a pair of vertices.
Edges can also be added/removed via the extraction/replacement operators. See the associated man page for details.
Invisibly, add.edge and add.edges return pointers to
their modified arguments; both functions modify their arguments in place..
add.edges and add.edge were converted to an S3 generic
funtions in version 1.9, so they actually call add.edges.network and
add.edge.network by default, and may call other versions depending on
context (i.e. when called with a networkDynamic object).
Carter T. Butts buttsc@uci.edu
Butts, C. T. (2008). “network: a Package for Managing Relational Data in R.” Journal of Statistical Software, 24(2). https://www.jstatsoft.org/v24/i02/
#Initialize a small, empty network
g<-network.initialize(3)
#Add an edge
add.edge(g,1,2)
g
#Can also add edges using the extraction/replacement operators
#note that replacement operators are much slower than add.edges()
g[,3]<-1
g[,]
#Add multiple edges with attributes to a network
# pretend we just loaded in this data.frame from a file
# Note: network.edgelist() may be simpler for this case
elData<-data.frame(
from_id=c("1","2","3","1","3","1","2"),
to_id=c("1", "1", "1", "2", "2", "3", "3"),
myEdgeWeight=c(1, 2, 1, 2, 5, 3, 9.5),
someLetters=c("B", "W", "L", "Z", "P", "Q", "E"),
edgeCols=c("red","green","blue","orange","pink","brown","gray"),
stringsAsFactors=FALSE
)
valueNet<-network.initialize(3,loops=TRUE)
add.edges(valueNet,elData[,1],elData[,2],
names.eval=rep(list(list("myEdgeWeight","someLetters","edgeCols")),nrow(elData)),
vals.eval=lapply(1:nrow(elData),function(r){as.list(elData[r,3:5])}))
list.edge.attributes(valueNet)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.