Как напечатать несколько графиков для каждой итерации цикла в R?

Question

У меня есть следующий код,

for (i in 1:length(split_fill_data)) {
  new_frame <- split_fill_data[i]
  new_frame_2 <- do.call(rbind.data.frame, new_frame)
  if(is.element(head(new_frame_2["egress"],1), unlist(mkt_out_60["egress"]))) 
      {
        print(head(arrange(new_frame_2,desc(Bytes_Outside))),5)

        #print('hello')
        plot(new_frame_2$ingress, new_frame_2$Bytes_Outside, main=head(new_frame_2["egress"],1))
        #x11()
        }
  }

Блок if равен true примерно 30 раз, и я хочу, чтобы plot() напечатал график ingress vs. Bytes_Outside для каждого из этих 30 раз.Итак, несколько субплотов в одном окне (или графике?).

Как мне сделать это в RStudio?

Answer 1

Неуклюжим решением было бы использовать par(mfrow = c(x,x), запустив цикл for один раз и записав количество истинных случаев (скажем, в y). Затем во втором последовательном цикле for, определяющем аргумент mfrow на основе результатов первого цикла for, где x будет равен квадратному корню из длины y, округленной в большую сторону (т.е. ceiling(sqrt(length(y)) ). Трудно написать пример (по крайней мере, для меня) без каких-либо данных. Если вы напишете что-нибудь, я сделаю это. Это не самое элегантное решение, но я думаю, что оно может сделать работу!