2つの関数のグラフをプロットするR

Question

2つの関数（2x + 1と3x - 0.5 * x^2）のグラフを同じグラフシートにプロットしようとしましたが、2つの異なる範囲（x < = 3、x> 3）。これまでのところ、私は次のように2つの関数を定義している：私は、コードを実行すると

# Define first function with given range 
Line1 <- function(x) { 
    if (x <= 3) { 
     (3*x) + 1 } else { 
    }  
} 

# Define second function with given range 
Line2 <- function(x) { 
    if (x > 3) { 
     2*x - (0.5*(x^2)) } else { 
    }   
} 

# Plot functions 
ggplot(d,aes(x=x)) + stat_function(fun=rwrap(Line1,0,3),geom="line",col="blue") 
+ stat_function(fun=rwrap(Line2,3,5),geom="line",col="red")` 

、私は次のエラーメッセージが出ます：

Error: Discrete value supplied to continuous scale In addition:

Warning messages:
1: In if (x <= 3) { : the condition has length > 1 and only the first element will be used
2: In if (x > 3) { : the condition has length > 1 and only the first element will be used

私はそれをトラブルシューティングしようとしたが、私はちょうど失われていますこの時点で。

Answer 1

問題は、関数がベクトル化されていないということです。彼らは時刻にxの単一の値のために働くでしょうが、Line1(0:10)は動作しません。

、それifelseを持つ単一のベクトル化機能if{}else{}のベクトル化バージョンを作成します：もちろん、あなたがより多くを使いたいでしょうけれども

bar = function(x) 3 * x + 1 
baz = function(x) 2 * x - 0.5 * x^2 
foo = function(x) ifelse(x <= 3, bar(x), baz(x)) 

：あなたはこのようにそれを打破することができ

foo = function(x) { 
    ifelse(x <= 3, 3 * x + 1, 2 * x - 0.5 * x^2) 
} 

をこれらのプレースホルダよりも意味のある名前。