Arrotondamento dei numeri a 10 in R

Question

Ora, ci sono state alcune domande molto simili su SO su arrotondamento e significato, ma non risolve il problema. Eccolo:

Come per arrotondare i numeri che si verificano in modo casuale come questi:

data <- c(152.335, 39.431, 21.894) 

vorrei averli arrotondati come questo:

c(150,40,20) 

ho provato:

print(formatC(signif(data,digits=2), digits=2,format="f")) 

Uscita:

[1] "150.00" "39.00" "22.00" 

Il comando precedente richiede di modificare digits= in 1 o 2 per ottenere il risultato desiderato. Ma vorrei un comando globale adatto a tutti. Grazie.

Answer 1

Da ?round

Arrotondare a un numero negativo di cifre significa arrotondare a una potenza di di dieci, quindi ad esempio 'round (x, cifre = -2)' arrotondamenti al centesimo più vicino a .

Quindi,

data <- c(152.335, 39.431, 21.894) 
round(data, -1) 
#[1] 150 40 20 

Answer 2

In realtà si desidera un argomento diverso per signif qui. Questo sembra fare il trucco - 2 cifre per il primo argomento, uno per gli ultimi due:

R> dat <- c(152.335, 39.431, 21.894) 
R> dat 
[1] 152.335 39.431 21.894 
R> signif(dat, digits=c(2,1,1)) 
[1] 150 40 20 
R> 

È forse possibile generalizzare questo attraverso qualcosa di simile

R> signif(dat, digits=floor(log10(dat))) 
[1] 150 40 20 
R>