가장 가까운 10 (또는 100 또는 X)으로 반올림하는 방법은 무엇입니까?

programing

가장 가까운 10 (또는 100 또는 X)으로 반올림하는 방법은 무엇입니까?

nasanasas 2020. 10. 6. 08:17

가장 가까운 10 (또는 100 또는 X)으로 반올림하는 방법은 무엇입니까?

데이터를 그리는 함수를 작성 중입니다. max데이터 세트의 최대 값보다 큰 y 축에 멋진 반올림 번호를 지정하고 싶습니다 .

특히 foo다음을 수행 하는 기능 을 원합니다 .

foo(4) == 5
foo(6.1) == 10 #maybe 7 would be better
foo(30.1) == 40
foo(100.1) == 110

나는

foo <- function(x) ceiling(max(x)/10)*10

가장 가까운 10으로 반올림하지만 임의의 반올림 간격에는 작동하지 않습니다.

R에서이 작업을 수행하는 더 좋은 방법이 있습니까?

가장 가까운 10의 거듭 제곱으로 반올림하려면 다음을 정의하십시오.

roundUp <- function(x) 10^ceiling(log10(x))

이것은 실제로 x가 벡터 일 때도 작동합니다.

> roundUp(c(0.0023, 3.99, 10, 1003))
[1] 1e-02 1e+01 1e+01 1e+04

.. 그러나 "좋은"숫자로 반올림하려면 먼저 "좋은"숫자가 무엇인지 정의해야합니다. 다음은 "nice"를 1부터 10까지의 좋은 기본 값을 가진 벡터로 정의 할 수있게합니다. 기본값은 짝수에 5를 더한 값으로 설정됩니다.

roundUpNice <- function(x, nice=c(1,2,4,5,6,8,10)) {
    if(length(x) != 1) stop("'x' must be of length 1")
    10^floor(log10(x)) * nice[[which(x <= 10^floor(log10(x)) * nice)[[1]]]]
}

x가 벡터 일 때는 위의 내용이 작동하지 않습니다. 지금은 너무 늦은 저녁입니다. :)

> roundUpNice(0.0322)
[1] 0.04
> roundUpNice(3.22)
[1] 4
> roundUpNice(32.2)
[1] 40
> roundUpNice(42.2)
[1] 50
> roundUpNice(422.2)
[1] 500

[[편집하다]]

질문이 지정된 가장 가까운 값 (예 : 10 또는 100)으로 반올림하는 방법이라면 James 대답 이 가장 적절 해 보입니다. 내 버전을 사용하면 어떤 값이든 합리적으로 "좋은"값으로 자동 반올림 할 수 있습니다. 위의 "nice"벡터의 다른 좋은 선택은 다음과 같습니다.1:10, c(1,5,10), seq(1, 10, 0.1)

예를 들어 플롯에 값 범위가있는 경우 [3996.225, 40001.893]자동 방법은 범위의 크기와 숫자의 크기를 모두 고려해야합니다. 로 그리고 해들리에 의해 지적 의 pretty()기능은 당신이 원하는 수 있습니다.

plyr라이브러리 함수가 round_any반올림의 모든 종류를 할 매우 일반적이다. 예를 들면

library(plyr)
round_any(132.1, 10)               # returns 130
round_any(132.1, 10, f = ceiling)  # returns 140
round_any(132.1, 5, f = ceiling)   # returns 135

R의 round 함수는 숫자 매개 변수가 음수이면 특별한 의미를 할당합니다.

round (x, 숫자 = 0)

음의 자릿수로 반올림한다는 것은 10의 거듭 제곱으로 반올림하는 것을 의미하므로 예를 들어 round (x, digits = -2)는 가장 가까운 100으로 반올림합니다.

이것은 다음과 같은 기능이 당신이 요구하는 것에 매우 가깝다 는 것을 의미합니다.

foo <- function(x)
{
    round(x+5,-1)
}

출력은 다음과 같습니다.

foo(4)
[1] 10
foo(6.1)
[1] 10
foo(30.1)
[1] 40
foo(100.1)
[1] 110

어때 :

roundUp <- function(x,to=10)
{
  to*(x%/%to + as.logical(x%%to))
}

다음을 제공합니다.

> roundUp(c(4,6.1,30.1,100.1))
[1]  10  10  40 110
> roundUp(4,5)
[1] 5
> roundUp(12,7)
[1] 14

