lapply를 사용하는 플롯 목록

Question

저는 최근에 lapply와 sapply를 사용했습니다. 지금까지는 그렇게 좋았지 만 다음 코드가 왜 작동하지 않는지는 알 수 없습니다.

이

Error in `[.data.frame`(df, , i) : undefined columns selected 

좋아, 분명히 내 재현 코드에서 매우 불행한 실수를 :

df<-as.data.frame(matrix(rnorm(50),ncol=5)) 
names(df)<-c("x1","x2","x3","x4","x5") 
df1<-seq_len(10) 

ll<-lapply(seq(1,5), function(i) qplot(df1,df[,i])) 

가 나는 오류가 발생합니다. 이제 작동하지만, ll 목록의 모든 플롯은 동일한 플롯입니다. 나는이 프로그램을 실행할 때 :

do.call(grid.arrange,ll)

나는 다음과 같은 이미지를 얻을 :

모든 플롯

가 동일을! 이것은 데이터를 통해 실행하면 얻을 수있는 결과이기도합니다. 당신은 당신 만이 (5)이 경우 10 열에 대한 실행을 말하고있다

Answer 1

. 다음 작업을 수행해야합니다.

ll<-lapply(
    seq(1,5), 
    function(i) qplot(data=data.frame(y=df[, i]), df1, y) 
) 

이렇게하면 각 플롯에 대해 y 값이 업데이트됩니다.

기타 세부 정보 SO Post.

Answer 2

작동 :

ll<-lapply(seq(1,5), function(i) qplot(df1,df[,i])) 

Answer 3

당신이 얻을 문제는 게으른 평가와 관련이 있습니다. 즉, ll의 함수는 실제로 호출 할 때만 평가되며, 이는 grid.arrange입니다. 이 때 각 함수는 i을 찾으려고 시도합니다. 그 값은 루프의 끝에있는 i의 마지막 값이므로 해당 시간까지 5의 값을 갖습니다. 따라서 df에서 추출 된 데이터는 항상 다섯 번째 열이므로 사용자의 플롯은 모두 동일합니다.

이 문제를 방지하려면 함수를 만들 때 (예 : @ BrodieG의 메서드 사용) 강제로 데이터 추출을 수행해야합니다. 거기에 새로운 data.frame이 생성되어 df의 데이터를 선택해야합니다. 또는 force을 사용하여 i의 평가를 강제 실행할 수 있습니다. 내가 사용하는 것과 같은 data.frame에서 여러 컬럼의 플롯을 만들기위한

• variable-scope in R functions
• Explain a lazy evaluation quirk

---

:

는 더 많은 예제와 게으른 평가에 대한 설명은 참조 facet_wrap. facet_wrap를 사용하려면 reshape2 패키지에서 melt를 사용하여 데이터를 다시 정렬해야합니다 게으른 평가, 또는 같은 문제가 어쨌든있다

library(ggplot2) 
library(reshape2) 
df$xvalues = 1:10 
df_melt = melt(df, id.vars = 'xvalues') 
ggplot(df_melt, aes(x = xvalues, y = value)) + 
    geom_point() + facet_wrap(~ variable)