r - 如何在 OpenAir 中选择 timeVariation 函数的子图

Question

我想制作一个显示每个工作日和每个月的日变化的图。该timeVariation函数生成所需的图以及其他三个子图。这使得顶部的子图难以阅读：

library(openair)
mary <- importAURN(site = "my1", year = 2000)

timeVariation(mary, 
              pollutant = 'no2',
              type = 'month')

我只想绘制显示工作日的顶部子图。我尝试plot(myOutput, subset = "day.hour")按照 OpenAir 手册中的说明使用：

plot(timeVariation(mary, 
              pollutant = 'no2',
              type = 'month'),
     subset = 'day.hour')

但这会产生：

该图可能包含正确的数据，但标签的复制使其过于拥挤且非常混乱。有没有办法只提取我想要的情节，格式如上图所示？