在R openair时间表中添加标题

Question

我正在使用R的openair软件包来绘制一百多个.csv文件的时间序列。 我可以生成图，但是无法为图添加标题。 另外，我希望标题是可以从文件名或.csv文件的第一列中提取的站点位置。 看起来您可以使用timeplot函数的auto.text执行此操作，但是我没有任何运气。 可以以时尚的方式添加标题吗？ 如果是这样，怎么办？

library(openair)

filedir <- "C:/Users/dfmcg/Documents/Thesis files/ALL_GPMP_O3_Met"
myfiles <- c(list.files(path = filedir))
paste(filedir, myfiles,sep = '/')
npsfiles <- c(paste(filedir, myfiles,sep = '/'))

for (i in npsfiles[1:3]){
  timeozone <- import(i, date="DATE", date.format = "%m/%d/%Y %H", header = TRUE,
                      na.strings = "-999", auto.text(main = ("ABBR")))
  timePlot(timeozone, pollutant = c("O3"))
}

这是数据的一小部分：

ABBR     DATE          O3   SWS  VWS  SWD  VWD 
ZION-DW 01/01/2004 00 -999 -999 -999 -999 -999 
ZION-DW 01/01/2004 01 -999 -999 -999 -999 -999

Answer 1

您想将timePlot的main属性与您的站点位置一起使用，作为它的字符串选项。

title = 'Site location'
timePlot(mydata, pollutant = "nox", main = title)