树图中的翘曲标签答案

【问题标题】：Warping labels in tree plots树图中的翘曲标签
【发布时间】：2016-11-24 14:26:03
【问题描述】：

我正在使用几个树形图（ctree、evtree、rpart、chaid）并且我依赖于分类数据。数据级别用文本标签描述。在plot中，显示的文本是属于左节点还是右节点，并不清楚。

是否可以扭曲绘图中的文本标签，或者为左右节点中显示的文本提供略微不同的垂直对齐方式？

根据要求，这是在情节中产生此类问题的代码：

     <- data.frame(
  y = as.factor(sample(1:3,200,r=T)),
  x1 = as.factor(sample(1:3,200,r=T)),
  x2 = as.factor(sample(1:3,200,r=T)),
  x3 = as.factor(sample(1:3,200,r=T)),
  x4 = as.factor(sample(1:3,200,r=T))
)


Df1[1:5] <- lapply(Df1[1:5], function(x) factor(x, levels = c(1,2,3),labels = c("long long long long long text","text1","lorem ipsum dolor")))


library("partykit")
library("rpart")
library("evtree")
library("CHAID")


rp <- rpart(y ~ .,data=Df1, minbucket=30) 
plot(as.party(rp))
ct <- ctree(y~ . , data = Df1, minbucket=50)
plot(ct)
ev <- evtree(y ~ ., data = Df1, maxdepth = 5)
plot(ev)
ctrl <- chaid_control(minsplit=90, minbucket=30, minprob=0.05,alpha2=0.01, alpha3=-1, alpha4=0.01)
chaid1 <- chaid( y ~ ., data= Df1, control=ctrl)
plot(chaid1,cex=0.6)

【问题讨论】：

请添加生成此类图所需的代码（它可以是一小部分数据，或者最好是模拟集）。

标签： r classification

【解决方案1】：

无法看到使用?plot.party 中的参数如何实现这一点。但是，您可以将 \n（新行）添加到因子水平。

levels(Df1$x2)[1] <- "long long long \n long long text"
plot(as.party(rp))

【讨论】：