계산에서 십진수를 사용하여 조건을 입력하는 방법은 무엇입니까?

Question

크기가 동일한 두 개의 래스터 (값은 소수점 이하 5 자리수)입니다. 아래 코드는 두 개의 래스터 r과 r1에서 하나의 파일을 만듭니다. r이 더 큰 경우 파란색을 넣고 그렇지 않으면 빨간색을 넣으십시오.

이 코드는 잘 작동했지만 다른 조건을 추가 할 것을 요청 받았습니다. 이 코드의 작동 방식 :

r이 0.229이고 r1이 0.228이면 r이 더 큽니다 (세 번째 10 진수로 표시).

conne <- file("C:\\cor06.bin","rb") 
    over<-readBin(conne, numeric(), size=4, n=1440*720, signed=TRUE) 

:

 r= 0.228 r1=0.224 put yellow colour(they are rather similar) 
    r= 0.238 r1=0.224 put blue colour(r is bigger) 
    r= 0.128 r1=0.224 put red colour(r is lower) 

1이 제 2 파일 (R1)을 읽어 제 파일 R

 conn <- file("C:\\corr.bin","rb") 
    corr<- readBin(conn, numeric(), size=4, n=1440*720, signed=TRUE) 

2- 읽기 : 제가 필요한 것은, 예를 들어 처음 두 소수를 지정하는 것

계산 :

r <-raster(t(matrix((data=corr), ncol=720, nrow=1440))) 
r1 <- raster(t(matrix((data=over), ncol=720, nrow=1440))) 
m <- r > r1 #Compare the two rasters 
image(m , col = c("blue" , "red")) 

Answer 1

하나가 다른 것보다 큰 경우 또는 두 값의 차이가 0.01보다 작은 경우이를 기반으로 색상을 만들려고합니다. 당신은 다음과 같이 간단하게이 작업을 수행 할 수 있습니다

# Example data 
r <- raster(system.file("external/test.grd", package="raster")) 
r1 <- r * rnorm(ncell(r)) 

# Make new raster 
m <- raster(r) 

# 3 = Yellow , 2 = "Red" , 1 = "Blue" 
values(m) <- ifelse(abs(r[] - r1[]) <= 0.01 , 3 , ifelse(r[] > r1[] , 1 , 2)) 
image(m , col = c(1 = "Blue" , 2 = "Red" , 3 = "Yellow")) 

는 당신이 바로 그 수준에 할당 col 보장 색상으로 인수의 value = "colour" 스타일을 사용할 수 있습니다.