Trazado de funciones en la parte superior de los puntos de datos en R

Question

¿Hay alguna forma de superponer una función matemática sobre los datos usando ggplot?

## add ggplot2 
library(ggplot2) 

# function 
eq = function(x){x*x} 

# Data      
x = (1:50)  
y = eq(x)                

# Make plot object  
p = qplot( 
x, y, 
xlab = "X-axis", 
ylab = "Y-axis", 
) 

# Plot Equation  
c = curve(eq) 

# Combine data and function 
p + C#? 

En este caso se genera mis datos utilizando la función, pero quiero entender cómo usar curve() con ggplot.

Answer 1

es probable que desee stat_function:

library("ggplot2") 
eq <- function(x) {x*x} 
tmp <- data.frame(x=1:50, y=eq(1:50)) 

# Make plot object 
p <- qplot(x, y, data=tmp, xlab="X-axis", ylab="Y-axis") 
c <- stat_function(fun=eq) 
print(p + c) 

y si realmente desea utilizar curve(), es decir, las x calculadas y las coordenadas Y:

qplot(x, y, data=as.data.frame(curve(eq)), geom="line") 

Answer 2

Teniendo en cuenta que el título de la pregunta es "funciones de trazado en R ", aquí se explica cómo usar curve para agregar una función a un argumento R base.

crear datos como antes

eq = function(x){x*x}; x = (1:50); y = eq(x) 

A continuación, utilice plot de gráficos de base para trazar los puntos seguido por curve con el argumento add=TRUE, añadir la curva.

plot(x, y, xlab = "X-axis", ylab = "Y-axis") 
curve(eq, add=TRUE)