for 루프의 다른 jpeg 파일에 그림을 저장합니다. R

Question

R에서 다음과 같은 작업을 수행하고 싶습니다. 하나는 루프로, 다른 그림은 다른 jpeg 파일에 저장하고 싶습니다. 내 문제는 내가 어떻게 R을 알리는 지 정확히 모른다는 것입니다.이 열린 jpeg 파일에이 음모를 저장하십시오. 다른 음모를 꾸미는 중 다른 jpeg 파일 "에이 음모를 저장하십시오. 내가 무엇을 다음과 것은 실제 코드가 아닙니다 (하나 하나에이 두 개의 루프를 결합하고 싶은, 그러나

library(data.table) 

set.seed(10) 

data1 <- data.table(A = letters[3:5], B = letters[6:8], 
        C = rnorm(20), D = rnorm (20)) 

for(i in unique(data1$A)){ 

    data2 <- data1[A == i] 

    jpeg(paste(i,'plot1.jpg',sep = '')) 

    hist(data2$C) 

    dev.off() 

} 

for(i in unique(data1$A)){ 

    data2 <- data1[A == i] 

    jpeg(paste(i,'plot2.jpg',sep = '')) 

    hist(data2$D) 

    dev.off() 

} 

, 그러나의 생각이 무엇인지 나는 것 :

나는 현재 두 개의 for 루프를 사용하여이 작업을 수행 할 수 있습니다) 달성 같은

어쩌면

for(i in unique(data1$A)){ 

    data2 <- data1[A == i] 

    a <- jpeg(paste(i,'plot2.jpg',sep = '')) 
    b <- jpeg(paste(i,'plot2.jpg',sep = '')) 

    hist(data2$D, PLOT in a) 
    hist(data2$D, PLOT in b) 

    dev.off(CLOSE a AND b) 

} 

Answer 1

library(data.table) 

set.seed(10) 

data1 <- data.table(A = letters[3:5], B = letters[6:8], 
        C = rnorm(20), D = rnorm (20)) 

for(i in unique(data1$A)){ 

    data2 <- data1[A == i] 

    jpeg(paste(i,'plot1.jpg',sep = '')) 

    hist(data2$C) 

    dev.off() 

    jpeg(paste(i,'plot2.jpg',sep = '')) 

    hist(data2$D) 

    dev.off() 

}