Рисование пилообразного графа с линиями() в R

Question

Я хотел бы нарисовать график, который имеет пилообразную форму, соединяющую некоторые точки. Проблема в том, что когда я использую линии(), я не могу получить правильный рисунок

Эти пункты:

Я хотел бы получить следующие строки (красная линия):

и

С линиями() я не получаю правильный участок. Я попробовал эти коды:

A)

lines(opsOK$X, opsOK$VariableCost, lty=2, col=cols[2]) 
points(opsOK$X, opsOK$VariableCost) 

B)

lines(opsOK$X, opsOK$VariableCost, type="s", lty=2, col=cols[2]) 
points(opsOK$X, opsOK$VariableCost) 

Есть ли способ я могу сделать эти графики?

Большое спасибо!

Answer 1

Как указал Р. Шифини, необходимо добавить недостающие точки к графику.