Jak v Excelu 2007 vytvořit stem‑and‑leaf diagram

Úvod

Stem‑and‑leaf diagram (stemplot) je typ grafu, který zobrazuje statistická data a zároveň zachovává každou jednotlivou hodnotu. Na rozdíl od koláčových grafů nebo histogramů neagreguje data do intervalů, takže můžete vidět všechny původní čísla.

Příprava sešitu

1. Přejmenujte první prázdný list na Data – klikněte na jeho záložku a zadejte nový název.
2. Přejmenujte druhý prázdný list na Stem.
3. Do sloupce A listu Data vložte seznam čísel, ze kterých chcete vytvořit diagram.

Spuštění VBA editoru

1. Stiskněte Alt + F11 a otevře se editor Visual Basic.
2. V levém podokně dvojklikněte na ThisWorkbook pod Microsoft Excel Objects. Otevře se prázdné okno pro kód.

Vložený VBA kód

Do okna vložte následující makro a poté stiskněte F5 pro jeho spuštění.

Sub StemAndLeaf()
    Dim dataColumn As Long: dataColumn = 1
    '--- Vyčistit list Stem
    Worksheets("Stem").Cells.Clear
    '--- Aktivovat list Data
    Worksheets("Data").Activate
    '--- Najít maximální hodnotu
    Dim rowPointer As Long: rowPointer = 2
    Do Until Cells(rowPointer, 1).Value = ""
        rowPointer = rowPointer + 1
    Loop
    Dim Maximum As Double: Maximum = Cells(rowPointer - 1, dataColumn).Value
    '--- Zvolit dělitel pro oddělení listů (stem) a listů (leaf)
    Dim divisor As Double: divisor = 1
    Do Until Maximum / divisor <= 10
        divisor = divisor * 10
    Loop
    If Fix(Maximum / divisor) < 5 Then divisor = divisor * 10
    Dim topStem As Long: topStem = Fix(Maximum / divisor)
    '--- Nastavit hlavičku v listu Stem
    Worksheets("Stem").Activate
    Cells(1, 1).Value = "Count"
    Cells(1, 2).Value = "Stem"
    Cells(1, 3).Value = "Leaves"
    For rowPointer = 2 To topStem + 2
        Cells(rowPointer, 2).Value = rowPointer - 2
        Cells(rowPointer, 3).Value = "|"
    Next rowPointer
    '--- Spočítat četnosti
    Worksheets("Data").Activate
    rowPointer = 2
    Do Until Cells(rowPointer, dataColumn).Value = ""
        Dim measurement As Double: measurement = Cells(rowPointer, dataColumn).Value
        Dim Stem As Long: Stem = Fix(measurement / divisor)
        Worksheets("Stem").Cells(Stem + 2, 1).Value = Worksheets("Stem").Cells(Stem + 2, 1).Value + 1
        rowPointer = rowPointer + 1
    Loop
    '--- Zjistit maximální četnost a faktor zmenšení
    Worksheets("Stem").Activate
    Dim maximumCount As Long: maximumCount = 0
    For rowPointer = 2 To topStem + 2
        If Cells(rowPointer, 1).Value > maximumCount Then
            maximumCount = Cells(rowPointer, 1).Value
        End If
    Next rowPointer
    Dim shrinkFactor As Long: shrinkFactor = Fix(maximumCount / 50)
    If shrinkFactor < 1 Then shrinkFactor = 1
    Cells(1, 4).Value = "Každá číslice představuje " & shrinkFactor & " případů."
    '--- Vyplnit listy (leaves)
    Worksheets("Data").Activate
    rowPointer = 2
    Do Until Cells(rowPointer, dataColumn).Value = ""
        measurement = Cells(rowPointer, dataColumn).Value
        Stem = Fix(measurement / divisor)
        Dim leaf As Long: leaf = measurement - Stem * divisor
        leaf = Fix(leaf * 10 / divisor)
        Worksheets("Stem").Cells(Stem + 2, 3).Value = Worksheets("Stem").Cells(Stem + 2, 3).Value & Trim(Str(leaf))
        rowPointer = rowPointer + shrinkFactor
    Loop
    Worksheets("Stem").Activate
End Sub

Výsledek

Po spuštění makra se v listu Stem objeví kompletní stem‑and‑leaf diagram. Každý řádek představuje „stem“ (část čísel) a za svislým čarou jsou uvedeny „leaves“ (jednotlivé jednotky).

Tipy

• Po úpravě dat v listu Data stačí znovu spustit makro StemAndLeaf – diagram se automaticky aktualizuje.
• Pokud chcete změnit měřítko, upravte proměnnou shrinkFactor v kódu.