R을 루프로 사용하여 부분 집합의 서브 세트를 그립니다.

Question

다음과 같은 데이터 프레임이 있습니다.

head(growthMelt) 
     Date Strain Replicate Fluor 
1 2016-08-24 42-2 Fluor.I 14.01 
2 2016-08-24 42-4 Fluor.I 9.60 
3 2016-08-24 42-6 Fluor.I 47.66 
4 2016-08-24 42-8 Fluor.I 28.47 
5 2016-08-24 Control Fluor.I 51.61 
6 2016-08-26 42-2 Fluor.I 75.78 

나는 각각의 날짜에 대해 3 가지 형광 측정치를 갖는 5 가지 계통을 가지고있다. 변형률 대 날짜 별 형광 측정 값 각각에 대한 플롯을 만들어야합니다. 궁극적으로 저는 plot(Fluor~Date)과 같은 것을 얻을 필요가 있습니다. 각 플롯에 3 개의 플루오르 (Fluor.I, Fluor.II, Fluor.III) 측정을위한 라인이있는 각 스트레인에 대해 하나씩 5 개의 플롯이 필요합니다.

많은 데이터가 있으므로 서브 루프와 플롯을 위해 루프를 사용하기로 선택했습니다. 지금까지 나는 시도했다 :

strains<-unique(growthMelt$Strain) 

fluors<-unique(growthMelt$Replicate) 

for(i in strains){ 
    sub.strain<-subset(growthMelt, Strain==i) 
    for (i in fluors){ 
    sub.flours<-subset(sub.strain, Replicate==i) 
    plot(Fluor~Date, sub.flours) 
    } 
} 

결과 플롯은 한 변형에 대해 하나의 Fluor 복제물 만 표시합니다. 모든 의견을 크게 기뻐할 것입니다.

또한이 스택 오버플로 내 첫 번째 질문이므로 부드럽게하십시오. :)

Answer 1

매번 마지막 플롯을 덮어 쓰기 때문에 마지막 플롯 만 보입니다. 그러므로 매트릭스를 만드는 mfrow를 시도 할 수 있습니다.

par(mfrow=c(5,3)) 

strains<-unique(growthMelt$Strain) 

fluors<-unique(growthMelt$Replicate) 

for(i in strains){ 
    sub.strain<-subset(growthMelt, Strain==i) 
    for (j in fluors){ 
    sub.flours<-subset(sub.strain, Replicate==j) 
    plot(Fluor~Date, sub.flours) 
    } 
} 

또는 새 문서에 각각의 플롯을 절약 할 수있다 (예 : PDF) :

for(i in strains){ 
    sub.strain<-subset(growthMelt, Strain==i) 
    for (j in fluors){ 
    sub.flours<-subset(sub.strain, Replicate==j) 
    pdf(paste("Plot_",i,"x",j,".pdf",sep="")) 
    plot(Fluor~Date, sub.flours) 
    dev.off() 
    } 
} 

또는 단지 하나의 큰 PDF

pdf("Plot.pdf") 
for(i in strains){ 
    sub.strain<-subset(growthMelt, Strain==i) 
    for (j in fluors){ 
    sub.flours<-subset(sub.strain, Replicate==j) 
    plot(Fluor~Date, sub.flours) 
    } 
} 
dev.off() 

또는 ggplot 옵션 :

library(ggplot2) 
p1 <- ggplot(growthMelt, aes(x=Date, y = Fluor)) + 
    geom_point() + 
    geom_smooth(method = "lm", se = FALSE) + 
    facet_grid(Strain ~ Replicate) 

p1