Функции построения поверх данных в R

Question

Есть ли способ наложения математической функции поверх данных с помощью 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#? 

В этом случае мои данные генерируются с помощью функции, но я хочу, чтобы понять, как использовать curve() с ggplot.

Answer 1

Вы, вероятно, хотите 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) 

и если вы действительно хотите использовать curve(), т.е. вычисленные координаты х и у:

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

Answer 2

Учитывая, что ваш вопрос название является «функции рисования в R ", вот как использовать curve, чтобы добавить функцию в базовый график R.

Создание данных, как и раньше

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

Затем с помощью plot из базовых графики для построения точек с последующим curve с add=TRUE аргументом, чтобы добавить кривую.

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