R Notebook

2차원 행렬구조를 1차원의 벡터로 변환하여 조작하기… 격자망의 위성공간데이터의 값을 합성하는 로직..

각각 10 by 10 의 매트릭스(위성격자)를 만들어 1차원 벡터로 펴고.. 각 요소의 값들을 합성(평균/최대/최소) 한 후, 다시 원래의 2차원 배열로 복귀하기..

a <- matrix(1:9, nrow = 3)
class(a)

[1] "matrix"

a

     [,1] [,2] [,3]
[1,]    1    4    7
[2,]    2    5    8
[3,]    3    6    9

m2 <- matrix(sample(1:100, 100, replace=T),nrow = 10)
class(m2)
m2

2차원 배열을 1차원으로 폄! reshape, flatten

v1<-as.vector(t(a))
class(v1)

[1] "integer"

v1

[1] 1 4 7 2 5 8 3 6 9

v2<-as.vector(t(m2))
class(v2)
v2

2개의 flatten vector를 데이터프레임으로 합치기

df1 <- data.frame(v1,v2)
str(df1)
head(df1)

v3의 합성컬럼 생성(산출)

df1$V3 <- apply(df1, 1, mean) #행의 연산
head(df1, 15)

새로 생성한 합성컬럼 V3를 다시 2차원 배열의 공간격자 매트릭스로 환원시키기

matrix(v1, 3, 3, byrow=T)

     [,1] [,2] [,3]
[1,]    1    4    7
[2,]    2    5    8
[3,]    3    6    9

library(psych)