나는 약이 기능이 기능

Question

내에서 "을 (를) 찾을 수 없습니다 객체"

plot_pca_models <- function(models, id) { 
    library(lattice) 

    splom(models, groups=id) 
} 

나는 이런 식으로 전화 해요 :이 오류에

plot_pca_models(data.pca, log$id) 

느릅 나무 결과 : 나는 포장 기능이없는 호출

Error in eval(expr, envir, enclos) : object 'id' not found 

:

splom(data.pca, groups=log$id) 

는이 오류가 발생합니다 :

Error in log$id : object of type 'special' is not subsettable 

을하지만, 내가 할 때 :

id <- log$id 
splom(models, groups=id) 

이 예상 다르게 동작한다.

누구나 왜이 문제를 어떻게 해결할 수 있는지 설명 할 수 있습니까? 감사. BTW

: 나는 예를 들어, 여기에 비슷한 질문 알고 있어요 :

• Help understand the error in a function I defined in R
• Object not found error with ddply inside a function
이
• Object disappears from namespace in function

하지만 그들 중 누구도 나에게 도움이되지 않습니다.

편집 : 요청으로, 전체가 "plot_pca_models"기능 :

plot_pca_models <- function(data, id, sel=c(1:4), comp=1) { 
    # 'data' ... princomp objects 
    # 'id' ... list of samples id (classes) 
    # 'sel' ... list of models to compare 
    # 'comp' ... which pca component to compare 

    library(lattice) 

    models <- c() 
    models.size <- 1:length(data) 
    for(model in models.size) { 
    models <- c(models, list(data[[model]]$scores[,comp])) 
    } 
    names(models) <- 1:length(data) 

    models <- do.call(cbind, models[sel]) 

    splom(models, groups=id) 
} 

EDIT2 : 나는 문제를 재현하기 위해 관리했습니다.

require(lattice) 
my.data <- data.frame(pca1 = rnorm(100), pca2 = rnorm(100), pca3 = rnorm(100)) 
my.id <- data.frame(id = sample(letters[1:4], 100, replace = TRUE)) 

plot_pca_models2 <- function(x, ajdi) { 
    splom(x, group = ajdi) 
} 

plot_pca_models2(x = my.data, ajdi = my.id$id) 

위와 같은 오류가 발생합니다.

Answer 1

문제는 splom 빠른 수정이 구축 있도록 기능을 재 작성하는 비표준 방법 the way.â 년 groups 인수를 평가한다는 것입니다 적절한 구문의 호출 ​​:

f <- function(data, id) 
eval(substitute(splom(data, groups=.id), list(.id=id))) 

# test it 
ir <- iris[-5] 
sp <- iris[, 5] 
f(ir, sp) 

Answer 2

log은 기본 R의 함수입니다. 기능을 수행 한 후에 이름을 지정하지 않는 것이 좋습니다. 혼동을 야기 할 수 있습니다. 깨끗한 R 세션으로 log$test를 입력하고 당신은 무슨 일이 일어나고 있는지 볼 수 있습니다 :

object of type 'special' is not subsettable

Answer 3

다음은 Hong Oi의 대답을 수정 한 것입니다. 먼저 기본 데이터 프레임에 ID를 포함하는 것이 좋습니다 (예 :

my.data <- data.frame(pca1 = rnorm(100), pca2 = rnorm(100), pca3 = rnorm(100), id = sample(letters[1:4], 100, replace = TRUE)) 

).

groups <- eval(substitute(groups), data, environment(formula)) 

... 그의 유일한 지점입니다 따옴표없이 그룹을 지정 할 수 있도록 : 다음 혼란의 원인

plot_pca_models2 <- function(x, ajdi) { 
    Call <- bquote(splom(x, group = x[[.(ajdi)]]))  
    eval(Call) 
    } 
plot_pca_models2(x = my.data, ajdi = "id") 

격자 ::: splom.formula에 다음 줄은 즉

# instead of 
splom(DATA, groups="ID") 
# you can now be much shorter, thanks to eval and substitute: 
splom(DATA, groups=ID) 

그러나 물론

, 이것은 splom를 사용한다, (그리고 다른 기능은 "비표준 평가"를 사용하여 대체 예) 다른 함수 내에서 사용을 어렵게하고 philosop 반대 "대부분"은 R의 나머지 부분을 따릅니다.