par(pty="s") plot(...)
устанавливает тип графика как квадрат, который будет выполнять задание (я думаю) в вашем случае, потому что ваши диапазоны x и y одинаковы.