Построение функций поверх точек данных в R
-
13-09-2019 - |
Вопрос
Есть ли способ наложить математическую функцию поверх данных с помощью 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.
Решение
Вы, вероятно, хотите 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()
, т. е. вычисленные координаты x и y:
qplot(x, y, data=as.data.frame(curve(eq)), geom="line")
Другие советы
Учитывая, что заголовок вашего вопроса - "построение графиков функций в 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)
Не связан с StackOverflow