round ()의 자릿수 인수에 음수를 추가하면 R은 10, 100 등의 배수로 반올림합니다.

    round(9, digits = -1) 
    [1] 10    
    round(89, digits = -1) 
    [1] 90
    round(89, digits = -2) 
    [1] 100

모든 숫자를 임의의 간격으로 올림 / 내림

모듈로 연산자를 사용하여 숫자를 특정 간격으로 쉽게 반올림 할 수 있습니다 %%.

함수:

round.choose <- function(x, roundTo, dir = 1) {
  if(dir == 1) {  ##ROUND UP
    x + (roundTo - x %% roundTo)
  } else {
    if(dir == 0) {  ##ROUND DOWN
      x - (x %% roundTo)
    }
  }
}

예 :

> round.choose(17,5,1)   #round 17 UP to the next 5th
[1] 20
> round.choose(17,5,0)   #round 17 DOWN to the next 5th
[1] 15
> round.choose(17,2,1)   #round 17 UP to the next even number
[1] 18
> round.choose(17,2,0)   #round 17 DOWN to the next even number
[1] 16

작동 원리 :

모듈로 연산자 %%는 첫 번째 숫자를 두 번째로 나눈 나머지를 결정합니다. 이 간격을 관심있는 수에 더하거나 빼면 기본적으로 선택한 간격으로 숫자를 '반올림'할 수 있습니다.

> 7 + (5 - 7 %% 5)       #round UP to the nearest 5
[1] 10
> 7 + (10 - 7 %% 10)     #round UP to the nearest 10
[1] 10
> 7 + (2 - 7 %% 2)       #round UP to the nearest even number
[1] 8
> 7 + (100 - 7 %% 100)   #round UP to the nearest 100
[1] 100
> 7 + (4 - 7 %% 4)       #round UP to the nearest interval of 4
[1] 8
> 7 + (4.5 - 7 %% 4.5)   #round UP to the nearest interval of 4.5
[1] 9

> 7 - (7 %% 5)           #round DOWN to the nearest 5
[1] 5
> 7 - (7 %% 10)          #round DOWN to the nearest 10
[1] 0
> 7 - (7 %% 2)           #round DOWN to the nearest even number
[1] 6

최신 정보:

편리한 2- 인수 버전 :

rounder <- function(x,y) {
  if(y >= 0) { x + (y - x %% y)}
  else { x - (x %% abs(y))}
}

양수 y값 roundUp, 음수 y값 roundDown:

 # rounder(7, -4.5) = 4.5, while rounder(7, 4.5) = 9.

또는....

기능 자동으로 반올림 또는 DOWN을 표준 반올림 규칙에 따라 :

Round <- function(x,y) {
  if((y - x %% y) <= x %% y) { x + (y - x %% y)}
  else { x - (x %% y)}
}

x값이 >반올림 값의 후속 인스턴스 사이의 중간 이면 자동으로 반올림합니다 y.

# Round(1.3,1) = 1 while Round(1.6,1) = 2
# Round(1.024,0.05) = 1 while Round(1.03,0.05) = 1.05

임의의 숫자 , 예를 들어 10 의 다중성으로 반올림하는 것과 관련하여 James의 대답에 대한 간단한 대안이 있습니다.

모든 것이 작동 실제 수 (반올림되고 from) 및 실제 양의 수 (반올림 to)

> RoundUp <- function(from,to) ceiling(from/to)*to

예:

> RoundUp(-11,10)
[1] -10
> RoundUp(-0.1,10)
[1] 0
> RoundUp(0,10)
[1] 0
> RoundUp(8.9,10)
[1] 10
> RoundUp(135,10)
[1] 140

> RoundUp(from=c(1.3,2.4,5.6),to=1.1)  
[1] 2.2 3.3 6.6

나는 당신의 코드가 약간의 수정으로 잘 작동한다고 생각합니다.

foo <- function(x, round=10) ceiling(max(x+10^-9)/round + 1/round)*round

그리고 귀하의 예제는 다음과 같이 실행됩니다.

> foo(4, round=1) == 5
[1] TRUE
> foo(6.1) == 10            #maybe 7 would be better
[1] TRUE
> foo(6.1, round=1) == 7    # you got 7
[1] TRUE
> foo(30.1) == 40
[1] TRUE
> foo(100.1) == 110
[1] TRUE
> # ALL in one:
> foo(c(4, 6.1, 30.1, 100))
[1] 110
> foo(c(4, 6.1, 30.1, 100), round=10)
[1] 110
> foo(c(4, 6.1, 30.1, 100), round=2.3)
[1] 101.2

