Cómo representar funciones en R

Problema

Queremos representar funciones en R.

Solución

En nuestro ejemplo queremos representar la siguiente ecuación de segundo grado: 2x² + 20x + 3 = 0

• Opción 1: base package

f <- function(x) {
  x ^ 2 + 20 * x + 3
}
curve(expr = f, from = -100, to = 100)


• Opción 2: ggplot2

library(ggplot2)
ggplot(data.frame(x = c(-100, 100)), aes(x)) +
  stat_function(
    fun = function(x) {
      x ^ 2 + 20 * x + 3
    }
  ) +
  geom_hline(yintercept = 0) +
  geom_vline(xintercept = 0)

 

Notas

Si queremos añadir más funciones:

• Opción 1: Base package

f1 <- function(x) {
  x ^ 2 + 20 * x + 3
}
f2 <- function(x) {
  x ^ 2 + 50 * x + 100
}
curve(expr = f1, from = -100, to = 100)
curve(expr = f2, from = -100, to = 100, col  = 2, add = TRUE)


• Opción 2: ggplot2

ggplot(data.frame(x = c(-100, 100)), aes(x)) +
  stat_function(
    fun = function(x) {
      x ^ 2 + 20 * x + 3
    }
  ) +
  stat_function(
    fun = function(x) {
      x ^ 2 + 50 * x + 100
    },
    colour = "red"
  ) +
  geom_hline(yintercept = 0) +
  geom_vline(xintercept = 0)
 

Entradas relacionadas

• Resolver ecuaciones de segundo grado en R

Referencias

• ggplot2 reference