모든 열에 대한 간단한 z 변환

Question

모든 열에 대해 행렬의 z 변환에 대한 아주 기본적인 함수를 작성했습니다. 그것은 다음과 같습니다

sapply(MyObject, function(x){(x-mean(x))/sd(x)})

나는 무작위로 매트릭스 내에서 약간의 세포 내 기능을 확인하고 그것을 잘 작동하는 것 같다. 아직도 나는 R이 매우 새롭고 인터넷에서 좋은 예를 찾을 수 없기 때문에이 함수가 괜찮다는 것을 확인하고 싶었다.

Answer 1

이 작업을 수행하는 scale()을 확인해야합니다.

기능이 올바로 작동하고 있습니다. na.rm = TRUE을 sd()과 mean() 함수 호출에 모두 추가해야합니다.

sapply() 대신 sweep()을 사용하여 함수를 쓰겠습니다 (scale()을 사용하지 않는 경우). 예 : 사용 중

ztran <- function(x, na.rm = TRUE) { 
    mns <- colMeans(x, na.rm = na.rm) 
    sds <- apply(x, 2, sd, na.rm = na.rm) 
    x <- sweep(x, 2, mns, "-") 
    x <- sweep(x, 2, sds, "/") 
    x 
} 

우리는

> df <- data.frame(matrix(1:9, ncol = 3)) 
> ztran(df) 
    X1 X2 X3 
1 -1 -1 -1 
2 0 0 0 
3 1 1 1 
> scale(df) 
    X1 X2 X3 
[1,] -1 -1 -1 
[2,] 0 0 0 
[3,] 1 1 1 
attr(,"scaled:center") 
X1 X2 X3 
2 5 8 
attr(,"scaled:scale") 
X1 X2 X3 
1 1 1 

sweep 작동 이런 종류의 매우 유용한 벡터화 도구입니다 있습니다. sapply()은 원하는 행방이 아닌 행렬로 단순화됩니다. sweep()이 작업을 수행하지 않습니다

> class(ztran(df)) 
[1] "data.frame" 
> class(sapply(df, function(x){(x-mean(x))/sd(x)})) 
[1] "matrix"