wyciąć funkcję w etykietowaniu R bez notacji naukowej do użycia w ggplot2

Używam cut i classIntervals do grupowania danych w R, które później wykreślam za pomocą ggplot2. Zatem podstawowa operacja przecinania przez kwantyle z n = 3 wyglądałaby tak:

library(classInt)

a<-c(1,10,100,1000,100000,1000000)
b<-cut(a, 
breaks=data.frame(
  classIntervals(
    a,n=3,method="quantile")[2])[,1],
include.lowest=T)

gdzieb byłoby:

[1] [1,70]          [1,70]          (70,3.4e+04]    (70,3.4e+04]    (3.4e+04,1e+06] (3.4e+04,1e+06]
Levels: [1,70] (70,3.4e+04] (3.4e+04,1e+06]

więc pierwsza linia tego wyjścia jest wektorem z moimi zgrupowanymi danymi, które mogę użyć w ggplot2. Ale zamiast tego wektora w notacji naukowej chciałbym, żeby były to etykiety[1,70] (70,34000] (3400,1000000]

Jak mogę to osiągnąć? Każda pomoc byłaby doceniana, także jeśli masz inne metody niż cięcie i klasę, aby osiągnąć ten sam rezultat.

questionAnswers(1)

yourAnswerToTheQuestion