將圖保存到R中的for循環中的不同jpeg文件中

Question

我想在R中完成以下操作：我一個for循環，我想將不同的圖保存到不同的jpeg文件中。 我的問題是我不知道如何准確地告訴R“將此圖保存在此打開的jpeg文件中，而將另一圖保存在此不同的 jpeg文件中”。

我目前可以使用兩個for循環來執行此操作：

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( 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()

}