(我还在学习如何在R中处理图像;这在某种程度上是rpart package: Save Decision Tree to PNG的延续)
我正在尝试将rpart中的决策树图保存为PNG格式,而不是提供的postscript。我的代码如下所示:
png("tree.png", width=1000, height=800, antialias="cleartype")
plot(fit, uniform=TRUE,
main="Classification Tree")
text(fit, use.n=TRUE, all=TRUE, cex=.8)
dev.off()
但是剪切了两边边缘节点的一小部分标签。这在原始的post
图像中不是问题,我将其转换为png只是为了检查。我尝试过在par
中使用oma
和mar
设置,它们被推荐作为标签/文本问题的解决方案,两者都在图像周围添加了空白,但不再显示标签。有没有办法让文本适合你呢?
发布于 2014-03-14 03:33:35
rpart.plot
包绘制rpart树,并自动处理边距和相关问题。使用rpart.plot
(而不是rpart
包中的plot
和text
)。例如:
library(rpart.plot)
data(ptitanic)
fit <- rpart(survived~., data=ptitanic)
png("tree.png", width=1000, height=800, antialias="cleartype")
rpart.plot(fit, main="Classification Tree")
dev.off()
发布于 2015-02-09 13:50:20
默认边距为0。因此,如果你的文本是一组单词或者只是一个很长的单词,试着在情节调用中留出更多的余量。例如,
plot(fit, uniform=TRUE,margin=0.2)
text(fit, use.n=TRUE, all=TRUE, cex=.8)
或者,您可以通过在文本调用中更改cex来调整文本字体大小。例如,
plot(fit, uniform=TRUE)
text(fit,use.n=TRUE, all=TRUE, cex=.7)
当然,您可以调整绘图调用中的标记和文本调用中的cex,以获得您想要的结果。
发布于 2017-01-03 01:10:37
在rpart man上,作者在示例中给出了解决方案,即使用xpd = NA
设置par选项
par(mfrow = c(1,2), xpd = NA)
否则,在某些设备上,文本会被裁剪
https://stackoverflow.com/questions/16426007
复制相似问题