\documentclass[tikz, crop, border=5pt]{standalone}
\usetikzlibrary{positioning,backgrounds,fit}
\usepackage{forest}

\usepackage{fontspec,xltxtra,xunicode}

% English Fonts
\setmainfont[BoldFont={Fira Sans}]{Fira Sans Light}

% 中文字体
\usepackage{xeCJK}
\setCJKmainfont[BoldFont=Source Han Sans SC Medium]{Source Han Sans SC Normal}
\xeCJKsetup{CJKecglue = {\hskip 0pt plus 0.08\baselineskip}, xCJKecglue = {false}}
\punctstyle{plain}
\defaultfontfeatures{Mapping=tex-text,Scale=MatchLowercase}

% Avoid using xcolor dvipsnames
% https://en.wikibooks.org/wiki/LaTeX/Colors
% https://www.color-hex.com/
\definecolor{black}{RGB}{26,25,25}
\definecolor{grey}{RGB}{129,130,132}
\definecolor{red}{RGB}{188,36,46}
\definecolor{brown}{RGB}{121,37,0}
\definecolor{green}{RGB}{32,128,108}
\definecolor{purple}{RGB}{160,90,150}
\definecolor{blue}{RGB}{0,103,149} % MidnightBlue
% Upper case colors for backgrounds
% https://coolors.co/palette/fbf8cc-fde4cf-ffcfd2-f1c0e8-cfbaf0-a3c4f3-90dbf4-8eecf5-98f5e1-b9fbc0
\definecolor{LemonChiffon}{RGB}{251, 248, 204}
\definecolor{ChampagnePink}{RGB}{253, 228, 207}
\definecolor{TeaRose}{RGB}{255, 207, 210}
\definecolor{PinkLavender}{RGB}{241, 192, 232}
\definecolor{Mauve}{RGB}{207, 186, 240}
\definecolor{JordyBlue}{RGB}{163, 196, 243}
\definecolor{NonPhotoBlue}{RGB}{144, 219, 244}
\definecolor{ElectricBlue}{RGB}{142, 236, 245}
\definecolor{Aquamarine}{RGB}{152, 245, 225}
\definecolor{Celadon}{RGB}{185, 251, 192}

