Diagrama de árbol de decisión de TikZ: ¿eliminar líneas adicionales y nodos circulares?

Question

Estoy trabajando en un artículo en LaTeX y estoy intentando insertar un diagrama de árbol de decisión simple usando TikZ. Sin embargo, no se me da bien TikZ y tengo dos pequeños problemas con mi árbol.

Este es mi árbol en este momento y tengo problemas con él de dos maneras:

1. Me gustaría deshacerme de la línea horizontal adicional antes del R=0 superior.
2. Me gustaría que los nodos estuvieran dentro de círculos.

Nuevamente, no soy bueno con TikZ y parece que no puedo hacerlo funcionar. Mi código está debajo.

{
% Set the overall layout of the tree
\tikzstyle{level 1}=[level distance=3.5cm, sibling distance=3.5cm]
\tikzstyle{level 2}=[level distance=3.5cm, sibling distance=2cm]

% Define styles for bags and leafs
\tikzstyle{bag} = [text width=4em, text centered]
\tikzstyle{end} = [circle, minimum width=3pt,fill, inner sep=0pt]

%TODO: fix top node
\begin{figure}[h]
\centering
\begin{tikzpicture}[grow=right, sloped, scale=0.8]
\node[bag] {$L$}
    child {
        node[bag] {$D$}        
            child {
                node[bag] {$P$}
                    child {
                        node[bag] {$C$}
                            child {
                                node[end, label=right:
                                {$\mathbf{R=1}$}] {}
                                edge from parent
                                %node[above] {$E$}
                                node[below]  {$C=0$}
                            }
                            child {
                                node[end, label=right:
                                {$\mathbf{R=0}$}] {}
                                edge from parent
                                %node[above] {$E$}
                                node[below]  {$C=1$}
                            }
                        edge from parent
                        %node[above] {$E$}
                        node[below]  {$P=0$}
                    }
                    child {
                        node[end, label=right:
                        {$\mathbf{R=0}$}] {}
                        edge from parent
                        %node[above] {$E$}
                        node[below]  {$P=1$}
                    }
                edge from parent
                %node[above] {$W$}
                node[below]  {$D=0$}
            }
            child {
                node[end, label=right:
                    {$\mathbf{R=0}$}] {}
                edge from parent
                %node[above] {$E$}
                node[below]  {$D=1$}
            }
            edge from parent 
            %node[above] {$W$}
            node[below]  {$L=0$}
    }
    child {
           child {
            node[end, label=right:
            {$\mathbf{R=0}$}] {}
            edge from parent
            %node[above] {$E$}
            %node[below]  {$C=0$}
           }
        edge from parent         
            %node[above] {$B$}
            node[below]  {$L=1$}
    };
\end{tikzpicture}
\end{figure}
}

Si alguien que sea mejor que yo en TikZ pudiera ayudarme con esto, se lo agradecería mucho.

Answer 1

Lo descubrí, con la ayuda dehttps://tex.stackexchange.com/a/240766/77231.

Aquí está mi nueva foto:

Y mi nuevo código:

\documentclass[tikz]{standalone}
\usepackage{forest}
\begin{document}
\tikzset{
    decision/.style={circle, minimum height=10pt, minimum width=10pt, draw=black, fill=none, thick, inner sep=0pt},
    chance/.style={circle, minimum width=10pt, draw=black, fill=none, thick, inner sep=0pt},
  }
 \begin{forest}
    my label/.style={
      edge label={node[auto,sloped,pos=.75,anchor=south]{#1}}
    },
    for tree={
      grow=0,
      child anchor=west,
      anchor=west,
      text ragged,
      inner sep=1mm,
      edge={thick, draw=black},
      l sep+=15mm,
      s sep+=15mm,
      if n children=0{
        before typesetting nodes={
          label/.wrap pgfmath arg={right:#1}{content()},
          content={},
          chance,
        },
      }{},
      edge path={
        \noexpand\path [draw, \forestoption{edge}] (!u.parent anchor) |- (.child anchor)\forestoption{edge label};
      }
    }
    [, decision
      [, chance, my label={$L=0$}
        [, chance, my label={$D=0$}
          [, chance, my label={$P=0$}
            [{$\mathbf{R=1}$}, my label={$C=0$}
            ]
            [{$\mathbf{R=0}$}, my label={$C=1$}
            ]
          ]
          [{$\mathbf{R=0}$}, my label={$P=1$}
          ]
        ]
        [{$\mathbf{R=0}$}, my label={$D=1$}
        ]
      ]
      [{$\mathbf{R=0}$}, my label={$L=1$}
      ]
    ]
  \end{forest}
\end{document}

Creo que esto es mucho más ordenado y mejor. Gracias de nuevo a la respuesta de cfr ahttps://tex.stackexchange.com/a/240766/77231!