在R中，如何使分类树的分支在绘图中不重叠？

我有一棵树枝很多的树。这是我绘制这棵树的代码。问题是标签相互重叠，特别是在树的底部。有没有办法绘制树，这样标签就不会重叠

par(mfrow=c(1,1))
plot(prunedTree, type=c("uniform"))
text(prunedTree)

注意——我使用了“type=c（“uniform”）”，因为它有助于较低分支的可读性。此外，prunedTree是tree包中的类“tree”

这是目前正在生产的产品的样本

编辑：完全复制问题的代码

load(url("https://spark-public.s3.amazonaws.com/dataanalysis/samsungData.rda"))
samsungData$subject <- factor(samsungData$subject)
samsungData$activity <- factor(samsungData$activity)
samsungData <- samsungData[, !c(duplicated(names(samsungData)))]
names(samsungData) <- gsub("[.]", "", names(samsungData))
samsungData <- data.frame(samsungData)
trainDF <- samsungData[samsungData$subject %in% c(1,3,5,6),]
tree1 <- tree(activity ~ ., data=trainDF)
plot(tree1)
text(tree1)

加载（url）https://spark-public.s3.amazonaws.com/dataanalysis/samsungData.rda"))
samsungData$subject您有几个常规选项：

使用更宽的图形设备。（即
png（…，宽度=1200，高度=…）
）
使用
cex=0.5
（或更小）缩小文本
使用更简洁的列（即变量）名称
前三者的某种组合
我想我可以让
text.tree
在标记拆分时使用更少的有效数字，但我似乎无法做到这一点rpart默认情况下仅使用4位数字，这样也可以节省一些空间。
除了上面列出的joran指示之外，您还可以使用参数：


srt
来重新编辑文本
为文本指定不同的颜色

例如：

plot(tree1)
text(tree1,col=rainbow(5)[1:25],srt=85,cex=0.8)

您能否提供一个可复制的示例供我们使用？（你有什么理由使用tree而不是rpart吗？@joran关于你的第二个问题，因为我不知道它的存在或者为什么我更喜欢它。我会发布一些代码。