Question

我正在尝试在R中自动生成7 ggplot图并尝试在目录中保存为png。我使用以下代码，但它没有保存任何东西。当我在定义一个i之后单独运行循环内部的部分时，它会保存一个图，但是当我将函数定义为一个整体并调用该函数时，它什么都不做。对这个问题的任何帮助都会有很大的帮助！

bar <- function() {
  library(ggplot2)
  for (i in 1:10) {
    print(i)
    days <- c("SAT","SUN","MON","TUE", "WED","THUR", "FRI")
    revenue <- rnorm(7, 2000, 300) 
    d <- data.frame(
      days = factor(c("SAT","SUN","MON","TUE", "WED","THUR", "FRI"),levels= c("SAT","SUN","MON","TUE", "WED","THUR", "FRI")),
      revenue)
    mypath <- file.path("~", "Documents", "FirstData", "Rcodes","SAVEHERE",paste("myplot_",i,".png", sep = ""))
    print(mypath)
    png(file = mypath)
      ggplot(data = d, aes(x = as.factor(days), y= revenue)) +geom_bar(stat = "identity", fill="blue")
    dev.off()

  }
}

bar()

这段代码的动机来自automatically save your plots to a folder

循环函数不在R

0 个答案: