更改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，這會產生一些易讀的東西。