inst/examples/histogram.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='histogram',points = list(x = c(131,134,137,127,118,118,134,129,131,115,143,131,130,133,130,131,127,126,140,121,136,141,119,130,113,121,115,127,123,119,120,131,127,116,123,135,132,131,116,121,146,119,127,107,122,114,131,108,118,122,127,125,124,129,126,122,116,123,122,123,109,124,114,120,114,119,111,112,130,120,119,114,110,124),
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='tars2',breaks = c(107.000,110.900,114.800,118.700,122.600,126.500,130.400,134.300,138.200,142.100)
)
)),
showMissing=1,showPoints=1,showDirectedEdges=0,showUndirectedEdges=0,showArrowheads=0)