Zaokrąglanie liczb do najbliższych 10 w R

Question

W tej chwili pojawiły się bardzo podobne pytania na temat zaokrąglania i znaczenia, ale nie rozwiązuje mojego problemu. Oto ona:

Jak zaokrąglić liczby losowo występujące, takie jak:

data <- c(152.335, 39.431, 21.894) 

chciałbym mieć je zaokrąglone tak:

c(150,40,20) 

Próbowałem:

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

Wyjście:

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

Powyższe polecenie wymaga ode mnie zmiany digits= na 1 lub 2 w celu uzyskania pożądanego rezultatu. Ale chciałbym mieć globalne dopasowanie do wszystkich poleceń. Dzięki.

Answer 1

Od ?round

Zaokrąglanie do ujemnej liczby cyfr oznacza zaokrąglanie do wartości z dziesięciu, więc na przykład "round (x, digits = -2)" runduje do najbliższych stu.

Więc

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

Answer 2

Tutaj naprawdę chcesz inny argument dla signif. Wydaje się to załatwi - 2 cyfry dla pierwszego argumentu, jeden do dwóch ostatnich:

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> 

Można ewentualnie uogólnić to przez coś jak

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