Grapher charter

Le 21 mars 2015 01:01, "Peter Uhnák" <[hidden email]> a écrit :
>
> Hi!
>
> Seeing your other (Grapher charting engine) post I wanted to look at it and it looks interesting. :)
>
> However I've encountered weird behavior - maybe because I'm not using in correctly.
>
> When you look at the bar chars they do not line up with the tick numbers at bottom.
>
> ​
> I have explicitly specified number of ticks (20). Interestingly if I change it (to 30) then it lines up but is moved to left by one (starts at zero instead of one - just by changing numberOfTicks).
>
>
> ​
>
>
>
> ​Here is the script I used to create it (the data is generated from another script)
> ================================
> data := {1->0.3024011554432208. 2->24.359090088463624. 3->17.660001805380034. 4->12.111843293013179. 5->7.624345549738219. 6->5.985963170247337. 7->4.740250947824517. 8->3.837560931576097. 9->3.0691460552446292. 10->2.819777938256003. 11->2.3334536920021667. 12->1.9915598483480772. 13->1.6970572305470302. 14->1.3089005235602094. 15->1.1847806463260515. 16->1.0640458566528253. 17->0.8891496660046939. 18->0.7244087380393573. 19->0.670247337064452. 20->0.5878768730817837}.
>
> y := [ :pair | (data select: [ :each | each key <= pair key ]) inject: 0 into: [:sum :item | sum + item value ]].
>
> b := RTGrapher new.
> b extent: 500 @ 400.
>
> ds := RTStackedDataSet new.
> ds points: data.
> ds x: #key.
> ds y: y.
> ds barShape.
> b add: ds.
>
> ds2 := RTStackedDataSet new.
> ds2 points: data.
> ds2 x: #key.

I think that a RTStackedDataset is not using x.

> ds2 y: y.
> ds2 connectColor: Color green.
> ds2 highlightIf: [ :pair | true ] using: [ :pair | (y value: pair) roundTo: 1 ].
> b add: ds2.
>
> b axisX
> noDecimal;
> numberOfTicks: 20; "<- change to 30 to break it"

Try number of labels instead.

> title: 'method size (LOC)'.
> b axisY
> noDecimal;
> title: '% share'.
> b build.
>
> lb := RTLegendBuilder new.
> lb view: b view.
> lb addColor: Color green text: 'Method size distribution'.
> lb build.
>
> b view open.
> ================================
>
> It's also amazing that 1/4 of all Pharo code is in two-line methods; that's including the method name. :)
>
> Peter
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>

Hi!

You are using an histogram. I think I should disable having labels on the X-axis with histogram.  Currently, you can have:

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

data := {1->0.3024011554432208. 2->24.359090088463624. 3->17.660001805380034. 4->12.111843293013179. 5->7.624345549738219. 6->5.985963170247337. 7->4.740250947824517. 8->3.837560931576097. 9->3.0691460552446292. 10->2.819777938256003. 11->2.3334536920021667. 12->1.9915598483480772. 13->1.6970572305470302. 14->1.3089005235602094. 15->1.1847806463260515. 16->1.0640458566528253. 17->0.8891496660046939. 18->0.7244087380393573. 19->0.670247337064452. 20->0.5878768730817837}.

y := [ :pair | (data select: [ :each | each key <= pair key ]) inject: 0 into: [:sum :item | sum + item value ]].

b := RTGrapher new.

b extent: 500 @ 400.

ds := RTStackedDataSet new.

ds points: data.

ds histogramWithBarTitle: #key rotation: 0.

ds y: y.

ds barShape.

ds highlightIf: [ :pair | true ] using: [ :pair | (y value: pair) roundTo: 1 ].

b add: ds.

ds := RTStackedDataSet new.

ds connectColor: Color green.

ds points: data.

ds connectColor: Color green.

ds y: y.

b add: ds.

b axisX

noLabel;

noTick;

title: 'method size (LOC)'.

b axisY

noDecimal;

