ggplot2 - 自動的に（coord_cartesianを使用して）geom_smoothをズームインする。

Question

geom_smooth多くのバリエーションが平均化されているため、大きな部分が大きい。しかし、このため、ズームアウト時にx軸上でどのように変化するのかを確認することは困難です。私はggplot2をズームインする必要がある約1000のグラフを、coord_cartesian経由で生成しています。ただし、各グラフには異なるズーム制限があります。私はggplot2スムーズにフィットするようにズームインすることができる方法はありますか？私はちょうどgeom_smoothラインとgeom_smoothラインプラスSE陰影付けされた領域の両方でズームインするためのソリューションに興味があります。

例えば、私は、私はこれを回すことができる方法を知ることに興味を持って次のようになります。このような何かに

ggplot(data=mtcars, aes(y=qsec,x=wt)) + geom_point() + geom_smooth() 

：

ggplot(data=mtcars, aes(y=qsec,x=wt)) + geom_point() + geom_smooth() + coord_cartesian(ylim = c(15,20)) 

明示的に制限を指定せずに。

Answer 1

スムージングモデルを手動でフィッティングすると、このタイプや他のタイプのカスタマイズをより柔軟に行うことができます。ほとんどのプロジェクトでは、まずインラインインターフェイスを使い始めますが、通常は別の調整が必要な場合は手動で計算に切り替える必要があります。

ハドレーの本の§9.1.1も参照してください。

require(ggplot2) 

# Fit smooth manually 
fit = loess(qsec ~ wt, data=mtcars) 
newx = data.frame(wt=with(mtcars, seq(min(wt), max(wt), len=100))) 
pred = predict(fit, newdata=newx, se=T) 
pred = cbind(wt=newx, qsec=pred$fit, se=pred$se.fit) 

# Calculate limits based on extent of smooth geom 
ylims = with(pred, c(floor(min(qsec-se)), ceiling(max(qsec+se)))) 

# Plot 
dev.new(width=5, height=4) 
ggplot(data=mtcars, aes(y=qsec, x=wt)) + 
    geom_point() + 
    geom_smooth(aes(ymax=qsec+se, ymin=qsec-se), data=pred, stat='identity') + 
    coord_cartesian(ylim = ylims) 

あなたが唯一の直接実際の限界、例えば、scales='free'を指定し、することはできませんので、しかし、これはまだの面では動作しません。