rpart 绘图文本较短

我正在使用prp函数从rpart.plot包来绘制一棵树。对于像状态这样的分类数据，它给出了一个非常长的变量列表，并且使其可读性较差。如果超过一定长度，有什么方法可以将文本换行为两行或更多行吗？

这是一个将长分割标签包装在多个标签上的示例 线。每行的最大长度为 25 个字符。改变 25 以满足您的目的。 （此示例源自第 6.1 节 这rpart.plot 小插图 http://www.milbo.org/doc/prp.pdf.)

tree <- rpart(Price/1000 ~ Mileage + Type + Country, cu.summary)

split.fun <- function(x, labs, digits, varlen, faclen)
{
    # replace commas with spaces (needed for strwrap)
    labs <- gsub(",", " ", labs)
    for(i in 1:length(labs)) {
        # split labs[i] into multiple lines
        labs[i] <- paste(strwrap(labs[i], width=25), collapse="\n")
    }
    labs
}

prp(tree, split.fun=split.fun)