更改Partykit中的标签

Question

在partykit包中，我想要对边上的数字标签进行舍入和格式化。我该怎么办？
例如，下面，我希望能够将<11897.65转换为<11,898。小数位后舍入到0位数，并在数千位后插入逗号。

Example

Answer 1

边缘的标记由edge_simple()生成的面板函数完成，请参阅?edge_simple。您可以使用ep_args将参数传递给边缘面板生成器，例如，

library("partykit")
ct <- ctree(Species ~ ., data = iris)
plot(ct, ep_args = list(digits = 0))

edge_simple()不支持插入逗号以分隔数千个。如果您想拥有它，可以复制edge_simple()的代码并自行添加此类格式。但是，我建议简单地将相应的变量除以1000，这将产生易于阅读的内容。