Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/79.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/loops/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 如何将第一个绘图放在循环的第一行,第二个绘图放在循环的第二行?_R_Loops_Plot - Fatal编程技术网

R 如何将第一个绘图放在循环的第一行,第二个绘图放在循环的第二行?

R 如何将第一个绘图放在循环的第一行,第二个绘图放在循环的第二行?,r,loops,plot,R,Loops,Plot,我想在for循环中有一个带有两个绘图的页面,以便将我的第一个输出放在c1,1中,下一个输出放在c2,1中。我使用以下命令: f<-0 for (i in 1:m) { if ((i%%2!=0) { f<-f+1 Outfile<-paste(‘location,file name’,f,’.eps’) Par(mfrow=c(2,1)) } else { Outfile<-paste(‘location,file

我想在for循环中有一个带有两个绘图的页面,以便将我的第一个输出放在c1,1中,下一个输出放在c2,1中。我使用以下命令:

f<-0
for (i in 1:m) {
   if ((i%%2!=0) { 
     f<-f+1
     Outfile<-paste(‘location,file name’,f,’.eps’)
     Par(mfrow=c(2,1)) 
   } else { 
     Outfile<-paste(‘location,file name’,f,’.eps’)
     Par(mfrow=c(2,1)) 
   } 
}

但是第二个图不会进入第二列,每次它只会显示第二个图而不是第一个图,有什么建议吗?

我不确定我是否理解这个问题,但要显示5行2列的10个图,例如,您可以执行以下操作:

op <- par(mfrow = c(5, 2), mar = c(0, 0, 0, 0), no.readonly = TRUE)

for (i in 1:10) {
    plot(rnorm(100))
}

par(op)

这或多或少是你想要的吗

x <- 1:10
#
y1 <- x
y2 <- 2 * x

m <- 40
#
for (i in 1:m) {
  if (i%%2 != 0) {
    png(sprintf("output-file-%d.png", ceiling(i / 2)))
    par(mfrow = c(1, 2))
    plot(x, y1)
  } else { 
    plot(x, y2)
    dev.off()
  } 
}

我修改了它。我将有40个绘图,我想在20页中绘制它们。第一行中的第一个打印和第二行中的第二个打印您没有调用任何打印函数。另外,请通过添加示例数据使其可复制。您所说的页面是什么意思?在20个不同的页面中!好的……什么样的页面?Pdf文档?报告?