Настройка координатной сетки при построении графика функций

Пример 1. Построить два линейных графика и определить координаты их пересечения.

x = seq(0, 5, 0.1)
y1 = 2*x - 2
y2 = 4 - x
plot(x, y1, 'l', lwd = 2)
lines(x, y2, lwd = 2)
# Vertical grid
abline(v = seq(-2, 8, 1),
       lty = 2, col = "gray50")

# Horizontal grid 
abline(h = seq(-2, 8, 1),
       lty = 2, col = "gray50")
lines(1:10)

Прямые пересекаются в одной точке с координатами (2, 2).

Пример 2. Построить график квадратичной и линейной функции, определить координаты всех точек пересечения.

x = seq(-5, 5, 0.1)
y1 =4 - x^2 
y2 = 0 - x*3
plot(x, y1, 'l', lwd = 2)
lines(x, y2, lwd = 2)
# Vertical grid
abline(v = seq(-20, 5, 1),
       lty = 2, col = "gray50")

# Horizontal grid 
abline(h = seq(-20, 5, 1),
       lty = 2, col = "gray50")

В нашем примере две точки пересечения графиков в точках с координатами (-1, 3) и (4, -12). 

Пример 3. Построение гистограммы.

set.seed(545)
x = rnorm(500, 50, 5)
hist(x,20)
abline(h = seq(0, 80, 5),
       lty = 2, col = "gray50")
hist(x,20,add=T)