Как установить ноль в качестве среднего значения при построении линейного графика в R пройденного расстояния за день

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

Я хочу установить нулевое значение, чтобы оно было равно среднему пройденному расстоянию. Это так, чтобы я мог оценить, когда движения были более чем на 2 стандартных отклонения от среднего расстояния. Есть ли простой способ сделать это в R?

Мой формат данных:

Day Distance
1    5.09902
2    0.00000
3    0.00000
4    5.09902
5    0.00000
6    0.00000 

Каждая строка представляет собой расстояние, пройденное за день от одного места до следующего.

Решение последовало, и данные были нанесены на график:

ig1$stdDist <- (ig1$Distance - mean(ig1$Distance))/sd(ig1$Distance)

plot(ig1$stdDist)

plot(ig1$stdDist, type = "o",col = "red", xlab = "Days", ylab = "Stdev", 
     main = "IG001")