在同一个情节绘制多个函数曲线

Question

一个绘制对应于给定函数曲线的方法是这样的：

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

如何添加另一个函数的曲线（如FUN2，这也被定义其数学公式）在同一个阴谋？

Answer 1

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

检查也帮助页面curve。

Answer 2

使用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 3

使用参数（）

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) 

Answer 4

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