Some weeks ago I wrote a function to construct a stem-and-leaf-display
because we want to have some more parameters to control the result.
D.Trenkler remind me of
/Velleman/Hoaglin: ABC of EDA, page 15: "It is easy to construct a
Stem-and-Leaf-Display by hand...
It is not nearly as easy to write a general computer program to produce
Stem-and-Leaf-Displays./"
so the programming was a great challange also.
Here is the link to the code:
http://www.wiwi.uni-bielefeld.de/~wolf/software/mystem/ms.sch
German documentation:
http://www.wiwi.uni-bielefeld.de/~wolf/software/mystem/ms.ps
http://www.wiwi.uni-bielefeld.de/~wolf/software/mystem/ms.html
Syntax of stem.leaf
##################################################################
#Description: #
# stem.leaf produces a stem-and-leaf-display of a data set #
# #
#Usage: #
# stem.leaf(data) #
# stem.leaf(data,unit=100,m=5,Min=50,Max=1000,rule.line="Dixon"#
# #
#Arguments: #
# data: vector of input data #
# unit: unit of leafs in: { ...,100,10,1,.1,.01,... } #
# m: 1, 2 or 5 -- 10/m=number of possible leaf digits #
# Min: minimum of stem #
# Max: maximum of stem #
# rule.line: = "Dixon" => number of lines <- 10*log(n,10)
#
# = "Velleman" => number of lines <- 2*sqrt(n)
#
# = "Sturges" => number of lines <- 1 + log(n,2)
#
# style: = "UREDA" => UREDA like stem ( m = 2, 5 ) #
# #
#Author: #
# Peter Wolf 05/2003 #
##################################################################
Hope it helps
Peter Wolf
Richard A. O'Keefe wrote:
>I would like to do some fairly basic stem-and-leaf displays in R.
>I am aware (I might even say painfully aware) of stem(base) and
>have tried it. That's why I'm hoping someone has a usable stem-
>and-leaf display for R so that I don't have to write my own.
>
>r-project.org > Search > R Site Search > "stem and leaf
display"
>finds nothing.
>
>I also tried the mail archive search, but couldn't figure out how
>to search the bodies of the messages.
>
>For the record, there are some less important things that I would
>like to have (like depths and outlier lines), and it is a pity that
>the "atom" argument of stem() is effectively undocumented
(it's a
>tolerance, fine, but what _of_ and how used?), but I'd put up with
>stem() the way it is if only it didn't do things like displaying
>5.67 and 5.78 as
> 56 | 78
>which makes it effectively unusable. What good is a stem and leaf
>plot where you can't recover the leading digits of the numbers
correctly?
>
>______________________________________________
>R-help at stat.math.ethz.ch mailing list
>https://www.stat.math.ethz.ch/mailman/listinfo/r-help
>
>
-----------------------------------------------------------------------------------
Peter Wolf, Department of Economics and Business Administration,
University of Bielefeld
pwolf at wiwi.uni-bielefeld.de,
http://www.wiwi.uni-bielefeld.de/~wolf/wolf.html