Looks nicer than the following, but I'm not sure we/you want the nub of the
leaves:
(([: ~. {."1) ; {:"1) &> (] <@#~ [: = {."1) ] 0 10 #: /:~ 54 59 35 41 46 25 47
60 54 46 49 46 41 34 22 111 112
┌──┬─────────────┐
│2 │2 5 │
├──┼─────────────┤
│3 │4 5 │
├──┼─────────────┤
│4 │1 1 6 6 6 7 9│
├──┼─────────────┤
│5 │4 4 9 │
├──┼─────────────┤
│6 │0 │
├──┼─────────────┤
│11│1 2 │
└──┴─────────────┘
Its nice to keep all the data numeric though, and IMO, the reason you don't
want the nub is to be able to calculate (and visually show) the frequency in
each bin... so barchart idea.
----- Original Message -----
From: R.E. Boss <[email protected]>
To: [email protected]
Cc:
Sent: Saturday, May 3, 2014 12:29:33 PM
Subject: Re: [Jprogramming] Stemplot
I just now learned about stem and leave.
For me, the J-way of presenting is enough
({.<@~./."1 ])&.|: 0 10 #: /:~ 54 59 35 41 46 25 47 60 54 46 49 46 41 34
22 111 112
+--+-------+
|2 |2 5 |
+--+-------+
|3 |4 5 |
+--+-------+
|4 |1 6 7 9|
+--+-------+
|5 |4 9 |
+--+-------+
|6 |0 |
+--+-------+
|11|1 2 |
+--+-------+
R.E. Boss
(Add your info to http://www.jsoftware.com/jwiki/Community/Demographics )
> -----Original Message-----
> From: [email protected] [mailto:programming-
> [email protected]] On Behalf Of 'Pascal Jasmin' via
> Programming
> Sent: zaterdag 3 mei 2014 17:47
> To: [email protected]
> Subject: Re: [Jprogramming] Stemplot
>
> the spec was to have just the last digit show up on right of |
>
> (~.@[ (,'|',])&":"_1 ":@/:~/.)/|:0 10 #: /:~ 54 59 35 41 46 25 47 60 54
46 49 46
> 41 34 22 111 112
> 2|2 5
> 3|4 5
> 4|1 1 6 6 6 7 9
> 5|4 4 9
> 6|0
> 11|1 2
>
>
>
> ----- Original Message -----
> From: Raul Miller <[email protected]>
> To: Programming forum <[email protected]>
> Cc:
> Sent: Saturday, May 3, 2014 11:42:44 AM
> Subject: Re: [Jprogramming] Stemplot
>
> I'm not actually sure if the specification makes sense for numbers
> which are not two digit numbers.
>
> Roger's advice is probably worth noting.
>
> Thanks,
>
> --
> Raul
>
> On Sat, May 3, 2014 at 11:36 AM, 'Pascal Jasmin' via Programming
> <[email protected]> wrote:
> > Not really as good as your version, but using 0 10 #:
> >
> > > , each (( [: ":@:~. {."1) , '|', ":@{:"1) each (] <@#~ [: =
{."1) ] 0 10 #: /:~
> 54 59 35 41 46 25 47 60 54 46 49 46 41 34 22
> > 2|25
> > 3|45
> > 4|1166679
> > 5|449
> > 6|0
> >
> > works with minor display quirks for mixed length digit numbers
> >
> >
> >
> >
> > ----- Original Message -----
> > From: Raul Miller <[email protected]>
> > To: Programming forum <[email protected]>
> > Cc:
> > Sent: Saturday, May 3, 2014 10:44:46 AM
> > Subject: Re: [Jprogramming] Stemplot
> >
> > 1. the concept of stem looks like 0 10 #:
> > Here's the dictionary page on antibase:
> > http://www.jsoftware.com/help/dictionary/d402.htm
> >
> > 2. sorting by stem could be put off, for later.
> >
> > 3. leafs look like ":@/:~ gathered using /. using the stem as key.
> > Here's the dictionary page on key:
> > http://www.jsoftware.com/help/dictionary/d421.htm
> >
> > In other words,
> > |:0 10 #: ruth
> > 5 5 3 4 4 2 4 6 5 4 4 4 4 3 2
> > 4 9 5 1 6 5 7 0 4 6 9 6 1 4 2
> >
> > ":@/:~/./|:0 10 #: ruth
> > 4 4 9
> > 4 5
> > 1 1 6 6 6 7 9
> > 2 5
> > 0
> >
> > (~.@[ (,'|',])&":"_1 ":@/:~/.)/|:0 10 #: ruth
> > 5|4 4 9
> > 3|4 5
> > 4|1 1 6 6 6 7 9
> > 2|2 5
> > 6|0
> >
> > /:~ (~.@[ (,'|',])&":"_1 ":@/:~/.)/|:0 10 #: ruth
> > 2|2 5
> > 3|4 5
> > 4|1 1 6 6 6 7 9
> > 5|4 4 9
> > 6|0
> >
> > Not surprisingly, the most complicated part of this specification is
> > drawing in that vertical bar in the middle of the numbers. It's not a
> > number, so you have to convert the numbers to text (using ":) and you
> > have to do this twice, once for the numbers on the left of '|' and
> > again for the numbers on the right of '|', and also there's the glue
> > needed to make everything stick together properly.
> >
> > In the grand scheme of things, converting characters to numbers isn't
> > really all that complicated, and it's only a small fraction of a line
> > of code here, that we need to do the conversion. Still, viewed
> > objectively, I can easily imagine some people getting frustrated by
> > the mental effort needed to deal with the ugliness of formatting.
> >
> > The solution, of course, for most people, is to wait for someone else
> > deal with it, and then to ask for it to be different.
> >
> > That said, I often wish for a variation on /. which behaves like this:
> > key=: 1 :'<"_1@~.@[ u&> </.'
> >
> > In other words, modifying a dyad instead of a monad, and giving it a
> > left argument representing the value being keyed on.
> >
> > Then the expression would have looked like this:
> > /:~((,'|',])&": /:~)key/|:0 10 #: ruth
> >
> > Thanks,
> >
> > --
> > Raul
> >
> > On Thu, May 1, 2014 at 7:35 PM, km <[email protected]> wrote:
> >> Noun ruth below shows the numbers of home runs of Babe Ruth in each
> of his 15 years with the New York Yankees, 1920 to 1934. Noun stemplot
is a
> "stemplot" (defined below) of this data. I have a clumsy way of producing
> noun stemplot. How would you do it?
> >>
> >> ruth
> >> 54 59 35 41 46 25 47 60 54 46 49 46 41 34 22
> >> stemplot
> >> 2|2 5
> >> 3|4 5
> >> 4|1 1 6 6 6 7 9
> >> 5|4 4 9
> >> 6|0
> >>
> >> From Moore and McCabe, Introduction to the Practice of Statistics,
Fourth
> Edition, page 20 --
> >>
> >> To make a "stemplot":
> >>
> >> 1. Separate each observation into a "stem" consisting of all but the
final
> (rightmost) digit and a "leaf", the final digit. Stems may have as many
digits
> as needed, but each leaf contains only a single digit.
> >>
> >> 2. Write the stems in a vertical column with the smallest at the top,
and
> draw a vertical line at the right of this column.
> >>
> >> 3. Write each leaf in the row to the right of its stem, in increasing
order
> out from the stem.
> >>
> >> --Kip Murray
> >>
> >> Sent from my iPad
> >> ----------------------------------------------------------------------
> >> For information about J forums see
> http://www.jsoftware.com/forums.htm
> >
> > ----------------------------------------------------------------------
> > For information about J forums see
> http://www.jsoftware.com/forums.htm
>
> >
> > ----------------------------------------------------------------------
> > For information about J forums see
> http://www.jsoftware.com/forums.htm
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
