R 将绘图写入png文件

我可以使用ggplot2将ggplot命令的输出存储到一个对象，并在grid中调用该对象。安排以R脚本写入文件，如下所示：

p<-ggplot(x, aes(x=Date, y=Date)) + geom_bar(aes(x=Date,y=Data)

png("data.png", height=700, width=650)

grid.arrange(p, main=textGrob("Data"), gp=gpar(cex=2)               

dev.off()

---

p
data
data我们没有数据可供处理，问题也不清楚，因此下面是一个例子，说明我认为OP使用mtcars数据集的目的（每个图单独绘制）：

dat <- split(mtcars, mtcars$cyl)

lapply(dat, function(x) {
    ggplot(x, aes(mpg, disp, colour=gear)) + geom_point()
    }
)

#a way to get separate plots for each plot
plot2 <- function(theplot, name, ...) {
    name <- paste0(name, ".png")
    png(filename=name)
    print(theplot)
    dev.off()
} #plotting function

lapply(seq_along(dat), function(i) {
    x <- dat[[i]]
    z <- ggplot(x, aes(mpg, disp, colour=gear)) + geom_point()
    plot2(z, name=paste0("TEST", names(dat)[i]))
    }
)

dat我们没有数据要处理，问题也不清楚，因此下面是一个例子，说明我认为OP使用mtcars数据集的目的（每个图单独绘制）：

dat <- split(mtcars, mtcars$cyl)

lapply(dat, function(x) {
    ggplot(x, aes(mpg, disp, colour=gear)) + geom_point()
    }
)

#a way to get separate plots for each plot
plot2 <- function(theplot, name, ...) {
    name <- paste0(name, ".png")
    png(filename=name)
    print(theplot)
    dev.off()
} #plotting function

lapply(seq_along(dat), function(i) {
    x <- dat[[i]]
    z <- ggplot(x, aes(mpg, disp, colour=gear)) + geom_point()
    plot2(z, name=paste0("TEST", names(dat)[i]))
    }
)

dat我可能是唯一一个，但我无法理解你的要求。你能说得更清楚一点吗？也许为你想做但无法实现的事情提供一些代码。我可能是唯一一个，但我无法理解你的要求。你能说得更清楚一点吗？可能会提供一些代码，让你想做什么，但无法让它工作。我可以很容易地用ggplot做到这一点。我需要使用plot函数将plot的输出存储到png文件中。每个plot都存储到一个新文件或一个包含所有plot的文件中？我可以很容易地使用ggplot实现这一点。我需要使用plot函数将plot的输出存储到png文件中。每个plot是存储到一个新文件中还是一个包含所有plot的文件中？