diff --git a/index.qmd b/index.qmd
index fec6c6d..ddbc2b3 100644
--- a/index.qmd
+++ b/index.qmd
@@ -773,6 +773,55 @@ gapminder[gapminder$year == 2002 | 2007,]
 
 2. 行 1 から 9 と 19 から 23 のみを含む新しい `data.frame` を作成し、それを `gapminder_small` と名付けてください。この操作は 1 ステップまたは 2 ステップで行うことができます。
 
+# ggplot2 を使用した出版品質のグラフィック作成
+
+## チャレンジ
+
+例を修正して、平均寿命が時間とともにどのように変化したかを示す図を作成してください：
+
+``` r
+ggplot(data = gapminder, mapping = aes(x = gdpPercap, y = lifeExp)) + geom_point()
+```
+
+ヒント：`gapminder` データセットには “year” という列があり、これを X 軸に表示する必要があります。
+
+## チャレンジ
+
+ポイントレイヤーとラインレイヤーの両方を入れてみてください。何が起こるでしょうか？
+
+## チャレンジA
+
+前の例のポイントレイヤーで、ポイントの色とサイズを変更してください。
+
+ヒント：`aes` 関数を使用しないでください。
+
+ヒント：ポイントに対する `linewidth` に相当するものは `size` です。
+
+## チャレンジB
+
+チャレンジA の解答を修正し、ポイントの形状を変更し、大陸ごとに異なる色と新しいトレンドラインを追加してください。
+
+ヒント：`color` 引数は `aes` 関数のマッピング内で使用できます。
+
+## チャレンジ
+
+異なる大陸間で利用可能な年における平均寿命を比較するボックスプロットを生成してください。
+
+応用：
+
+- Y軸の名前を「Life Expectancy」に変更する。
+- X軸のラベルを削除する。
+
+## チャレンジ：ggplot2 の出力のファイル保存
+
+‘pdf’ コマンドを変更して、PDFの2ページ目を作成し、 同じデータを使って `facet_grid` を使用して大陸ごとに1つのパネルを表示するプロットを追加してください。
+
+## チャレンジ：データフレームのサブセットのファイル保存
+
+`gapminder` データを1990年以降に収集されたデータポイントのみを含むようにサブセット化する データクリーニングスクリプトファイルを作成してください。
+
+このスクリプトを使用して、新しいサブセットを `cleaned-data/` ディレクトリに保存してください。
+
 <!-- FIX ME: Add after receiving feedback
 
 ## よくできたこと