如何在R中的for循環中保存繪圖

Question

我有以下可重現的代碼，可生成一系列圖表：

N <- 199
K <- N+1
x <- rep(0,N)
x[1] <- 0.5
time <- c(1:K)

G <- c(2.7, 2.9, 3.0, 3.5, 3.82, 3.83, 3.84, 3.85)
for (g in G) {
  for (t in 1:N) {
    x[t+1] = g*x[t]*(1-x[t])
  }
  plot(time,x, main = g, type="l", xlim=c(0,100), col="blue")
}

這會生成 8 個圖形，我想將每個圖形保存為 .png 文件。 我正在嘗試執行以下操作：

png("graph_", g, ".png")
plot(time, x, ...)
dev.off

在上面代碼中的for(g in G)和for(t in 1:N)循環的末尾之間，我創建了一系列名為：graph_2.7.png、graph_3.0.png、... graph_3.85.png

我不確定是否需要創建一個列表並將每個結果粘貼到所述列表中或稍微更改我的語法

Answer 1

你非常接近。 您需要將文件名paste到png 。

N <- 199
K <- N+1
x <- rep(0,N)
x[1] <- 0.5
time <- c(1:K)

G <- c(2.7, 2.9, 3.0, 3.5, 3.82, 3.83, 3.84, 3.85)
for (g in G) {
  for (t in 1:N) {
    x[t+1] = g*x[t]*(1-x[t])
   }
   png(file = paste0("graph_", g, ".png"))
   plot(time,x, main = g, type="l", xlim=c(0,100), col="blue")
   dev.off()
}