for 루프의 R에있는 다각형의 면적 계산

Question

친애하는 사람들이 stackoverflow.

SPDF의 각 다각형의 면적을 계산하려고합니다. 나는 데이터를 입력하고 영역 목록을 가져올 수있는 함수를 만들기 위해 노력하고 있습니다. 나는 내 폴리곤의 모든 영역을 반환하는 for 루프를 작성해야한다. 한 폴리곤의 표면 계산을 위해 다음 코드가 작동합니다 :

surfacefirstpolygon <- gArea(inputSPDF[1,1]) 

이 코드는 다음 코드를 실행할 때 i를 하나씩 출력합니다.

polys <- slot(inputSPDF,"polygons") 
for(i in 1:length(polys)){ 
    print(i) 
} 

은 그 때 나는 다음을 수행하여 for 루프에 함께 이러한 코드 조각을 넣어보십시오 :

이

polys <- slot(inputSPDF,"polygons") 
areasofpolygons <- for(i in 1:length(polys)){ 
    gArea(inputSPDF[i,i]) 
} 

이 작동하고 나에게 다음과 같은 오류를 제공하지 않습니다. is.projected (spgeom)에

오류 'is.projected'기능 선택 방법에 'obj와'인수 평가할 오류 : [.data.frame에서 오류 (@ X의 데이터를, I, J, ... drop = FALSE) : 정의되지 않은 열이 선택되었습니다.

아무 잘못 알지 못합니다. =

dd = dim(inputSPDF) 
for(i in 1:dd[1]){ 
    areasofpolygons[i] <- gArea(inputSPDF[i,1]) 
} 

Answer 1

시도

결과 :

dd = dim(inputSPDF) 
for(i in 1:dd[1]) for(j in 1:dd[2]){ 
     areasofpolygons[length(areasofpolygons)+1] = gArea(inputSPDF[i,j]) 
    } 
areasofpolygons 

질문에서 설명한 오류 아마가 치수 ("미정 열 선택")를 초과하는 것을 나타낸다. 또한 [i, i]가 사용되면 동일한 행과 열 번호 만 액세스됩니다.