Exponenciály

x <- seq(from = 0, to = 10, by = 1)
y2 <- x^2
y3 <- x^3

plot(y2~x,
     type = "b",
     col = "red",
     pch = 19,
     xlab = "x",
     main = "exponencialni fce")

lines(y3~x,
      type = "b",
      col = "blue",
      pch = "x",
      lty = 2)

legend(1,90, c("x2", "x3"), col = c("red", "blue"), lty = 1:2)