翻转R中的概率树

Question

目前正在学习决策分析课程。有一个名为“翻转概率树”的概念，如下例所示。

我可以知道：

（1）有没有办法在R中执行上述图形？我尝试查看rpart，party，rpart.plot这样的软件包，但没有走得太远。

（2）如果无法进行图形表示，是否存在可以轻松计算各种分支概率，端点概率的R函数？