Нарисуйте более одной функциональной кривой на одном и том же участке

Способ рисования кривой, соответствующей данной функции, таков:

fun1 <- function(x) sin(cos(x)*exp(-x/2))
plot (fun1, -8, 5)

Как я могу добавить еще одну кривую функции (например, fun2, которая также определяется его математической формулой) в том же сюжете?

Ответы

Ответ 1

plot (fun2, -8, 5, add=TRUE)

Также проверьте справочную страницу curve.

Ответ 2

Использование matplot:

fun1<-function(x) sin(cos(x)*exp(-x/2))
fun2<-function(x) sin(cos(x)*exp(-x/4))
x<-seq(0,2*pi,0.01)
matplot(x,cbind(fun1(x),fun2(x)),type="l",col=c("blue","red"))

Ответ 3

Используйте функцию points. Он имеет тот же точный синтаксис, что и plot.

Итак, например:

fun1 <- function(x) sin(cos(x)*exp(-x/2))

x <- seq(0, 2*pi, 0.01)
plot (x, fun1(x), type="l", col="blue", ylim=c(-0.8, 0.8))
points (x, -fun1(x), type="l", col="red")

Обратите внимание, что параметры графика, такие как ylim, xlim, названия и т.д., используются только с первого вызова plot.

Ответ 4

Используя параметр par()

fun1 <- function(x) sin(cos(x)*exp(-x/2))
fun2 <- function(x) sin(cos(x)*exp(-x/4))

plot(fun1, -8,5)
par(new=TRUE)
plot(fun2, -8,5)