帮我检查一下rect(xleft = a1[1]-0.5, ybottom = -0.01, xright = a1[conNum]+0.5, ytop = -0.06,col="#7CC767") text(a1[conNum]/2,-0.035,"C1",cex=2) rect(xleft = a1[conNum]+0.5, ybottom = -0.01, xright =a1[treatNum]+0.5 , ytop = -0.06,col="#FFD121") text((a1[length(a1)]+a1[conNum])/2,-0.035,"C2",cex=2) rect(xleft = a1[treatNum]+0.5, ybottom = -0.01, xright = a1[conNum1]+0.5, ytop = -0.06,col="#6E568C") text(a1[conNum]/2,-0.035,"C3",cex=2) rect(xleft = a1[conNum1]-0.5, ybottom = -0.01, xright = a1[conNum]+0.5, ytop = -0.06,col="#D20A13") text(a1[conNum]/2,-0.035,"C4",cex=2)