\tikzset{
    comment/.append  style={label={[font=\small]0:#1}},
}
\forestset{
    /tikz/label position=below left,
    /tikz/label distance=.1em,
    dot/.style={tikz+={\fill[fill=#1] (.child anchor) circle[radius=2pt];}},
    dot/.default=black,
    bar/.style={tikz+={\draw[color=#1,line width=2pt] let \p1 = (!u.parent anchor), \p2 = (.child anchor) in ($(\x1, \y2 - 0.5em)!0.5!(\x2, \y2)$) -- ($(\x1, \y2 + 0.5em)!0.5!(\x2, \y2)$);}},
    bar/.default=black,
    rec/.style={tikz+={\scoped[on background layer]{ \node[draw=none, fill=#1, rectangle, fit to=tree, inner sep=-2pt, ] {};} }},
    rec/.default=Thistle,
}

\begin{document}

\begin{forest}
    where n children=0{tier=word}{},
    for tree={
        s sep=-4pt, % make siblings closer
        grow=0, % 0 degrees is to the right
        reversed, % tree_direction
        align=left,
        parent anchor=east,
        child anchor=west,
        anchor=west,
        edge path={
            \noexpand\path[draw, grey, line width=1pt, \forestoption{edge}]
                (!u.parent anchor) |- (.child anchor)\forestoption{edge label};
        },
        before typesetting nodes={
            if content={}{shape=coordinate}{}
        },
    }
[, l=0mm, l sep=0,
  [, l=19mm, l sep=0,
    [, l=5mm, l sep=0,
      [, l=4mm, l sep=0,
        [, l=2mm, l sep=0,
          [, l=13mm, l sep=0,
            [, l=5mm, l sep=0,
              [, dot={black}, rec={LemonChiffon}, label={Hominoidea}, l=2mm, l sep=0,
                [, l=1mm, l sep=0,
                  [, l=2mm, l sep=0,
                    [, l=1mm, l sep=0,
                      [, l=0mm, l sep=0,
                        [{Homo sapiens}, l=2mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                        [{Pan troglodytes}, l=1mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                      ]
                      [{Pan paniscus}, l=1mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                    ]
                    [{Gorilla gorilla gorilla}, l=2mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                  ]
                  [{Pongo pygmaeus abelii}, l=4mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                ]
                [{Nomascus leucogenys}, l=5mm, l sep=0, [{~},tier=0,edge={draw=none}],]
              ]
              [, dot={black}, rec={TeaRose}, label={Cercopithecidae}, l=5mm, l sep=0,
                [, l=2mm, l sep=0,
                  [, l=0mm, l sep=0,
                    [, l=0mm, l sep=0,
                      [, l=1mm, l sep=0,
                        [{Macaca mulatta}, l=1mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                        [, l=0mm, l sep=0,
                          [{Macaca fascicularis}, l=0mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                          [{Macaca nemestrina}, l=1mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                        ]
                      ]
                      [{Cercocebus atys}, l=1mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                    ]
                    [{Papio anubis}, l=2mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                  ]
                  [, l=0mm, l sep=0,
                    [{Chlorocebus sabaeus}, l=4mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                    [{Mandrillus leucophaeus}, l=2mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                  ]
                ]
                [, l=2mm, l sep=0,
                  [, l=0mm, l sep=0,
                    [{Nasalis larvatus}, l=2mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                    [{Colobus angolensis palliatus}, l=4mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                  ]
                  [, l=1mm, l sep=0,
                    [{Rhinopithecus roxellana}, l=0mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                    [{Rhinopithecus bieti}, l=0mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                  ]
                ]
              ]
            ]
            [, dot={black}, rec={Celadon}, label={Cebidae}, l=8mm, l sep=0,
              [, l=0mm, l sep=0,
                [, l=0mm, l sep=0,
                  [{Callithrix jacchus}, l=8mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                  [{Saimiri boliviensis}, l=7mm, l sep=0, [{~},tier=0,edge={draw=none}],]
                ]
                [{Cebus capucinus imitator}, l=6mm, l sep=0, [{~},tier=0,edge={draw=none}],]
              ]
              [{Aotus nancymaae}, l=5mm, l sep=0, [{~},tier=0,edge={draw=none}],]
            ]
          ]
          [{Tarsius syrichta}, l=31mm, l sep=0, [{~},tier=0,edge={draw=none}],]
        ]
        [, l=7mm, l sep=0,
          [, l=8mm, l sep=0,
            [, l=1mm, l sep=0,
              [{Microcebus murinus}, l=12mm, l sep=0, [{~},tier=0,edge={draw=none}],]
              [{Propithecus coquereli}, l=8mm, l sep=0, [{~},tier=0,edge={draw=none}],]
            ]
            [, l=9mm, l sep=0,
              [{Eulemur macaco}, l=0mm, l sep=0, [{~},tier=0,edge={draw=none}],]
              [{Eulemur flavifrons}, l=1mm, l sep=0, [{~},tier=0,edge={draw=none}],]
            ]
          ]
          [{Otolemur garnettii}, l=29mm, l sep=0, [{~},tier=0,edge={draw=none}],]
        ]
      ]
      [{Mus musculus}, l=75mm, l sep=0, [{~},tier=0,edge={draw=none}],]
    ]
    [{Canis lupus familiaris}, l=36mm, l sep=0, [{~},tier=0,edge={draw=none}],]
  ]
  [{Dasypus novemcinctus}, l=19mm, l sep=0, [{~},tier=0,edge={draw=none}],]
]
\draw[-, grey, line width=1pt] ($(current bounding box.south east)+(-10mm,-2mm)$) --++ (-10mm,0mm) node[midway, below]{\scriptsize{0.046}};
%END%
\end{forest}

\end{document}
