rpart.plot删除科学记数法

Question

> fit <- rpart(price ~ carat + cut + clarity, diamonds_train, method = "anova")

> rpart.plot(fit, type = 4, extra = 101)

我试过了options(scipen=10)，但它没有用。如何删除科学记数法？

Answer 1

对digits参数使用负值。 rpart.plot帮助页面显示如果digits为否定，则rpart.plot使用标准R format函数（绝对值为digits）：

library(ggplot2)
data(diamonds)
library(rpart.plot)
fit <- rpart(price ~ carat + cut + clarity, diamonds, method = "anova")
rpart.plot(fit, type = 4, extra = 101, digits=-3)

这需要rpart.plot版本2.1.2或更高版本。您可以使用值digits=-3来获得所需的确切显示。