как определить предопределенные значения pch и новую форму pch в том же коде R

Я пытаюсь придать другую форму, используя pch. но это не дает ожидаемого результата.

legend("topleft",
             legend = c("Upper limit ","Estimated","Lower limit"), 
             col = c("black","black","black"), 
             pch = c('-','19','-'), 
             #bty="n",
             cex=1.2,
             text.col="black",
             horiz=F,
             inset=c(0.1,0.1)
             )

Ожидаемый результат должен быть: - Верхний предел, 0 (pch=19) расчетный, - Нижний предел, но фактический результат: - Верхний предел, 1 расчетный, - Нижний предел.