Here is one thing I would want: a correspondent Graph-ET functionality to make something like this EyeSee script work as in the first attached picture.
renderer := ESDiagramRenderer new.
grouped := { #item1->{10 . 12 . 11 . 14 } . #item2-> { 1 . 1 . 20 } .
#item3->{ 1 . 1 . 1 . 1 . 1} }.
diag := (ESVerticalBarDiagram new)
identifier: [:each | each key ];
y: [:each | each value size];
yAxisLabel: 'Count';
valueAxis;
rightYAxis;
defaultColor: Color veryVeryLightGray;
axisColor: Color veryVeryLightGray;
models: grouped;
rotatedLabels: true;
yourself.
diag2 := (ESVerticalBarDiagram new)
y: [:each | each value sum];
regularAxis;
yAxisLabel: 'Sum';
gapFraction: 2 / 3;
defaultColor: (Color red);
axisColor: (Color red);
models: grouped;
yourself.
(renderer compositeDiagram)
add: diag;
add: diag2.
renderer open
[image: Inline image 2]
The best I could produce with Graph-ET is this (I commented out the message
to which I did not find a correspondent):
builder := GETDiagramBuilder new.
grouped := { #item1->{10 . 12 . 11 . 14 } . #item2-> { 1 . 1 . 20 } .
#item3->{ 1 . 1 . 1 . 1 . 1} }.
diag := (GETVerticalBarDiagram new)
"identifier: [:each | each key ];"
y: [:each | each value size];
yAxisLabel: 'Count';
valueAxisLine;
"rightYAxis;"
color: Color veryLightGray;
"axisColor: Color veryLightGray;"
models: grouped;
"rotatedLabels: true;"
yourself.
diag2 := (GETVerticalBarDiagram new)
y: [:each | each value sum];
regularAxis;
yAxisLabel: 'Sum';
"gapFraction: 2 / 3;"
color: (Color red);
"axisColor: (Color red);"
models: grouped;
yourself.
(builder compositeDiagram)
add: diag;
add: diag2.
builder open
[image: Inline image 4]
Cheers,
Doru
On Thu, Jan 2, 2014 at 7:24 PM, Alexandre Bergel <alexandre.ber...@me.com>wrote:
> Hi!
>
> Daniel is looking for usage scenarios with GraphET. It would be great to
> hear about your need.
> Currently, we will work on:
> - PDF Export using Artefact
> - support for legend
> - smarter way to put labels on axis
>
> Anything else?
>
> Cheers,
> Alexandre
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
>
--
www.tudorgirba.com
"Every thing has its own flow"
<<Screenshot 2014-01-04 22.36.40.png>>
<<Screenshot 2014-01-04 22.31.57.png>>
