Rグラフィックスの "curve"関数内のユーザー定義関数を使用する

Question

合計面積の異なる正規分布密度プロットを作成する必要があります（合計は1）。次の関数を使用して、私はラムダ指定することができます - 相対面積を与える：

sdnorm <- function(x, mean=0, sd=1, lambda=1){lambda*dnorm(x, mean=mean, sd=sd)} 

私はその後、別のパラメータを使用して関数をプロットしたいです。

require(ggplot2) 
qplot(x, geom="blank") + stat_function(fun=sdnorm,args=list(mean=8,sd=2,lambda=0.7)) + 
    stat_function(fun=sdnorm,args=list(mean=18,sd=4,lambda=0.30)) 

を私は実際に私は「カーブ」機能を使用する必要があると思うそのためのベースRグラフィック、でこれをしたい：ggplot2を使用して、このコードは動作します。しかし、私はこれを動作させるのに苦労しています。

Answer 1

あなたは? curveのヘルプファイルを見てみる場合は、最初の引数は異なるものの数とすることができることがわかります：

関数の名前、またはコールまたは式xの関数として記述され、xと同じ長さのオブジェクトに評価されます。

これはあなただけで行うことができるようにあなたは、関数名または式のいずれかと、最初の引数を指定できることを意味します：

curve(sdnorm) 

デフォルトの引数を持つ関数のプロットを取得します。そうでない場合は、お使いのggplot2表現を再現するためにあなたがしたいと思う：

curve(sdnorm(x, mean=8,sd=2,lambda=0.7), from = 0, to = 30) 
curve(sdnorm(x, mean=18,sd=4,lambda=0.30), add = TRUE) 

結果：

Answer 2

あなたは、私がylab = 'y'を追加し、y軸の再ラベルを持っている画像を更新し

x <- seq(0, 50, 1) 
plot(x, sdnorm(x, mean = 8, sd = 2, lambda = 0.7), type = 'l', ylab = 'y') 
lines(x, sdnorm(x, mean = 18, sd = 4, lambda = 0.30)) 

EDITベースRに次の操作を行うことができます。

これは、あなたが始める必要があります。