Nothing
require(RnavGraph) || stop("RnavGraph library not available")
require(grid) || stop("grid library not available")
local({
ng.iris <- ng_data(name = "iris", data = iris[,1:4],
shortnames = c('s.L', 's.W', 'p.L', 'p.W'),
group = iris$Species,
labels = substr(iris$Species,1,2))
V <- shortnames(ng.iris)
G <- completegraph(V)
LG <- linegraph(G)
LGnot <- complement(LG)
ng.lg <- ng_graph(name = '3D Transition', graph = LG, layout = 'circle')
ng.lgnot <- ng_graph(name = '4D Transition', graph = LGnot, layout = 'circle')
## Note the plotting functions have to be saved in the .GlobalEnv environment
## Note, currently order arguments does not work correctly
myPlot.init <<- function(x,y,group,labels,order) {
pushViewport(plotViewport(c(5,4,2,2)))
pushViewport(dataViewport(c(-1,1),c(-1,1),name="plotRegion"))
grid.points(x,y, name = "dataSymbols")
grid.rect()
grid.xaxis()
grid.yaxis()
grid.edit("dataSymbols", pch = 19)
grid.edit("dataSymbols", gp = gpar(col = group))
}
myPlot <<- function(x,y,group,labels,order) {
grid.edit("dataSymbols", x = unit(x,"native"), y = unit(y,"native"))
}
viz1 <- ng_2d_myplot(ng.iris,ng.lg,fnName = "myPlot" , device = "grid",scaled=TRUE)
options(device.ask.default = FALSE) ## omit hit return to see next plot message
nav <- navGraph(ng.iris,ng.lg, viz1)
})
cat(paste("\n\nThe source code of this demo file is located at:\n",system.file("demo", "ng_2d_myplot_grid.R", package="RnavGraph"),"\n\n\n"))
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.