ng_2d_myplot: Visualization instruction for 2d scatterplots on a user...

In RnavGraph: Using Graphs as a Navigational Infrastructure

Description

Visualization instruction for a navGraph session that link the nodes of a navigation graph to 2d scatterplots and the edges to a 3d rigid rotation or a 4d transition.

navGraph will call at any bullet state change a function the user defines in the global environment.

The executed function should contain plot instruction and have any subset of these arguments

argument	description
x	x-coordinate
y	y-coordinate
group	group slot from NG_data object
labels	labels slot from NG_data object
order	order of points. In 3d rigid rotation, the order increases with the distance of a the point from the viewer.
from	node name the bullet moves from
to	node name the bullet moves to
percentage	in between percentage of bullet
data	data name of NG_data object

Usage

ng_2d_myplot(data, graph, fnName, device = "base", scaled = TRUE)

Arguments

data	NG_data object.
graph	NG_graph object.
fnName	Character sting of the function name defined in the global environment .GlobalEnv. If a function with the name fnName.init also exists, it gets called to initialize the plots.
device	One of the following choices: "base", "grid", "ggplot2", "lattice" or "rgl".
scaled	Logical. If TRUE, scaled x and y coordinates get passed to the function fnName which lie within the rectangle defined by (-1,-1) and (1,1).

Note

Note that the base graphic device (including grid, ggplot2 and the lattice device) don't have double buffering implemented in Linux and OSX but in Windows they have. Hence, in Windows you will get smooth plots. But in OSX the plots only flush to the screen after a certain idle time from writing data to the device. In Linux, the device gets updated after every plot command but the user will experience a white flickering from redrawing the plot.

Author(s)

Adrian Waddell and R. Wayne Oldford

See Also

navGraph, ng_data, ng_graph, ng_get-methods, ng_set-methods, ng_2d

Examples

library(grid)

## NG_data
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))

## NG_graph
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')

## initialization plot
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))
}

## update plot
myPlot <- function(x,y,group,labels,order) {
  print(order)
	grid.edit("dataSymbols",
           x = unit(x,"native"),
           y = unit(y,"native"))
      }

## Visualization instruction
viz1 <- ng_2d_myplot(ng.iris,ng.lg,fnName = "myPlot",
           device = "grid", scaled=TRUE)

## navGraph session
nav <- navGraph(ng.iris,ng.lg, viz1)

RnavGraph documentation built on May 29, 2017, 4:18 p.m.