Построение графика с помощью plot() в R

Начал строить график для "Объема продаж молока в первом магазине"(условно). out1-переменная содержащая табличные данные по продажам молока в магазине

# Строим Графики 
# Для молока в 1магаз сделай объем продаж по дням
xrange = range(out1[,1])#диапозон по Ox
yrange = range(out1[,2], out1[,3], out1[,4])
# Построим пустой график, охватывающий полный диапазон данных
plot(xrange,
     yrange,
     main='Объем продаж молока в первом магазине', 
     xlab="День", 
     ylab="Количество проданного товара, шт",
     type = "n",
     cex.axis=0.8, 
     cex.lab=0.7, 
     cex.main=0.9) # n означает, что ряд данных рисоваться не будет
# Теперь добавим на график данные
points(out1[,1], out1[,2], pch=20, col="red3")
lines(out1[,1], out1[,2], pch=20, col="red3")

points(out1[,1], out1[,3], pch=22, col="forestgreen")
lines(out1[,1], out1[,3], pch=22, col="forestgreen")

points(out1[,1], out1[,4], pch=24, col="steelblue")
lines(out1[,1], out1[,4], pch=24, col="steelblue")
# Легенда
legend("topright", legend=names(out1)[2:ncol(out1)],col=c("red3", "forestgreen", "steelblue"), pch=c(20,22,24))

В следствии получается

Почему у меня повилас граница по оси Oy(115) и графики не полностью раскрылись?