title: '% share'.

b build.

lb := RTLegendBuilder new.

lb view: b view.

lb addColor: Color green text: 'Method size distribution'.

lb build.

b view

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

No tick and no label on the X-axis. However, you titled bar in your stacked data set.

If you are working with distribution, I highly suggest you to work with RTDistribution. This class is far from being finished. But I need help on this. You can then do:

((CompiledMethod allInstances copyFrom: 1 to: 100) collect: #numberOfLinesOfCode) plotFrequency

Which produces something like:

So yes, most methods are very short :-)

Let us know how it goes

Cheers,

Alexandre

-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

On Mar 20, 2015, at 9:01 PM, Peter Uhnák <[hidden email]> wrote:

Hi!

Seeing your other (Grapher charting engine) post I wanted to look at it and it looks interesting. :)

However I've encountered weird behavior - maybe because I'm not using in correctly.

When you look at the bar chars they do not line up with the tick numbers at bottom.

<2015-03-21_00:54:28.png>
​

I have explicitly specified number of ticks (20). Interestingly if I change it (to 30) then it lines up but is moved to left by one (starts at zero instead of one - just by changing numberOfTicks).

<2015-03-21_00:55:23.png>
​

​Here is the script I used to create it (the data is generated from another script)

================================

data := {1->0.3024011554432208. 2->24.359090088463624. 3->17.660001805380034. 4->12.111843293013179. 5->7.624345549738219. 6->5.985963170247337. 7->4.740250947824517. 8->3.837560931576097. 9->3.0691460552446292. 10->2.819777938256003. 11->2.3334536920021667. 12->1.9915598483480772. 13->1.6970572305470302. 14->1.3089005235602094. 15->1.1847806463260515. 16->1.0640458566528253. 17->0.8891496660046939. 18->0.7244087380393573. 19->0.670247337064452. 20->0.5878768730817837}.

y := [ :pair | (data select: [ :each | each key <= pair key ]) inject: 0 into: [:sum :item | sum + item value ]].

b := RTGrapher new.

b extent: 500 @ 400.

ds := RTStackedDataSet new.

ds points: data.

ds x: #key.

ds y: y.

ds barShape.

b add: ds.

ds2 := RTStackedDataSet new.

ds2 points: data.

ds2 x: #key.

ds2 y: y.

ds2 connectColor: Color green.

ds2 highlightIf: [ :pair | true ] using: [ :pair | (y value: pair) roundTo: 1 ].

b add: ds2.

b axisX

noDecimal;

numberOfTicks: 20; "<- change to 30 to break it"

title: 'method size (LOC)'.

b axisY

noDecimal;

title: '% share'.

b build.

lb := RTLegendBuilder new.

lb view: b view.

lb addColor: Color green text: 'Method size distribution'.

lb build.

b view open.

================================

It's also amazing that 1/4 of all Pharo code is in two-line methods; that's including the method name. :)

Peter

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

RTBarChartDataSet.st (2K) Download Attachment

Le 23 mars 2015 18:58, "Alexandre Bergel" <[hidden email]> a écrit :
>
> Hi!
>
> You are using an histogram. I think I should disable having labels on the X-axis with histogram.

No, you shouldn't.
I use that for dates.
Well, I am going to use a decoration as you told me for my use case but this is the same.
We need more control on where the labels are going.

Phil

 Currently, you can have:
