带有区别颜色的barplot，可显着正和负P值

Question

我的数据集包含 12 个月和 4 个季节（季风前、季风、季风后、旱季）及其与环宽指数相关的 r 和 p 值，

这是我使用的代码，

k <- read.csv("macro_r_p.csv",TRUE,",")

k
cols <- c("azure3", "red") [(k$p < 0.05)+1] 
barplot(k$r,names.arg=k$parameter,ylab="Correlation coefficient",col=cols,
        main = expression("T"[max]), las=2)

但是，我只能管理颜色对于正和负显着 p 值 (p < 0.05)。我想要一种不同的颜色表示积极的显着关系，另一种不同的颜色表示消极的显着关系。给我获得复杂文本字体（稍大一点）的代码会很有帮助。另外，我的图表高度没有正确调整。