Nothing
#' Convience function to plot edges from \code{popgraph}
#'
#' This is a quick convienence function for plotting nodes and edges
#' on a normal R plot by iterating through edges and connecting
#' nodes.
#' @param graph An object of type \code{popgraph}
#' @return NULL
#' @author Rodney J. Dyer <rjdyer@@vcu.edu>
#' @export
overlay_popgraph <- function( graph ){
if( !is(graph,"popgraph"))
stop("This function only works by with a population graph object")
if( !("Longitude" %in% list.vertex.attributes(graph)))
stop("This function requires 'Longitude' to be a vertex attributed.")
if( !("Latitude" %in% list.vertex.attributes(graph)))
stop("This function requires 'Latitude' to be a vertex attributed.")
if( !("name" %in% list.vertex.attributes(graph)))
stop("This function uses the 'name' property of the graph and it is missing.")
coords <- cbind(V(graph)$Longitude, V(graph)$Latitude )
nodes <- V(graph)$name
K <- length(V(graph))
# plot the edges, one at a time.
A <- to_matrix(graph,mode="adjacency")
if( !("color" %in% list.edge.attributes(graph)))
E(graph)$color <- "red"
for( i in 1:K ) {
for( j in i:K) {
if( A[i,j] > 0 ){
x <- c(coords[i,1],coords[j,1])
y <- c(coords[i,2],coords[j,2])
lines(x,y,col=E(graph)$color )
}
}
}
# plot the nodes
if( !("color" %in% list.vertex.attributes(graph) ))
V(graph)$color <- "#dd7f4c"
points( coords, pch=16, col=V(graph)$color )
# add the names
text( coords, V(graph)$name , cex=.75)
}
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.