>
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> data := {1->0.3024011554432208. 2->24.359090088463624. 3->17.660001805380034. 4->12.111843293013179. 5->7.624345549738219. 6->5.985963170247337. 7->4.740250947824517. 8->3.837560931576097. 9->3.0691460552446292. 10->2.819777938256003. 11->2.3334536920021667. 12->1.9915598483480772. 13->1.6970572305470302. 14->1.3089005235602094. 15->1.1847806463260515. 16->1.0640458566528253. 17->0.8891496660046939. 18->0.7244087380393573. 19->0.670247337064452. 20->0.5878768730817837}.
>
> y := [ :pair | (data select: [ :each | each key <= pair key ]) inject: 0 into: [:sum :item | sum + item value ]].
>
> b := RTGrapher new.
> b extent: 500 @ 400.
>
> ds := RTStackedDataSet new.
> ds points: data.
> ds histogramWithBarTitle: #key rotation: 0.
> ds y: y.
> ds barShape.
> ds highlightIf: [ :pair | true ] using: [ :pair | (y value: pair) roundTo: 1 ].
> b add: ds.
>
> ds := RTStackedDataSet new.
> ds connectColor: Color green.
> ds points: data.
> ds connectColor: Color green.
> ds y: y.
> b add: ds.
>
> b axisX
> noLabel;
> noTick;
> title: 'method size (LOC)'.
> b axisY
> noDecimal;
> title: '% share'.
> b build.
>
> lb := RTLegendBuilder new.
> lb view: b view.
> lb addColor: Color green text: 'Method size distribution'.
> lb build.
>
> b view
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
>
> No tick and no label on the X-axis. However, you titled bar in your stacked data set.
>
>
> If you are working with distribution, I highly suggest you to work with RTDistribution. This class is far from being finished. But I need help on this. You can then do:
>
> ((CompiledMethod allInstances copyFrom: 1 to: 100) collect: #numberOfLinesOfCode) plotFrequency
>
> Which produces something like:
>
> So yes, most methods are very short :-)
>
> Let us know how it goes
>
> Cheers,
> Alexandre
> -- 
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>> On Mar 20, 2015, at 9:01 PM, Peter Uhnák <[hidden email]> wrote:
>>
>> Hi!
>>
>> Seeing your other (Grapher charting engine) post I wanted to look at it and it looks interesting. :)
>>
>> However I've encountered weird behavior - maybe because I'm not using in correctly.
>>
>> When you look at the bar chars they do not line up with the tick numbers at bottom.
>> <2015-03-21_00:54:28.png>
>> ​
>> I have explicitly specified number of ticks (20). Interestingly if I change it (to 30) then it lines up but is moved to left by one (starts at zero instead of one - just by changing numberOfTicks).
>>
>> <2015-03-21_00:55:23.png>
>> ​
>>
>>
>>
>> ​Here is the script I used to create it (the data is generated from another script)
>> ================================
>> data := {1->0.3024011554432208. 2->24.359090088463624. 3->17.660001805380034. 4->12.111843293013179. 5->7.624345549738219. 6->5.985963170247337. 7->4.740250947824517. 8->3.837560931576097. 9->3.0691460552446292. 10->2.819777938256003. 11->2.3334536920021667. 12->1.9915598483480772. 13->1.6970572305470302. 14->1.3089005235602094. 15->1.1847806463260515. 16->1.0640458566528253. 17->0.8891496660046939. 18->0.7244087380393573. 19->0.670247337064452. 20->0.5878768730817837}.
>>
>> y := [ :pair | (data select: [ :each | each key <= pair key ]) inject: 0 into: [:sum :item | sum + item value ]].
>>
>> b := RTGrapher new.
>> b extent: 500 @ 400.
>>
>> ds := RTStackedDataSet new.
>> ds points: data.
>> ds x: #key.
>> ds y: y.
>> ds barShape.
>> b add: ds.
>>
>> ds2 := RTStackedDataSet new.
>> ds2 points: data.
>> ds2 x: #key.
>> ds2 y: y.
>> ds2 connectColor: Color green.
>> ds2 highlightIf: [ :pair | true ] using: [ :pair | (y value: pair) roundTo: 1 ].
>> b add: ds2.
>>
>> b axisX
>> noDecimal;
>> numberOfTicks: 20; "<- change to 30 to break it"
>> title: 'method size (LOC)'.
>> b axisY
>> noDecimal;
>> title: '% share'.
>> b build.
>>
>> lb := RTLegendBuilder new.
>> lb view: b view.
>> lb addColor: Color green text: 'Method size distribution'.
>> lb build.
>>
>> b view open.
>> ================================
>>
>> It's also amazing that 1/4 of all Pharo code is in two-line methods; that's including the method name. :)
>>
>> Peter
>> _______________________________________________
>> Moose-dev mailing list
>> [hidden email]
>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>

