R 对于值>0的情况，如何将所有这些箱线图“合并”为一个箱线图

我的数据集包含18个变量，其中2个是PM2.5和rain，rain变量取值范围为0到20，如何为rain>0的所有值绘制PM2.5与rain的单个箱线图，而不是为rain取值的每个值绘制多个不同的箱线图。这是箱线图的代码

> boxplot(PM2.5~RAIN, subset(data, RAIN > 0 & hour==12))

箱线图的图片

boxplotdata[数据$RAIN>0和数据$hour==12，'PM2.5']

请包含一份您的数据。