ggplot2를 사용하여 여러 사례 플로팅

Question

이전 답변을 보았지만 상황에 맞지 않는 코드 나 예제 데이터를 제공하지 않는 비슷한 질문을 실행했습니다.

이

Example Data

길고도 짧은 이야기, 내가 이전의 모든 행정에서 수단의 산점도의 상단에 개별 사례에서 부드럽게 진 문자열을 플롯을 시도하고있다 : 어쨌든, 여기 아래에있는 내 데이터의 작은 부분이다 ($ Total) 및 최근 관리 ($ Admin)의 모든 사례 평균입니다. 당신은 당신이 짙은 녹색에서 $ 총 & $ 관리자의 산점도를 얻을 수 목록에서 경우 A를 선택하면, 예를 들어

library(ggplot2) 
vars <- select.list(names(Ex),multiple=TRUE,graphics=TRUE) 
Cases<-subset(Ex,select=vars) 
for(i in Cases){ 
    iplot<-ggplot(Ex,aes(x=Total,y=i)) 
} 
iplot+geom_smooth(method=loess,size=1,colour="orange",linetype=1,fill="orange",se=T)+ 
    geom_point(aes(y=Admin),colour="dark green",size=1.5)+ylim(0,1)+xlim(0,1)+ 
    labs(x="Expected",y="Admin",title=vars) 

: 나는 목록에서 하나의 사건을 선택하여 다음과 같은 코드로이 작업을 수행 할 수 있습니다 케이스 황토 원활 하 게 오렌지에서 이진 데이터입니다.

내가보고 싶은 사례를 알고 있거나 내 사례와 같은 사례가 충분히 적을 경우 유용합니다. 그러나이 프로세스의 실제 응용 프로그램에서 500 개 이상의 사례에 쉽게 접근 할 수 있으므로 위 데이터와 같은 그래프의면 처리 된 출력을 생성하여 데이터의 모든 사례를 반복합니다 (즉, AD의 그래프를 동시에 생성합니다. 예제 데이터) 그래서 나는 더 많은 관심을 가진 사례를 쉽게 식별/선택할 수 있습니다.

나는 다음과 같은 코드로이 시도 :

for(i in Ex){ 
    iplot<-ggplot(Ex,aes(x=Total,y=i)) 
} 
iplot+geom_smooth(method=loess,size=1,colour="orange",linetype=1,fill="orange",se=T)+ 
    geom_point(aes(y=Admin),colour="dark green",size=1.5)+ylim(0,1)+xlim(0,1)+ 
    facet_wrap(~vars,ncol=3)+ 
    labs(x="Expected",y="Admin",title=vars) 

... 그리고 다른 많은 시도,하지만 난 항상이 오류 메시지에 돌아올 것 : layout_base에서

오류 (데이터, 변수, 드롭 = 드롭) : 적어도 하나의 레이어 에는 패싯에 사용되는 모든 변수가 포함되어야합니다.

무엇이 누락 되었습니까?

Answer 1

정확하게 이해하면 황토 곡선이 이진 데이터 (??)를 기반으로하고 싶습니다. 그렇다면, 이것이 당신이 요구하고있는 것처럼 보입니다.

Ex <- read.csv("StackOverflowEx.csv") 
library(ggplot2) 
library(reshape2) # for melt(...) 
vars <- select.list(names(Ex),multiple=TRUE,graphics=TRUE) 
Cases<-subset(Ex,select=vars) 

gg <- melt(Cases,id=c("Item","Total","Admin")) 
ggplot(gg, aes(x=Total,y=Admin))+ 
    geom_point(colour="dark green",size=1.5)+ 
    geom_point(aes(y=value,color=variable))+ 
    geom_smooth(aes(y=value,fill=variable), 
       method=loess,size=1,linetype=1,se=T)+ 
    facet_wrap(~variable)+ 
    ylim(0,1)+ 
    labs(x="Expected",y="Admin",title=vars) 

이 플롯은 항목 (합계, 관리자 및 A-D)의 모든 열을 선택하여 생성됩니다. 오차 영역은 "클리핑"이되도록

참고. 이는 ylim(0,1)을 설정했기 때문입니다.