向R openair timeplot添加标题

Question

我正在使用R的openair包绘制超过100个.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的主属性与您的站点位置一起用作它的字符串选项。

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