TreePlot[{
{0 -> "Mr 1", 1/10},
{0 -> "Mr 2", 2/10},
{0 -> "Mr 3", 3/10},
{0 -> "Mr 4", 4/10},
{"Mr 1" -> "A1", 2/10 },
{"Mr 1" -> "B1", 1/10 },
{"Mr 1" -> "C1", 7/10 },
{"Mr 2" -> "A2", 3/10 },
{"Mr 2" -> "B2", 2/10 },
{"Mr 2" -> "C2", 5/10 },
{"Mr 3" -> "A3", 4/10 },
{"Mr 3" -> "B3", 3/10 },
{"Mr 3" -> "C3", 3/10 },
{"Mr 4" -> "A4", 5/10 },
{"Mr 4" -> "B4", 4/10 },
{"Mr 4" -> "C4", 1/10 }
},
VertexLabels ->
{
{0 -> None},
{ "A1" -> "A" },
{ "B1" -> "B" },
{ "C1" -> "C" },
{ "A2" -> "A" },
{ "B2" -> "B" },
{ "C2" -> "C" },
{ "A3" -> "A" },
{ "B3" -> "B" },
{ "C3" -> "C" },
{ "A4" -> "A" },
{ "B4" -> "B" },
{ "C4" -> "C" }
},
DirectedEdges -> True
]
Here is what I have. However, that's far from what I need.
A few modifications are: 1 - to put it horizontally? 2 - Why aren't the labels showing? 3 - Could I increase the spaces between the edges so that the probabilities are displayed better?
Thanks.