如何在r中将维恩图与决策树图结合起来

install.packages("venneuler")
install.packages("rpart")

library(venneuler)

# 创建维恩图数据
venn_data <- c(A = 50, B = 30, C = 20, AB = 10, AC = 5, BC = 8, ABC = 2)

# 创建维恩图
venn <- venneuler(venn_data)
plot(venn)

library(rpart)

# 创建决策树
decision_tree <- rpart(Class ~ ., data = dataset)

# 可视化决策树
plot(decision_tree)
text(decision_tree)

# 创建一个新的绘图区域
par(new = TRUE)

# 绘制决策树图
plot(decision_tree, box = FALSE, ann = FALSE, main = "")

# 添加维恩图
venn_areas <- venn$areas
venn_labels <- venn$labels
venn_circles <- venn$circles

for (i in 1:length(venn_areas)) {
  polygon(venn_areas[[i]], col = i, border = "black")
  text(venn_labels[[i]], pos = venn_circles[[i]], col = "white")
}