Le 24 mars 2015 23:18, "Alexandre Bergel" <[hidden email]> a écrit :
>
> Hi Phil,
>
> We started to work a bit on that direction. Consider the following example:
>
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
> b := RTGrapher new.
>
> ds := RTDataSet new.
> ds points: #(0 1 2 3 4 5 6).
> b add: ds.
>
> deco :=  RTHorizontalAllValuesDecorator new.
> deco labelConversion: [ :value | '#', value asString ].
> b addDecorator: deco.
>
> deco :=  RTVerticalValuesDecorator new.
> deco addAll: #(2 3 4).
> deco labelConversion: [ :value | '#', value asString ].
> b addDecorator: deco.
>
> b axisX noTick; noLabel.
> b axisY noTick; noLabel.
> b 
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
>
>
> I suspect that in the future, the axis renderer will be much simpler with the decorator. Decorators gives flexibility.

Super.

I also now have an HTML5 exporter version of mine thay exports nicely in a seaside component.

But the full view is draggable around and takes a lot of space despite the extent I specify for the RTGrapher.

Something in the Visitor maybe.

Phil

>
> Cheers,
> Alexandre
>
>
>> On Mar 24, 2015, at 9:00 AM, [hidden email] wrote:
>>
>>
>> Le 23 mars 2015 18:58, "Alexandre Bergel" <[hidden email]> a écrit :
>> >
>> > Hi!
>> >
>> > You are using an histogram. I think I should disable having labels on the X-axis with histogram.
>>
>> No, you shouldn't.
>> I use that for dates.
>> Well, I am going to use a decoration as you told me for my use case but this is the same.
>> We need more control on where the labels are going.
>>
>> Phil
>>
>>  Currently, you can have:
>> >
>> > -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
>> > data := {1->0.3024011554432208. 2->24.359090088463624. 3->17.660001805380034. 4->12.111843293013179. 5->7.624345549738219. 6->5.985963170247337. 7->4.740250947824517. 8->3.837560931576097. 9->3.0691460552446292. 10->2.819777938256003. 11->2.3334536920021667. 12->1.9915598483480772. 13->1.6970572305470302. 14->1.3089005235602094. 15->1.1847806463260515. 16->1.0640458566528253. 17->0.8891496660046939. 18->0.7244087380393573. 19->0.670247337064452. 20->0.5878768730817837}.
>> >
>> > y := [ :pair | (data select: [ :each | each key <= pair key ]) inject: 0 into: [:sum :item | sum + item value ]].
>> >
>> > b := RTGrapher new.
>> > b extent: 500 @ 400.
>> >
>> > ds := RTStackedDataSet new.
>> > ds points: data.
>> > ds histogramWithBarTitle: #key rotation: 0.
>> > ds y: y.
>> > ds barShape.
>> > ds highlightIf: [ :pair | true ] using: [ :pair | (y value: pair) roundTo: 1 ].
>> > b add: ds.
>> >
>> > ds := RTStackedDataSet new.
>> > ds connectColor: Color green.
>> > ds points: data.
>> > ds connectColor: Color green.
>> > ds y: y.
>> > b add: ds.
>> >
>> > b axisX
>> > noLabel;
>> > noTick;
>> > title: 'method size (LOC)'.
>> > b axisY
>> > noDecimal;
>> > title: '% share'.
>> > b build.
>> >
>> > lb := RTLegendBuilder new.
>> > lb view: b view.
>> > lb addColor: Color green text: 'Method size distribution'.
>> > lb build.
>> >
>> > b view
>> > -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
>> >
>> > No tick and no label on the X-axis. However, you titled bar in your stacked data set.
>> >
>> >
>> > If you are working with distribution, I highly suggest you to work with RTDistribution. This class is far from being finished. But I need help on this. You can then do:
>> >
>> > ((CompiledMethod allInstances copyFrom: 1 to: 100) collect: #numberOfLinesOfCode) plotFrequency
>> >
>> > Which produces something like:
>> >
>> > So yes, most methods are very short :-)
>> >
>> > Let us know how it goes
>> >
>> > Cheers,
>> > Alexandre
>> > -- 
>> > _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>> > Alexandre Bergel  http://www.bergel.eu
>> > ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>> >
>> >
>> >
>> >> On Mar 20, 2015, at 9:01 PM, Peter Uhnák <[hidden email]> wrote:
>> >>
>> >> Hi!
>> >>
>> >> Seeing your other (Grapher charting engine) post I wanted to look at it and it looks interesting. :)
>> >>
>> >> However I've encountered weird behavior - maybe because I'm not using in correctly.
>> >>
>> >> When you look at the bar chars they do not line up with the tick numbers at bottom.
>> >> <2015-03-21_00:54:28.png>
>> >> ​
>> >> I have explicitly specified number of ticks (20). Interestingly if I change it (to 30) then it lines up but is moved to left by one (starts at zero instead of one - just by changing numberOfTicks).
>> >>
>> >> <2015-03-21_00:55:23.png>
>> >> ​
>> >>
>> >>
>> >>
>> >> ​Here is the script I used to create it (the data is generated from another script)
>> >> ================================
>> >> data := {1->0.3024011554432208. 2->24.359090088463624. 3->17.660001805380034. 4->12.111843293013179. 5->7.624345549738219. 6->5.985963170247337. 7->4.740250947824517. 8->3.837560931576097. 9->3.0691460552446292. 10->2.819777938256003. 11->2.3334536920021667. 12->1.9915598483480772. 13->1.6970572305470302. 14->1.3089005235602094. 15->1.1847806463260515. 16->1.0640458566528253. 17->0.8891496660046939. 18->0.7244087380393573. 19->0.670247337064452. 20->0.5878768730817837}.
>> >>
>> >> y := [ :pair | (data select: [ :each | each key <= pair key ]) inject: 0 into: [:sum :item | sum + item value ]].
>> >>
>> >> b := RTGrapher new.
>> >> b extent: 500 @ 400.
>> >>
>> >> ds := RTStackedDataSet new.
>> >> ds points: data.
>> >> ds x: #key.
>> >> ds y: y.
>> >> ds barShape.
>> >> b add: ds.
>> >>
>> >> ds2 := RTStackedDataSet new.
>> >> ds2 points: data.
>> >> ds2 x: #key.
>> >> ds2 y: y.
>> >> ds2 connectColor: Color green.
>> >> ds2 highlightIf: [ :pair | true ] using: [ :pair | (y value: pair) roundTo: 1 ].
>> >> b add: ds2.
>> >>
>> >> b axisX
>> >> noDecimal;
>> >> numberOfTicks: 20; "<- change to 30 to break it"
>> >> title: 'method size (LOC)'.
>> >> b axisY
>> >> noDecimal;
>> >> title: '% share'.
>> >> b build.
>> >>
>> >> lb := RTLegendBuilder new.
>> >> lb view: b view.
>> >> lb addColor: Color green text: 'Method size distribution'.
>> >> lb build.
>> >>
>> >> b view open.
>> >> ================================
>> >>
>> >> It's also amazing that 1/4 of all Pharo code is in two-line methods; that's including the method name. :)
>> >>
>> >> Peter
>> >> _______________________________________________
>> >> Moose-dev mailing list
>> >> [hidden email]
>> >> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>> >
>> >
>> >
>> > _______________________________________________
>> > Moose-dev mailing list
>> > [hidden email]
>> > https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>> >
>> _______________________________________________
>> Moose-dev mailing list
>> [hidden email]
>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
> -- 
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>