Ustawienie domyślnej liczby miejsc dziesiętnych do drukowania

Question

Uruchomiłem kod, aby uzyskać wydruki, w których chcę wydrukować wszystkie wyjścia z 1 miejscem dziesiętnym. Jednak kod wykorzystuje funkcje, które ogólnie używam i nie chcę w nich podawać, że wydrukowane dane są zaokrąglone.

Odpowiedzi na to pytanie Formatting Decimal places in R sugerują użycie options(digits=2) lub round(x, digits=2).

Pierwsza opcja jest ogólnym ustawieniem, które jest idealne dla zaokrąglenia 1.234 do 1.2 ale wydrukować 12.345 jak 12

Druga opcja będzie działać, jeśli umieścić wewnątrz funkcji, ale nie chcę ich dotknąć. Jak ustawić to ogólnie?

Answer 1

Można to zrobić:

print <- function(x, ...) { 
    if (is.numeric(x)) base::print(round(x, digits=2), ...) 
    else base::print(x, ...) 
} 

Answer 2

Lubię formatC numerów Drukowanie z określonej liczby miejsc po przecinku. W ten sposób 1 powinno być zawsze drukowane jako "1.0", gdyi format = "f". Możesz utworzyć metodę drukowania S3 dla obiektów klasy numerycznej, takich jak:

print.numeric<-function(x, digits = 1) formatC(x, digits = digits, format = "f") 

print(1) 
# [1] "1.0" 

print(12.4) 
# [1] "12.4" 

print(c(1,4,6.987)) 
# [1] "1.0" "4.0" "7.0" 

print(c(1,4,6.987), digits = 3) 
# [1] "1.000" "4.000" "6.987"