> x[1] 8.0 7.9 7.5 7.0 8.0 7.3 8.0 7.2 7.4 7.3 7.8 8.0 7.7 8.3 7.8 7.8 7.1 7.7 6.9 7.5 7.5 7.3 7.2 7.5 7.2> stem(x)The decimal point is at the | 6 | 9 7 | 012223334 7 | 5555778889 8 | 00003> y <- c(x, 8) > stem(y)The decimal point is 1 digit(s) to the left of the | 68 | 0 70 | 00 72 | 000000 74 | 00000 76 | 00 78 | 0000 80 | 00000 82 | 0 The first stem is as I want it to be and expect it to be. When I add one more observation R seems to add an extra decimal zero to my observations and all leaves are now zero. Why does this happen? Regards Leif [[alternative HTML version deleted]]
Hi I do not know why does it happen but you can control the behaviour by setting scale to 0.5. Cheers Petr> -----Original Message----- > From: R-help [mailto:r-help-bounces at r-project.org] On Behalf Of Leif Ruckman > Sent: Friday, February 16, 2018 9:18 AM > To: r-help at r-project.org > Subject: [R] stem - strange leaves > > > x > [1] 8.0 7.9 7.5 7.0 8.0 7.3 8.0 7.2 7.4 7.3 7.8 8.0 7.7 8.3 7.8 7.8 7.1 7.7 6.9 7.5 > 7.5 7.3 7.2 7.5 7.2 > > stem(x) > > The decimal point is at the | > > 6 | 9 > 7 | 012223334 > 7 | 5555778889 > 8 | 00003 > > > y <- c(x, 8) > > stem(y) > > The decimal point is 1 digit(s) to the left of the | > > 68 | 0 > 70 | 00 > 72 | 000000 > 74 | 00000 > 76 | 00 > 78 | 0000 > 80 | 00000 > 82 | 0 > The first stem is as I want it to be and expect it to be. When I add one more > observation R seems to add an extra decimal zero to my observations and all > leaves are now zero. Why does this happen? > > Regards > Leif > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code.________________________________ Tento e-mail a jak?koliv k n?mu p?ipojen? dokumenty jsou d?v?rn? a jsou ur?eny pouze jeho adres?t?m. Jestli?e jste obdr?el(a) tento e-mail omylem, informujte laskav? neprodlen? jeho odes?latele. Obsah tohoto emailu i s p??lohami a jeho kopie vyma?te ze sv?ho syst?mu. Nejste-li zam??len?m adres?tem tohoto emailu, nejste opr?vn?ni tento email jakkoliv u??vat, roz?i?ovat, kop?rovat ?i zve?ej?ovat. Odes?latel e-mailu neodpov?d? za eventu?ln? ?kodu zp?sobenou modifikacemi ?i zpo?d?n?m p?enosu e-mailu. V p??pad?, ?e je tento e-mail sou??st? obchodn?ho jedn?n?: - vyhrazuje si odes?latel pr?vo ukon?it kdykoliv jedn?n? o uzav?en? smlouvy, a to z jak?hokoliv d?vodu i bez uveden? d?vodu. - a obsahuje-li nab?dku, je adres?t opr?vn?n nab?dku bezodkladn? p?ijmout; Odes?latel tohoto e-mailu (nab?dky) vylu?uje p?ijet? nab?dky ze strany p??jemce s dodatkem ?i odchylkou. - trv? odes?latel na tom, ?e p??slu?n? smlouva je uzav?ena teprve v?slovn?m dosa?en?m shody na v?ech jej?ch n?le?itostech. - odes?latel tohoto emailu informuje, ?e nen? opr?vn?n uzav?rat za spole?nost ??dn? smlouvy s v?jimkou p??pad?, kdy k tomu byl p?semn? zmocn?n nebo p?semn? pov??en a takov? pov??en? nebo pln? moc byly adres?tovi tohoto emailu p??padn? osob?, kterou adres?t zastupuje, p?edlo?eny nebo jejich existence je adres?tovi ?i osob? j?m zastoupen? zn?m?. This e-mail and any documents attached to it may be confidential and are intended only for its intended recipients. If you received this e-mail by mistake, please immediately inform its sender. Delete the contents of this e-mail with all attachments and its copies from your system. If you are not the intended recipient of this e-mail, you are not authorized to use, disseminate, copy or disclose this e-mail in any manner. The sender of this e-mail shall not be liable for any possible damage caused by modifications of the e-mail or by delay with transfer of the email. In case that this e-mail forms part of business dealings: - the sender reserves the right to end negotiations about entering into a contract in any time, for any reason, and without stating any reasoning. - if the e-mail contains an offer, the recipient is entitled to immediately accept such offer; The sender of this e-mail (offer) excludes any acceptance of the offer on the part of the recipient containing any amendment or variation. - the sender insists on that the respective contract is concluded only upon an express mutual agreement on all its aspects. - the sender of this e-mail informs that he/she is not authorized to enter into any contracts on behalf of the company except for cases in which he/she is expressly authorized to do so in writing, and such authorization or power of attorney is submitted to the recipient or the person represented by the recipient, or the existence of such authorization is known to the recipient of the person represented by the recipient.
Hi R is open source so you could dig into the code. However the actual stem function is probably written in C, so it is beyond my expertise. If you replied to the list there could be experts who are able to provide explanation.> stemfunction (x, scale = 1, width = 80, atom = 1e-08) { if (!is.numeric(x)) stop("'x' must be numeric") x <- x[is.finite(x)] n <- as.integer(length(x)) if (is.na(n)) stop("invalid length(x)") if (n == 0) stop("no finite and non-missing values") if (scale <= 0) stop("'scale' must be positive") .Call(C_StemLeaf, as.double(x), scale, width, atom) invisible(NULL) } <bytecode: 0x000000000dea62e0> <environment: namespace:graphics>>Cheers Petr> -----Original Message----- > From: Leif Ruckman [mailto:leif.ruckman at kau.se] > Sent: Friday, February 16, 2018 3:27 PM > To: PIKAL Petr <petr.pikal at precheza.cz> > Subject: RE: stem - strange leaves > > Thank you, I also found that solution but I think it is strange that this happens > at all. I have tried different data and sometimes this happens and sometimes it > doesn't so I would like to understand why. > > Regards > > Leif Ruckman > > > > -----Original Message----- > From: PIKAL Petr [mailto:petr.pikal at precheza.cz] > Sent: den 16 februari 2018 13:52 > To: Leif Ruckman <leif.ruckman at kau.se>; r-help at r-project.org > Subject: RE: stem - strange leaves > > Hi > > I do not know why does it happen but you can control the behaviour by setting > scale to 0.5. > > Cheers > Petr > > > -----Original Message----- > > From: R-help [mailto:r-help-bounces at r-project.org] On Behalf Of Leif > > Ruckman > > Sent: Friday, February 16, 2018 9:18 AM > > To: r-help at r-project.org > > Subject: [R] stem - strange leaves > > > > > x > > [1] 8.0 7.9 7.5 7.0 8.0 7.3 8.0 7.2 7.4 7.3 7.8 8.0 7.7 8.3 7.8 7.8 > > 7.1 7.7 6.9 7.5 > > 7.5 7.3 7.2 7.5 7.2 > > > stem(x) > > > > The decimal point is at the | > > > > 6 | 9 > > 7 | 012223334 > > 7 | 5555778889 > > 8 | 00003 > > > > > y <- c(x, 8) > > > stem(y) > > > > The decimal point is 1 digit(s) to the left of the | > > > > 68 | 0 > > 70 | 00 > > 72 | 000000 > > 74 | 00000 > > 76 | 00 > > 78 | 0000 > > 80 | 00000 > > 82 | 0 > > The first stem is as I want it to be and expect it to be. When I add > > one more observation R seems to add an extra decimal zero to my > > observations and all leaves are now zero. Why does this happen? > > > > Regards > > Leif > > > > [[alternative HTML version deleted]] > >________________________________ Tento e-mail a jak?koliv k n?mu p?ipojen? dokumenty jsou d?v?rn? a jsou ur?eny pouze jeho adres?t?m. Jestli?e jste obdr?el(a) tento e-mail omylem, informujte laskav? neprodlen? jeho odes?latele. Obsah tohoto emailu i s p??lohami a jeho kopie vyma?te ze sv?ho syst?mu. Nejste-li zam??len?m adres?tem tohoto emailu, nejste opr?vn?ni tento email jakkoliv u??vat, roz?i?ovat, kop?rovat ?i zve?ej?ovat. Odes?latel e-mailu neodpov?d? za eventu?ln? ?kodu zp?sobenou modifikacemi ?i zpo?d?n?m p?enosu e-mailu. V p??pad?, ?e je tento e-mail sou??st? obchodn?ho jedn?n?: - vyhrazuje si odes?latel pr?vo ukon?it kdykoliv jedn?n? o uzav?en? smlouvy, a to z jak?hokoliv d?vodu i bez uveden? d?vodu. - a obsahuje-li nab?dku, je adres?t opr?vn?n nab?dku bezodkladn? p?ijmout; Odes?latel tohoto e-mailu (nab?dky) vylu?uje p?ijet? nab?dky ze strany p??jemce s dodatkem ?i odchylkou. - trv? odes?latel na tom, ?e p??slu?n? smlouva je uzav?ena teprve v?slovn?m dosa?en?m shody na v?ech jej?ch n?le?itostech. - odes?latel tohoto emailu informuje, ?e nen? opr?vn?n uzav?rat za spole?nost ??dn? smlouvy s v?jimkou p??pad?, kdy k tomu byl p?semn? zmocn?n nebo p?semn? pov??en a takov? pov??en? nebo pln? moc byly adres?tovi tohoto emailu p??padn? osob?, kterou adres?t zastupuje, p?edlo?eny nebo jejich existence je adres?tovi ?i osob? j?m zastoupen? zn?m?. This e-mail and any documents attached to it may be confidential and are intended only for its intended recipients. If you received this e-mail by mistake, please immediately inform its sender. Delete the contents of this e-mail with all attachments and its copies from your system. If you are not the intended recipient of this e-mail, you are not authorized to use, disseminate, copy or disclose this e-mail in any manner. The sender of this e-mail shall not be liable for any possible damage caused by modifications of the e-mail or by delay with transfer of the email. In case that this e-mail forms part of business dealings: - the sender reserves the right to end negotiations about entering into a contract in any time, for any reason, and without stating any reasoning. - if the e-mail contains an offer, the recipient is entitled to immediately accept such offer; The sender of this e-mail (offer) excludes any acceptance of the offer on the part of the recipient containing any amendment or variation. - the sender insists on that the respective contract is concluded only upon an express mutual agreement on all its aspects. - the sender of this e-mail informs that he/she is not authorized to enter into any contracts on behalf of the company except for cases in which he/she is expressly authorized to do so in writing, and such authorization or power of attorney is submitted to the recipient or the person represented by the recipient, or the existence of such authorization is known to the recipient of the person represented by the recipient.
In addition to stem() in the graphics package, there are other implementations of stem-and-leaf plots that add additional features such as stem.leaf() in package aplpack which will includes a function to produce back to back stem and leaf plots. ---------------------------------------- David L Carlson Department of Anthropology Texas A&M University College Station, TX 77843-4352 -----Original Message----- From: R-help [mailto:r-help-bounces at r-project.org] On Behalf Of PIKAL Petr Sent: Friday, February 16, 2018 6:52 AM To: Leif Ruckman <leif.ruckman at kau.se>; r-help at r-project.org Subject: Re: [R] stem - strange leaves Hi I do not know why does it happen but you can control the behaviour by setting scale to 0.5. Cheers Petr> -----Original Message----- > From: R-help [mailto:r-help-bounces at r-project.org] On Behalf Of Leif > Ruckman > Sent: Friday, February 16, 2018 9:18 AM > To: r-help at r-project.org > Subject: [R] stem - strange leaves > > > x > [1] 8.0 7.9 7.5 7.0 8.0 7.3 8.0 7.2 7.4 7.3 7.8 8.0 7.7 8.3 7.8 7.8 > 7.1 7.7 6.9 7.5 > 7.5 7.3 7.2 7.5 7.2 > > stem(x) > > The decimal point is at the | > > 6 | 9 > 7 | 012223334 > 7 | 5555778889 > 8 | 00003 > > > y <- c(x, 8) > > stem(y) > > The decimal point is 1 digit(s) to the left of the | > > 68 | 0 > 70 | 00 > 72 | 000000 > 74 | 00000 > 76 | 00 > 78 | 0000 > 80 | 00000 > 82 | 0 > The first stem is as I want it to be and expect it to be. When I add > one more observation R seems to add an extra decimal zero to my > observations and all leaves are now zero. Why does this happen? > > Regards > Leif > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide > http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code.________________________________ Tento e-mail a jak?koliv k n?mu p?ipojen? dokumenty jsou d?v?rn? a jsou ur?eny pouze jeho adres?t?m. Jestli?e jste obdr?el(a) tento e-mail omylem, informujte laskav? neprodlen? jeho odes?latele. Obsah tohoto emailu i s p??lohami a jeho kopie vyma?te ze sv?ho syst?mu. Nejste-li zam??len?m adres?tem tohoto emailu, nejste opr?vn?ni tento email jakkoliv u??vat, roz?i?ovat, kop?rovat ?i zve?ej?ovat. Odes?latel e-mailu neodpov?d? za eventu?ln? ?kodu zp?sobenou modifikacemi ?i zpo?d?n?m p?enosu e-mailu. V p??pad?, ?e je tento e-mail sou??st? obchodn?ho jedn?n?: - vyhrazuje si odes?latel pr?vo ukon?it kdykoliv jedn?n? o uzav?en? smlouvy, a to z jak?hokoliv d?vodu i bez uveden? d?vodu. - a obsahuje-li nab?dku, je adres?t opr?vn?n nab?dku bezodkladn? p?ijmout; Odes?latel tohoto e-mailu (nab?dky) vylu?uje p?ijet? nab?dky ze strany p??jemce s dodatkem ?i odchylkou. - trv? odes?latel na tom, ?e p??slu?n? smlouva je uzav?ena teprve v?slovn?m dosa?en?m shody na v?ech jej?ch n?le?itostech. - odes?latel tohoto emailu informuje, ?e nen? opr?vn?n uzav?rat za spole?nost ??dn? smlouvy s v?jimkou p??pad?, kdy k tomu byl p?semn? zmocn?n nebo p?semn? pov??en a takov? pov??en? nebo pln? moc byly adres?tovi tohoto emailu p??padn? osob?, kterou adres?t zastupuje, p?edlo?eny nebo jejich existence je adres?tovi ?i osob? j?m zastoupen? zn?m?. This e-mail and any documents attached to it may be confidential and are intended only for its intended recipients. If you received this e-mail by mistake, please immediately inform its sender. Delete the contents of this e-mail with all attachments and its copies from your system. If you are not the intended recipient of this e-mail, you are not authorized to use, disseminate, copy or disclose this e-mail in any manner. The sender of this e-mail shall not be liable for any possible damage caused by modifications of the e-mail or by delay with transfer of the email. In case that this e-mail forms part of business dealings: - the sender reserves the right to end negotiations about entering into a contract in any time, for any reason, and without stating any reasoning. - if the e-mail contains an offer, the recipient is entitled to immediately accept such offer; The sender of this e-mail (offer) excludes any acceptance of the offer on the part of the recipient containing any amendment or variation. - the sender insists on that the respective contract is concluded only upon an express mutual agreement on all its aspects. - the sender of this e-mail informs that he/she is not authorized to enter into any contracts on behalf of the company except for cases in which he/she is expressly authorized to do so in writing, and such authorization or power of attorney is submitted to the recipient or the person represented by the recipient, or the existence of such authorization is known to the recipient of the person represented by the recipient. ______________________________________________ R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
> > From: Leif Ruckman [mailto:leif.ruckman at kau.se] > > Sent: Friday, February 16, 2018 3:27 PM > > To: PIKAL Petr <petr.pikal at precheza.cz> > > Subject: RE: stem - strange leaves > > > > Thank you, I also found that solution but I think it is strange that > > this happens at all. I have tried different data and sometimes this > > happens and sometimes it doesn't so I would like to understand why.C code is at https://github.com/wch/r-source/blob/trunk/src/library/graphics/src/stem.c stem() sets the bin width for a 'pretty' number of categories, taking some account of the number of data points. There are (inevitably) some somewhat arbitrary choices in there about what looks right. But the important thing is that changing the number of items can trigger a threshold change in bin width. One of those triggers relies in part on >= tests applied to a value calculated (in part) from 150/(n + 50). That would be (within available precision) exactly 2 for n=25; slightly smaller for n=26. In your case, your extra data point takes you from n=25 to n=26 values - in turn triggering a change in bin width for your particular data range. That in turn triggers a decimal place shift to leave two significant digits left of the '|' marker. Since all your data are rounded to the first decimal place, with an implied trailing zero, you only have zeroes after the first two significant digits. So - with due deference to 'California dreaming' - all the leaves are zero. Steve Ellison ******************************************************************* This email and any attachments are confidential. Any use, copying or disclosure other than by the intended recipient is unauthorised. If you have received this message in error, please notify the sender immediately via +44(0)20 8943 7000 or notify postmaster at lgcgroup.com and delete this message and any copies from your computer and network. LGC Limited. Registered in England 2991879. Registered office: Queens Road, Teddington, Middlesex, TW11 0LY, UK