はggplot2

Question

を持つすべての値に対して定義されていない関数をプロットこんにちは、私はこれらのような関数をプロットしています：

eq <-function(x) ifelse(x<(-1)|x>1|(x>(-1)& x<1),(x/((x^2)-1)),NA) 
eq2 <-function(x) ifelse(x<(-sqrt(2))|x>sqrt(2)|x>(-sqrt(2))&x<sqrt(2),(x/((x^2)-2)), NA) 
eq3 <-function(x) ifelse(x<(-sqrt(3))|x>sqrt(3)|x>(-sqrt(3))&x<sqrt(3),(x/((x^2)-3)), NA) 

library(ggplot2) 
ggplot(data.frame(x=c(-3,3)), aes(x))+ 
    stat_function(fun=eq,geom="line", aes(colour="x/(x^2-1)"))+ 
    stat_function(fun=eq2,geom='line',aes(color='x/(x^2-2)')) + 
    stat_function(fun=eq3,geom='line', aes(color ='x/(x^2-3)'))+ 
    scale_x_continuous(breaks = (seq(-3, 3, by = 0.5)))+ ylim(-3,3) 

これは、プロットを作成しますが、行はランダムに停止しているように見えます。私は彼らにプロットの端を続けることを望みます。私のコードはこの質問Plotting Noncontinuous Function ggplot2の答えと同等であることは確かです。 提案がありますか？

Answer 1

ylim(-3,3)は、その範囲外のデータ値がプロットから削除される原因となっています（scale_y_continuousでも発生します）。これらの範囲外のデータを削除せずに制限を設定するcoord_cartesianを使用：上記のコードで

ylim(-10,10) + 
    coord_cartesian(ylim=c(-3,3)) 

、私はまた、ylim範囲を設定するが、グラフの範囲の制限数のはるかに大きくてきました。これは、ファンクション値がInfまたは-Infになったときの縦線を避けるためです。