inst/examples/barchart.R

In DescribeDisplay: An Interface to the 'DescribeDisplay' 'GGobi' Plugin

display <- list(version='1.0.0',colormap = list(name='Set1 9',
ncolors=9,
type=3,
system='rgb',
backgroundColor = c(0.200,0.200,0.200),
hiddenColor = c(0.500,0.500,0.500),
accentColor = c(1.000,1.000,1.000),
foregroundColors = list(c(0.596,0.306,0.639),c(0.969,0.506,0.749),c(0.894,0.102,0.110),c(0.216,0.494,0.722),c(0.302,0.686,0.290),c(1.000,0.498,0.000),c(0.651,0.337,0.157),c(0.600,0.600,0.600),c(1.000,1.000,0.200))),
title='',type='barchart',nplots=1,
plots = list(list(type='barplot',points = list(x = c(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3),
color = c(2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
hidden = c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
),
params = list(label='species',levelnames = c('Concinna ',
'Heptapot. ','Heikert. '),
levelvalues = c(0,
1,2)
)
)),
showMissing=1,showPoints=1,showDirectedEdges=0,showUndirectedEdges=0,showArrowheads=0)