最初の無作為標本、次の無作為標本
ここでは、標本ごとに線形モデルがどのように変わるかを確認していきます。母集団からの2つの無作為標本を散布図に重ねて表示します。母集団データ（popdata）はすでに用意されており、ggplot と dplyr も読み込まれています。
この演習はコースの一部です
R による線形回帰の推測
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
# Using popdata, plot response vs. explanatory
ggplot(___, aes(x = ___, y = ___)) +
# Add a point layer
___() +
# Add a smooth trend layer, using lin. reg., no ribbon
___(method = "___", se = ___)