使用ctree显示每个节点中的体积，在R中绘图

有谁能告诉我如何在每个节点中添加卷，而不是在最终节点卷中添加卷

t <- ctree(is_return ~ a + b + c)    
plot(t, type="simple")

t

其思想是指定用于绘制内部节点的面板函数

我生成了一些数据，树

lls <- data.frame(N = gl(3, 50, labels = c("A", "B", "C")), 
                  a = rnorm(150) + rep(c(1, 0,150)),
                  b = runif(150))
pond= sample(1:5,150,replace=TRUE)
tt <- ctree(formula=N~a+b, data=lls,weights = pond)

PS：结果取决于随机生成的数据，因此您可能不会得到相同的绘图。
导出决策树时，请更改图像的尺寸。对于具有200个终端节点的决策树，其宽度应为30.000左右。
请提供一个可复制的示例？解释一下什么是N？哦，这里的N是体积，比如说样本，N=100，意思是100落入黑方块中。但我想在b框和c框中加上N。。假设150落入b椭圆，我想在其中添加N=150。@JPC不客气。下次请尝试制作一个好的可重复的例子。当我有时间的时候，我会使用ggplot2内部_函数来做版本。我正在尝试将节点标签（“A”、“B”、“C”）添加回内部_面板，但没有成功。你能告诉我怎么去吗？谢谢。@JPC一个提示，在innerWeights的开头放一个browser（），看看你的节点参数……谢谢！我需要给你寄一张感谢卡！真正地我对R很陌生，但R社区对像我这样的新手很好。@JPC欢迎来到R，但我也是一个新手！你在工作或学习中使用R吗？
innerWeights <- function(node){
  grid.circle(gp = gpar(fill = "White", col = 1))
  mainlab <- paste( node$psplit$variableName, "\n(n = ")
  mainlab <- paste(mainlab, sum(node$weights),")" , sep = "")
  grid.text(mainlab,gp = gpar(col='red'))
}

plot(tt, type='simple', inner_panel = innerWeights)