"with"内に "plot"の後に "abline"が機能しない

Question

散布図を作成し、データセットのサブセットの回帰直線を描画したいとします。再現可能な例を与えるために、私はCO2データセットを使用します。

私はこれを試してみましたが、回帰直線が

with(subset(CO2,Type=="Quebec"),plot(conc,uptake),abline(lm(uptake~conc))) 

何らかの理由で表示されません。このようなコマンドを与えるための正しい方法は何ですか？ 1ライナーでもできますか？

Answer 1

両方のコード行を1つのR式として指定する必要があります。 abline()は、with()（これは...引数）の後続の引数として使用されています。これは、将来のメソッドに引数を渡す手段として文書化されていますが、最終的な結果は、コードのこの部分の事実上ブラックホールです。

つのオプション、i）1種のラインを保つが、{と}に式をラップし、;で2つの式を区切る：

with(subset(CO2,Type=="Quebec"), {plot(conc,uptake); abline(lm(uptake~conc))}) 

または静止{と}に包まれた二行、上式を広げ：

with(subset(CO2,Type=="Quebec"), 
    {plot(conc,uptake) 
     abline(lm(uptake~conc))}) 

---

編集：正直言って、このようなことをしているならば、Rのモデル式を使ってサブセッティングをすることの利点が失われています。次のように私はこれをやっているだろう：

plot(uptake ~ conc, data = CO2, subset = Type == "Quebec") 
abline(lm(uptake ~ conc, data = CO2, subset = Type == "Quebec"), col = "red") 

with()はちょうどあなたがブレースと;を使用して、コードを難読化する原因となっています。

Answer 2

?with：with ... dataを使用して作成されたローカル環境でexprと評価されます。 abline()を...で渡しています。

with(subset(CO2,Type=="Quebec"),{plot(conc,uptake);abline(lm(uptake~conc))}) 

Answer 3

GavinとJoshuaはすぐに問題を解決する優れたソリューションを提供します。ここにはggplotを使った等価なプロットがあります：