在R中实现带注释的决策（概率）树？

Question

我想知道如何在R中实现带注释的决策树或概率树，就像在这张图片中一样（它应该说明是否要购买一张票，如果你买的话更便宜时间。你有60％的机会及时制作，在这种情况下，门票是200美元。如果你没有及时制作，你将失去200美元，你将拥有买一张以后的票，价格是400美元。如果你只是购买已故的票，那就是$ 400）：

论点如下：你有60％的机会花200美元和40％的机会花600美元，这相当于0.6 * 200美元+ 0.4 * 600美元= 360美元，而如果你只是购买更贵的门票，你需要支付400美元。所以你应该选择更便宜的。

是否有针对那种带注释的决策树或概率树的R包？或者任何好的想法如何实现它？

谢谢， Signe