두 가지 방법으로 기능을 변경했습니다.

두 번째 인수 추가 (지정된 X에 대해 )
더 큰 숫자를 원한다면에 작은 값 ( =1e-09, 자유롭게 수정하십시오!)을 추가했습니다 .max(x)

당신은 항상 숫자를 반올림하려면 까지 가장 가까운 X에, 당신은 사용할 수있는 ceiling기능 :

#Round 354 up to the nearest 100:
> X=100
> ceiling(354/X)*X
[1] 400

#Round 47 up to the nearest 30:
> Y=30
> ceiling(47/Y)*Y
[1] 60

Similarly, if you always want to round down, use the floor function. If you want to simply round up or down to the nearest Z, use round instead.

> Z=5
> round(367.8/Z)*Z
[1] 370
> round(367.2/Z)*Z
[1] 365

You will find an upgraded version of Tommy's answer that takes into account several cases:

Choosing between lower or higher bound
Taking into account negative and zero values
two different nice scale in case you want the function to round differently small and big numbers. Example: 4 would be rounded at 0 while 400 would be rounded at 400.

Below the code :

round.up.nice <- function(x, lower_bound = TRUE, nice_small=c(0,5,10), nice_big=c(1,2,3,4,5,6,7,8,9,10)) {
  if (abs(x) > 100) {
    nice = nice_big
  } else {
    nice = nice_small
  }
  if (lower_bound == TRUE) {
    if (x > 0) {
      return(10^floor(log10(x)) * nice[[max(which(x >= 10^floor(log10(x)) * nice))[[1]]]])
    } else if (x < 0) {
      return(- 10^floor(log10(-x)) * nice[[min(which(-x <= 10^floor(log10(-x)) * nice))[[1]]]])
    } else {
      return(0)
    }
  } else {
    if (x > 0) {
      return(10^floor(log10(x)) * nice[[min(which(x <= 10^floor(log10(x)) * nice))[[1]]]])
    } else if (x < 0) {
      return(- 10^floor(log10(-x)) * nice[[max(which(-x >= 10^floor(log10(-x)) * nice))[[1]]]])
    } else {
      return(0)
    }
  }
}

I tried this without using any external library or cryptic features and it works!

Hope it helps someone.

ceil <- function(val, multiple){
  div = val/multiple
  int_div = as.integer(div)
  return (int_div * multiple + ceiling(div - int_div) * multiple)
}

> ceil(2.1, 2.2)
[1] 2.2
> ceil(3, 2.2)
[1] 4.4
> ceil(5, 10)
[1] 10
> ceil(0, 10)
[1] 0

참고URL : https://stackoverflow.com/questions/6461209/how-to-round-up-to-the-nearest-10-or-100-or-x

'programing' 카테고리의 다른 글

목록이나 시리즈를 Pandas DataFrame에 행으로 추가 하시겠습니까? (0)	2020.10.06
Grails에서 SQL 문을 기록하는 방법 (0)	2020.10.06
간단한 html 및 javascript 파일 구조를 heroku에 업로드 할 수 있습니까? (0)	2020.10.06
PHP-PHP 파일을 포함하고 쿼리 매개 변수도 전송 (0)	2020.10.06
속도 템플릿과 유사한 자바의 문자열 대체 (0)	2020.10.06

현재글가장 가까운 10 (또는 100 또는 X)으로 반올림하는 방법은 무엇입니까?

nasanasa

가장 가까운 10 (또는 100 또는 X)으로 반올림하는 방법은 무엇입니까?

가장 가까운 10 (또는 100 또는 X)으로 반올림하는 방법은 무엇입니까?

모든 숫자를 임의의 간격으로 올림 / 내림

최신 정보:

'programing' 카테고리의 다른 글

'programing'의 다른글

티스토리툴바

가장 가까운 10 (또는 100 또는 X)으로 반올림하는 방법은 무엇입니까?

가장 가까운 10 (또는 100 또는 X)으로 반올림하는 방법은 무엇입니까?

모든 숫자를 임의의 간격으로 올림 / 내림

최신 정보:

'programing' 카테고리의 다른 글

'programing'의 다른글

관련글

티스토리툴바