在同一图中绘制多个函数曲线

Question

绘制与给定函数对应的曲线的方法是：

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

如何在同一个图中添加另一个函数的曲线（例如fun2，也由其数学公式定义）？

Answer 1

使用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"))

Answer 2

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

另请查看curve的帮助页面。

Answer 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调用时使用。

Answer 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)