2016-12-11 13 views
1
> fit <- rpart(price ~ carat + cut + clarity, diamonds_train, method = "anova") 

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

Я пробовал options(scipen=10), но это не сработало. Как удалить научную нотацию?rpart.plot удалить научные обозначения

enter image description here

+0

Цитирование из документации rpart.plot по параметрам цифр: Число значащих цифр в отображаемых номерах. По умолчанию 2. Если 0, используйте getOption («цифры»). Детали: цифры от 0,001 до 9999 печатаются без экспоненты (и количество цифр на самом деле является лишь предложением, см. Формат для подробностей). Номера этого диапазона печатаются с показателем «инженерный» (кратным 3). – Sandeep

ответ

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, чтобы получить точный дисплей.