R file.path并将多个输出保存到一个文件中

我的代码设计用于生成时间序列分解的多个输出jpeg图（一天中的每小时）。我运行代码，但没有收到错误消息。事实上，我收到一些迹象表明产出已经产生

下面是创建的函数（stackoverflow专家提供给我）：

它返回1个图表，第一个小时级别，不再返回。 我的问题是：如何更改代码以使其生成一天中每小时的输出图（小时变量）？ 几小时前，我发布了一个类似的问题，代码完全不同，但由于加载ggplot2的问题，我无法让代码正常工作

---

谢谢

请注意，在函数调用中使用

unique（Dataset$Hour）

而不是使用

d

请考虑接受并向上投票您的问题的答案；这就是我们回馈社会的方式。

HR.plot <- function(y,z){
    ARMAXpath<-file.path("C:", "Desktop","RPLOTS", paste0("HRplot_", z, ".jpg"))
    jpeg(file = ARMAXpath)
    plot(stl(y,s.window="periodic"))
    dev.off()
}

by(Dataset, Dataset$Hour, function(d) HR.plot(Dataset$UQ,unique(Dataset$Hour)))