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
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
Cheers,
Doru