Dibujar curvas de funciones múltiples en el mismo gráfico en R

En este artículo, discutiremos cómo trazar múltiples curvas de función en el mismo gráfico en el lenguaje de programación R.

Método 1: en base R

Base R admite una curva de función() que se puede usar para visualizar una curva de función requerida. Admite varios parámetros para editar la curva según los requisitos.

Sintaxis: curve(expresión, a, desde, col)

Parámetros:

• expresión: Ser curvo
• a, desde: rango de trazado de curvas
• col: color de la curva

Para dibujar múltiples curvas en un gráfico, se crean diferentes funciones por separado y la función curve() se llama repetidamente para cada función de curva. La llamada para todas las demás funciones curve(), excepto la primera, debería haber agregado un atributo establecido en VERDADERO para que se puedan agregar varias curvas al mismo gráfico. Para diferenciar entre los diferentes colores se utilizan.

Ejemplo:

function1<- function(x){x ** 2}
function2<-function(x){x ** 3}
function3<-function(x){x / 2}
function4<-function(x){2*(x ** 3)+(x ** 2)-(x / 2)}
  
curve(function1, col = 1)
curve(function2, col = 2, add = TRUE)
curve(function3, col = 3, add = TRUE)
curve(function4, col = 4, add = TRUE)

Producción:

Método 2: Usar ggplot

GGPLOT2 es una biblioteca R utilizada para visualizar gráficos con sus diversas funciones fáciles de usar. Para dibujar múltiples curvas usando las funciones glot, primero se crean normalmente. Pero para dibujarlas en el mismo gráfico, las funciones se convierten en marco de datos y luego se visualizan. 

Ejemplo:

library("ggplot2")
function1<- function(x){x ** 2}
function2<-function(x){x ** 3}
function3<-function(x){x / 2}
function4<-function(x){2*(x ** 3)+(x ** 2)-(x / 2)}
  
df=data.frame(x = -2 : 2,
              values = c(function1(-2 : 2),
                       function2(-2 : 2),
                       function3(-2 : 2),
                       function4(-2 : 2)),
              fun = rep(c("function1", "function2",
                          "function3", "function4"))
              )
  
ggplot(df, aes(x, values, col = fun))+geom_line()

Producción: