profit maximization plot, R

Language: Layout:

op <- par()
par(family = 'Times', pin = c(3.5, 3.5))

# leather: 3x1 + 8x2 = 240
leather1 = list(x1 = 0, x2 = 30)
leather2 = list(x1 = 80, x2 = 0)

# findings: 5x1 + 4x2 = 200
findings1 = list(x1 = 0, x2 = 50)
findings2 = list(x1 = 40, x2 = 0)

# leather
plot(
    x = c(leather1$x1, leather2$x1), y = c(leather1$x2, leather2$x2),
    type = 'l', col = 'dark blue',
    xlim = c(0, 90), ylim = c(0, 70),
    xaxt = 'n', yaxt = 'n', ann = FALSE, bty = 'n')
# findings
lines(
    x = c(findings1$x1, findings2$x1), y = c(findings1$x2, findings2$x2),
    type = 'l', col = 'dark green'
    )

# O(0, 0)
# начало координат
mtext('0', side = 1, line = -0.6, at = -2.5, cex = 1.0, font = 1)

# x-axis
arrows(-10, 0, 90, 0, code = 2, length = 0.15, angle = 7)
mtext(expression(italic(x)[1]), side = 1, line = -0.5, at = 90, cex = 1.0, font = 4)

# y-axis
arrows(0, -10, 0, 70, code = 2, length = 0.15, angle = 7)
mtext(expression(italic(x)[2]), side = 2, line = -0.5, at = 70, cex = 1.0, font = 4, las = 2)

# border points
    # leather
mtext('80', side = 1, line = -0.5, at = 80, cex = 1.0, font = 1)
mtext('30', side = 2, line = -0.5, at = 30, cex = 1.0, font = 1, las = 2)

mtext('40', side = 1, line = -0.5, at = 40, cex = 1.0, font = 1)
mtext('50', side = 2, line = -0.5, at = 50, cex = 1.0, font = 1, las = 2)

par <- op

[ + ] Show input
Absolute running time: 0.43 sec, cpu time: 0.3 sec, memory peak: 32 Mb, absolute service time: 0,44 sec