확장 할 수 -이 내가 여기 묻는 질문의 확장 값 오류

Question

를 재설정 : 내가 I을 사용하여에 관심이 통계의 기본적으로 정규화 된 모든이 이제 Getting Factor Means into the dataset after calculation

이들과 교차하는 사람들을 위해 데이터 세트를 검색하려고합니다. 따라서이 같은 데이터 세트를 검색하고 : 그 모든 것들을 세 가지 사실이 선수를 찾고

base3[((base3$ScaledAVG>2)&(base3$ScaledOBP>2)&(base3$ScaledK.AB<.20)),] 

을, 그러나 나는이 프로그램을 실행할 때 그것은 스케일 K.AB 값을 다시 설정하려면 다음 중 하나를 0.5, 1 또는 2 해당 매개 변수를 사용하여 검색하지 않습니다. 이 방법으로 데이터를 검색하는 데 문제가 있습니까? 아니면이 동일한 맥락에서 데이터 집합의 사람들을 찾을 수있는 더 좋은 방법이 있습니까? 여기

는 일부 샘플 자료입니다 만, 내가 가지고있는 4000 개 기록에 외출 할 때와 같은 문제가 발생하지 않는 :

AVG = c(.350,.400,.320,.220,.100,.250,.400,.450) 
Conf = c("SEC","ACC","SEC","B12","P12","ACC","B12","P12") 
OBP = c(.360,.420,.360,.260,.160,.260,.460,.410) 
K.AB = c(.11,.10,.09,.25,.20,.19,.05,.09) 
Conf=as.factor(Conf) 
d<- data.frame(Conf, AVG,OBP,K.AB) 
dd <- do.call(rbind, by(d, d$Conf, FUN=function(x) { x$Scaled <- scale(x$AVG); x})) 
dd <- do.call(rbind, by(d, d$Conf, FUN=function(x) { x$Scaled <- scale(x$OBP); x})) 
dd <- do.call(rbind, by(d, d$Conf, FUN=function(x) { x$Scaled <- scale(x$K.AB); x})) 
dd[((dd$ScaledAVG>2)&(dd$ScaledOBP>2)&(dd$ScaledK.AB<.20)),] 

감사합니다!

Answer 1

스트레이트 scale 전략을 사용하여 do.call (rbind, by (...)) 전략을 삭제할 수 있습니다. scale function has a data.frame` 메소드.

> dd <- scale(d[ ,c("AVG", "OBP", "K.AB")]) 
> dd 
      AVG  OBP  K.AB 
[1,] 0.33566727 0.2348519 -0.3608439 
[2,] 0.76878633 0.8281619 -0.5051815 
[3,] 0.07579584 0.2348519 -0.6495191 
[4,] -0.79044229 -0.7539981 1.6598820 
[5,] -1.82992803 -1.7428481 0.9381942 
[6,] -0.53057085 -0.7539981 0.7938566 
[7,] 0.76878633 1.2237019 -1.2268693 
[8,] 1.20190539 0.7292769 -0.6495191 
attr(,"scaled:center") 
    AVG  OBP K.AB 
0.31125 0.33625 0.13500 
attr(,"scaled:scale") 
     AVG  OBP  K.AB 
0.11544170 0.10112757 0.06928203 

> d[ dd[, 'AVG'] > 2 & dd[ ,'OBP'] >2 & dd[ ,'K.AB'] < 0.2 , ] 
[1] Conf AVG OBP K.AB 
<0 rows> (or 0-length row.names) 

당신이 2의 스케일링 값이 작은 데이터 세트에서 오히려 가능성이 있기 때문에 이러한 조건을 모두 충족하는 행을 얻을 수 없다는 것을 너무 놀라운 일이 안된다.

는 컨퍼런스의 수준에서 규모를 적용하려면 :

> dd <- lapply(d[ ,c("AVG", "OBP", "K.AB")], function(x) ave(x, d[,"Conf"] , FUN=scale)) 
> dd 
$AVG 
[1] 0.7071068 0.7071068 -0.7071068 -0.7071068 -0.7071068 -0.7071068 0.7071068 0.7071068 

$OBP 
[1]  NaN 0.7071068  NaN -0.7071068 -0.7071068 -0.7071068 0.7071068 0.7071068 

$K.AB 
[1] 0.7071068 -0.7071068 -0.7071068 0.7071068 0.7071068 0.7071068 -0.7071068 -0.7071068 

> data.frame(dd) 
     AVG  OBP  K.AB 
1 0.7071068  NaN 0.7071068 
2 0.7071068 0.7071068 -0.7071068 
3 -0.7071068  NaN -0.7071068 
4 -0.7071068 -0.7071068 0.7071068 
5 -0.7071068 -0.7071068 0.7071068 
6 -0.7071068 -0.7071068 0.7071068 
7 0.7071068 0.7071068 -0.7071068 
8 0.7071068 0.7071068 -0.7071068 

내가 제공하는 테스트 케이스가 너무 작기 때문에이 여기에 너무 잘 작동합니다 생각하지 않습니다.