Я хочу построить дерево решений (по оценке пакета partykit), используя мощный пакет ggparty. Все хорошо, за исключением количества десятичных разрядов чисел c разделенных переменных. Как я могу отформатировать breaks_label
в geom_edge_label()
, например, чтобы изменить > 75.33333
в > 75.3
на графике ниже? round()
не работает. Я мог бы использовать обходной путь через общий options(digits = 3)
, но мне интересно, есть ли более прямой путь.
library("ggparty")
data("WeatherPlay", package = "partykit")
sp_o <- partysplit(1L, index = 1:3)
sp_h <- partysplit(3L, breaks = 75 + 1/3)
sp_w <- partysplit(4L, index = 1:2)
pn <- partynode(1L, split = sp_o, kids = list(
partynode(2L, split = sp_h, kids = list(
partynode(3L, info = "yes"),
partynode(4L, info = "no"))),
partynode(5L, info = "yes"),
partynode(6L, split = sp_w, kids = list(
partynode(7L, info = "yes"),
partynode(8L, info = "no")))))
py <- party(pn, WeatherPlay)
ggparty(py) +
geom_edge() +
# geom_edge_label() +
geom_edge_label(mapping = aes(label = paste(breaks_label))) +
geom_node_splitvar() +
geom_node_info()
Создано в 2020-03 -05 * Представить пакет (v0.3.0)