一個繪製對應於給定函數曲線的方法是這樣的:在同一個情節繪製多個函數曲線
fun1 <- function(x) sin(cos(x)*exp(-x/2))
plot (fun1, -8, 5)
如何添加另一個函數的曲線(如FUN2,這也被定義其數學公式)在同一個陰謀?
一個繪製對應於給定函數曲線的方法是這樣的:在同一個情節繪製多個函數曲線
fun1 <- function(x) sin(cos(x)*exp(-x/2))
plot (fun1, -8, 5)
如何添加另一個函數的曲線(如FUN2,這也被定義其數學公式)在同一個陰謀?
使用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
調用中使用。
使用參數()
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)
我始終使用相同的範例。您可能需要在第一個繪圖中使用ylim = range(...)表達式,也可以在第二個繪圖中使用不同的顏色,使用xlab和ylab進行處理,如果縮放不重疊等,則會抑制座標軸pp。至少對於更多一般解決方案你展示的內容確實回答了問題:) – 2010-10-29 15:39:07
使用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"))
使用plotFun {}鑲嵌http://rgm3.lab.nig.ac.jp/RGM/R_rdfile?f=mosaic/man/plotFun.Rd&d=R_CC – 2014-02-16 17:44:42