为R图中的最大值着色条

Question

这是降水量的图，我必须将对应于具有最高降水量的日期的条形标记为红色，因此我只想将col分配给最大值。不知道该怎么做。

plot(DublinAiport$rain, type= 'S', xlab="September 2018", ylab="Precipitation Amount (mm)")

注意：在我的课堂上，我们没有使用ggplot2，所以我必须在没有ggplot2的情况下这样做。