决策树绘图中边缘的小数位数数量（使用ggparty）

要在决策树绘图中设置边缘的小数位数数量，可以使用ggparty包中的geom_edge_text函数。下面是一个示例代码：

library(ggplot2)
library(ggparty)

# 创建一个数据集
data <- data.frame(
  x1 = sample(1:10, 100, replace = TRUE),
  x2 = sample(1:10, 100, replace = TRUE),
  y = sample(c("A", "B", "C"), 100, replace = TRUE)
)

# 使用ctree创建决策树模型
model <- ctree(y ~ x1 + x2, data)

# 绘制决策树
p <- ggplot(model) +
  theme_bw() +
  geom_edge_text(size = 3, face = "bold", round = 2) + # 设置边缘文字的大小、字体和小数位数数量
  geom_tree() +
  geom_nodetext(size = 5, hjust = -0.1, vjust = 0.5, col = "black") + # 设置节点文字的大小和位置
  labs(title = "决策树绘图") +
  theme(plot.title = element_text(hjust = 0.5))

# 显示决策树
print(p)

在上面的代码中，我们首先加载了ggplot2和ggparty包。然后，创建了一个包含两个特征和一个目标变量的数据集。接下来，使用ctree函数创建了一个决策树模型。最后，使用ggplot和ggparty中的相关函数来绘制决策树，并设置边缘文字的大小、字体和小数位数数量。