在同一個情節繪製多個函數曲線

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