Salah satu untuk meringkaskan data adalah dengan membuat diagram batang daun. Hampir software pengolahan angka bisa membuat diagram ini, namun dalam artikel ini hanya bahas pembuatan batang daun dengan software R.

Secara umum pembuatan diagram ini sangat sederhana, yakni menggunakan satu perintah saja, yaitu stem(). Berikut adalah contohnya, dimana saya menggunakan data yang sudah terpasang di Ri, yaitu attitudde.

>data("attitude")
> attitude
   rating complaints privileges learning raises critical advance
1      43         51         30       39     61       92      45
2      63         64         51       54     63       73      47
3      71         70         68       69     76       86      48
4      61         63         45       47     54       84      35
5      81         78         56       66     71       83      47
6      43         55         49       44     54       49      34
7      58         67         42       56     66       68      35
8      71         75         50       55     70       66      41
9      72         82         72       67     71       83      31
10     67         61         45       47     62       80      41
11     64         53         53       58     58       67      34
12     67         60         47       39     59       74      41
13     69         62         57       42     55       63      25
14     68         83         83       45     59       77      35
15     77         77         54       72     79       77      46
16     81         90         50       72     60       54      36
17     74         85         64       69     79       79      63
18     65         60         65       75     55       80      60
19     65         70         46       57     75       85      46
20     50         58         68       54     64       78      52
21     50         40         33       34     43       64      33
22     64         61         52       62     66       80      41
23     53         66         52       50     63       80      37
24     40         37         42       58     50       57      49
25     63         54         42       48     66       75      33
26     66         77         66       63     88       76      72
27     78         75         58       74     80       78      49
28     48         57         44       45     51       83      38
29     85         85         71       71     77       74      55
30     82         82         39       59     64       78      39
> stem(attitude$rating, scale = 1)

  The decimal point is 1 digit(s) to the right of the |

  4 | 033
  4 | 8
  5 | 003
  5 | 8
  6 | 13344
  6 | 5567789
  7 | 1124
  7 | 78
  8 | 112
  8 | 5

> stem(attitude$rating, scale = 2)

  The decimal point is at the |

  40 | 0
  42 | 00
  44 |
  46 |
  48 | 0
  50 | 00
  52 | 0
  54 |
  56 |
  58 | 0
  60 | 0
  62 | 00
  64 | 0000
  66 | 000
  68 | 00
  70 | 00
  72 | 0
  74 | 0
  76 | 0
  78 | 0
  80 | 00
  82 | 0
  84 | 0