diff --git a/po/r-novice-gapminder.ja.po b/po/r-novice-gapminder.ja.po
index 532cdf59..815f4bd7 100644
--- a/po/r-novice-gapminder.ja.po
+++ b/po/r-novice-gapminder.ja.po
@@ -12285,20 +12285,20 @@ msgstr ""
 "---\n"
 "# Please do not edit this file directly; it is auto generated.\n"
 "# Instead, please edit 08-plot-ggplot2.md in _episodes_rmd/\n"
-"title: Creating Publication-Quality Graphics with ggplot2\n"
-"teaching: 60\n"
-"exercises: 20\n"
-"questions:\n"
-"- \"How can I create publication-quality graphics in R?\"\n"
-"objectives:\n"
-"- \"To be able to use ggplot2 to generate publication quality graphics.\"\n"
-"- \"To apply geometry, aesthetic, and statisics layers to a ggplot plot.\"\n"
-"- \"To manipulate the aesthetics of a plot usng different colors, shapes, and lines.\"\n"
-"- \"To improve data visualization through transforming scales and paneling by group.\"\n"
-"- \"To save a plot created with ggplot to disk.\"\n"
-"keypoints:\n"
-"- \"Use `ggplot2` to create plots.\"\n"
-"- \"Think about graphics in layers: aesthetics, geometry, statistics, scale transformation, and grouping.\"\n"
+"タイトル: ggplot2を用いた出版品質のグラフィックス作成\n"
+"講義： 60\n"
+"練習： 20\n"
+"質問：\n"
+"- \"Rで出版品質のグラフィックを作成するにはどうすればよいでしょうか？\"\n"
+"目標：\n"
+"- \"ggplot2を用いた出版品質のグラフィックスの生成\"\n"
+"- \"ジオメトリ（点、線などの形状）、エステティック（審美）、および統計のレイヤーをggplotプロットに適用\"\n"
+"- \"様々な色、形、線を用いた、プロットの審美面の操作\"\n"
+"- \"スケール変換とグループ化による、より良いデータ視覚化\"\n"
+"- \"ggplotで作成したプロットのディスク保存\"\n"
+"キーポイント：\n"
+"- \"プロットを作成するために`ggplot2`を用います\"\n"
+"- \"エステティック、ジオメトリ、統計、スケール変換、グループ化など、レイヤー単位でグラフィックスを考えてみましょう。\"\n"
 "source: Rmd\n"
 "---"
 
@@ -12307,10 +12307,7 @@ msgid ""
 "Plotting our data is one of the best ways to\n"
 "quickly explore it and the various relationships\n"
 "between variables."
-msgstr ""
-"Plotting our data is one of the best ways to\n"
-"quickly explore it and the various relationships\n"
-"between variables."
+msgstr "データをプロットすることは、データとその変数間の様々な関係をクイックに探索する最良の方法の一つです。"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:27
 msgid ""
@@ -12318,9 +12315,9 @@ msgid ""
 "the [base plotting system][base], the [lattice][lattice]\n"
 "package, and the [ggplot2][ggplot2] package."
 msgstr ""
-"There are three main plotting systems in R,\n"
-"the [base plotting system][base], the [lattice][lattice]\n"
-"package, and the [ggplot2][ggplot2] package."
+"Rには、主に3つのプロットシステムがあります。\n"
+"[R組み込みplot関数][base]、 [lattice][lattice]\n"
+"パッケージ、[ggplot2][ggplot2] パッケージです。"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:31
 msgid ""
@@ -12338,9 +12335,8 @@ msgid ""
 "it is the most effective for creating publication quality\n"
 "graphics."
 msgstr ""
-"Today we'll be learning about the ggplot2 package, because\n"
-"it is the most effective for creating publication quality\n"
-"graphics."
+"今回、私たちはggplt2パッケージについて学んでいきます。\n"
+"なぜなら、ggplot2パッケージは出版品質並のグラフィック作成に最も効果的だからです。"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:39
 msgid ""
@@ -12349,10 +12345,9 @@ msgid ""
 "**coordinate system**, and a set of **geoms**--the visual representation of data\n"
 "points."
 msgstr ""
-"ggplot2 is built on the grammar of graphics, the idea that any plot can be\n"
-"expressed from the same set of components: a **data** set, a\n"
-"**coordinate system**, and a set of **geoms**--the visual representation of data\n"
-"points."
+"ggplot2はthe grammar of graphics(グラフィックス文法)に基づいており、\n"
+"一貫した構成記述体系（データセット、座標系、そして一連の配置）でプロットを\n"
+"表現することができます。"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:44
 msgid ""
@@ -12360,13 +12355,12 @@ msgid ""
 "This idea may be familiar to you if you have used image editing programs like Photoshop, Illustrator, or\n"
 "Inkscape."
 msgstr ""
-"The key to understanding ggplot2 is thinking about a figure in layers.\n"
-"This idea may be familiar to you if you have used image editing programs like Photoshop, Illustrator, or\n"
-"Inkscape."
+"ggplot2を理解するための鍵は、レイヤーについて考えることです。\n"
+"このアイディアは、Photoshop、Illustrator、Inkscapeなどの画像編集ソフトを使用する場面でお馴染みかもしれません。"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:48
 msgid "Let's start off with an example:"
-msgstr "Let's start off with an example:"
+msgstr "それでは、例題から始めましょう。:"
 
 # code block
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:51
@@ -12394,10 +12388,9 @@ msgid ""
 "`ggplot` function are the *global* options for the plot: they apply to all\n"
 "layers on the plot."
 msgstr ""
-"So the first thing we do is call the `ggplot` function. This function lets R\n"
-"know that we're creating a new plot, and any of the arguments we give the\n"
-"`ggplot` function are the *global* options for the plot: they apply to all\n"
-"layers on the plot."
+"最初に行うことは`ggplot`関数を呼び出すことです。\n"
+"この関数は、新しいプロットを作成していることをRに知らせます。\n"
+"`ggplot`関数に与える引数は、いずれもそのプロットのグローバルオプションであり、すべてのレイヤーに適用されます。"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:65
 msgid ""
@@ -12411,19 +12404,19 @@ msgid ""
 "pass `aes` these columns (e.g. `x = gapminder[, \"gdpPercap\"]`), this is because\n"
 "`ggplot` is smart enough to know to look in the **data** for that column!"
 msgstr ""
-"We've passed in two arguments to `ggplot`. First, we tell `ggplot` what data we\n"
-"want to show on our figure, in this example the gapminder data we read in\n"
-"earlier. For the second argument we passed in the `aes` function, which\n"
-"tells `ggplot` how variables in the **data** map to *aesthetic* properties of\n"
-"the figure, in this case the **x** and **y** locations. Here we told `ggplot` we\n"
-"want to plot the \"gdpPercap\" column of the gapminder data frame on the x-axis, and\n"
-"the \"lifeExp\" column on the y-axis. Notice that we didn't need to explicitly\n"
-"pass `aes` these columns (e.g. `x = gapminder[, \"gdpPercap\"]`), this is because\n"
-"`ggplot` is smart enough to know to look in the **data** for that column!"
+"ggplotに2つの引数を渡しました。\n"
+"一つ目の引数は、`ggplot`に、どのデータを図に表示するかを示します。この例は、前に読み込んだgapminderデータです。\n"
+"二つ目の引数には、`aes` 関数を渡しました。\n"
+"この関数は、データの変数が図のエステティック属性にどのようにマッピングされるか`ggplot`に指示します。\n"
+"この場合では、**x** と**y**を指定しています。\n"
+"ここでは、`ggplot`に対して、x軸にgapminderデータフレームの“gdpPercap”列を、\n"
+"y軸には“lifeExp”列をプロットするように指示しました。\n"
+"`ggplot`がその列のデータを調べるのに十分な知識を持っているため、これらの列に明示的に`aes`を渡す必要はありません。\n"
+"（例えば`x = gapminder [、 \"gdpPercap\"]`など。）"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:75
 msgid "By itself, the call to `ggplot` isn't enough to draw a figure:"
-msgstr "By itself, the call to `ggplot` isn't enough to draw a figure:"
+msgstr "以下のように、ggplotを呼び出すだけでは図を描くことはできません。"
 
 # code block
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:78
@@ -12447,10 +12440,10 @@ msgid ""
 "tells `ggplot` we want to visually represent the relationship between **x** and\n"
 "**y** as a scatterplot of points:"
 msgstr ""
-"We need to tell `ggplot` how we want to visually represent the data, which we\n"
-"do by adding a new **geom** layer. In our example, we used `geom_point`, which\n"
-"tells `ggplot` we want to visually represent the relationship between **x** and\n"
-"**y** as a scatterplot of points:"
+"`ggplot`にデータを視覚的に表現する方法を指示する必要があります。\n"
+"これは新しい**geom**レイヤを追加することで行います。\n"
+"この例では、`geom_point`を使用しました。\n"
+"これは`ggplot`に点の散布図としてxとyの関係を視覚的に表現するように指示します。"
 
 # code block
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:91
@@ -12498,7 +12491,7 @@ msgid ""
 "> >"
 msgstr ""
 ">\n"
-"> Modify the example so that the figure shows how life expectancy has\n"
+"> 次の例を変更して、時間とともに平均余命がどのように変化しているかを図示して下さい。\n"
 "> changed over time:\n"
 ">\n"
 "> \n"
@@ -12507,12 +12500,13 @@ msgstr ""
 "> ~~~\n"
 "> {: .language-r}\n"
 ">\n"
-"> Hint: the gapminder dataset has a column called \"year\", which should appear\n"
-"> on the x-axis.\n"
+"> ヒント：gapminderデータセットには「year」という列がありますので、\n"
+">「year」列をx軸に指定して下さい。\n"
 ">\n"
-"> > ## Solution to challenge 1\n"
+"\n"
+"> > ## チャレンジ1の回答例\n"
 "> >\n"
-"> > Here is one possible solution:\n"
+"> > これは１つの回答例です。:\n"
 "> >\n"
 "> > \n"
 "> > ~~~\n"
@@ -12553,21 +12547,21 @@ msgid ""
 "> >"
 msgstr ""
 ">\n"
-"> ## Challenge 2\n"
+"> ## チャレンジ ２\n"
 ">\n"
-"> In the previous examples and challenge we've used the `aes` function to tell\n"
-"> the scatterplot **geom** about the **x** and **y** locations of each point.\n"
-"> Another *aesthetic* property we can modify is the point *color*. Modify the\n"
-"> code from the previous challenge to **color** the points by the \"continent\"\n"
-"> column. What trends do you see in the data? Are they what you expected?\n"
+">先の例題とチャレンジでは、`aes` 関数を使用して、各点の**x**と**y**の位置について散布図**geom**を指定しました。\n"
+">修正できるもう1つのエステティック属性は、点の色です。\n"
+">先のチャレンジのコードを修正して、“continent” 列で点に色付けして下さい。\n"
+">データにどはどのような傾向が見られますか？\n"
+">それらの傾向は、あなたが期待したものですか？\n"
 ">\n"
-"> > ## Solution to challenge 2\n"
+"> > ## チャレンジ 2の回答例\n"
 "> >\n"
-"> > In the previous examples and challenge we've used the `aes` function to tell\n"
-"> > the scatterplot **geom** about the **x** and **y** locations of each point.\n"
-"> > Another *aesthetic* property we can modify is the point *color*. Modify the\n"
-"> > code from the previous challenge to **color** the points by the \"continent\"\n"
-"> > column. What trends do you see in the data? Are they what you expected?\n"
+">>先の例題とチャレンジでは、`aes` 関数を使用して、各点の**x**と**y**の位置について散布図**geom**を指定しました。\n"
+">>修正できるもう1つのエステティック属性は、点の色です。\n"
+">>先のチャレンジのコードを修正して、“continent” 列で点に色付けして下さい。\n"
+">>データにどはどのような傾向が見られますか？\n"
+">>それらの傾向は、あなたが期待したものですか？\n"
 "> >\n"
 "> > \n"
 "> > ~~~\n"
@@ -12582,15 +12576,15 @@ msgstr ""
 # header
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:158
 msgid "## Layers"
-msgstr "## Layers"
+msgstr "## レイヤー"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:160
 msgid ""
 "Using a scatterplot probably isn't the best for visualizing change over time.\n"
 "Instead, let's tell `ggplot` to visualize the data as a line plot:"
 msgstr ""
-"Using a scatterplot probably isn't the best for visualizing change over time.\n"
-"Instead, let's tell `ggplot` to visualize the data as a line plot:"
+"散布図を使用することは、時間経過による変化を視覚化するのに、おそらく最適ではありません。\n"
+"代わりに、データを線グラフとして可視化するようggplotに指示しましょう。"
 
 # code block
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:164
@@ -12615,17 +12609,16 @@ msgid ""
 "added the **by** *aesthetic*, which tells `ggplot` to draw a line for each\n"
 "country."
 msgstr ""
-"Instead of adding a `geom_point` layer, we've added a `geom_line` layer. We've\n"
-"added the **by** *aesthetic*, which tells `ggplot` to draw a line for each\n"
-"country."
+"`geom_point`レイヤーを追加する代わりに、`geom_line`レイヤーを追加しました。\n"
+"*by**エステティックを追加し、各国ごとに線を描くよう`ggplot`に指示します。"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:176
 msgid ""
 "But what if we want to visualize both lines and points on the plot? We can\n"
 "simply add another layer to the plot:"
 msgstr ""
-"But what if we want to visualize both lines and points on the plot? We can\n"
-"simply add another layer to the plot:"
+"しかし、線と点の両方をプロット上に視覚化したい場合はどうすればよいでしょうか？\n"
+"プロットに別のレイヤーを追加するだけです。"
 
 # code block
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:180
@@ -12650,9 +12643,8 @@ msgid ""
 "this example, the points have been drawn *on top of* the lines. Here's a\n"
 "demonstration:"
 msgstr ""
-"It's important to note that each layer is drawn on top of the previous layer. In\n"
-"this example, the points have been drawn *on top of* the lines. Here's a\n"
-"demonstration:"
+"各レイヤーは、前のレイヤーの上に描画されることに注意することが重要です。\n"
+"この例では、点は線の上に描画されています。これはデモです。"
 
 # code block
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:193
@@ -12678,15 +12670,14 @@ msgid ""
 "to the points. Now we can clearly see that the points are drawn on top of the\n"
 "lines."
 msgstr ""
-"In this example, the *aesthetic* mapping of **color** has been moved from the\n"
-"global plot options in `ggplot` to the `geom_line` layer so it no longer applies\n"
-"to the points. Now we can clearly see that the points are drawn on top of the\n"
-"lines."
+"この例では、**color**エステティックマッピングが、`ggplot`のグローバルプロットオプションから`geom_line`レイヤーに移動されたため、\n"
+"点には色が適用されなくなりました。\n"
+"これで、点が線の上に描画されていることがわかります。"
 
 # blockquote, which can be cascaded
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:206
 msgid "> ## Tip: Setting an aesthetic to a value instead of a mapping"
-msgstr "> ## Tip: Setting an aesthetic to a value instead of a mapping"
+msgstr "> ## ヒント：エステティック属性に、マッピングの代わりに値を設定する"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:207
 msgid ""
@@ -12694,7 +12685,10 @@ msgid ""
 "> So far, we've seen how to use an aesthetic (such as **color**) as a *mapping* to a variable in the data. For example, when we use `geom_line(aes(color=continent))`, ggplot will give a different color to each continent. But what if we want to change the colour of all lines to blue? You may think that `geom_line(aes(color=\"blue\"))` should work, but it doesn't. Since we don't want to create a mapping to a specific variable, we simply move the color specification outside of the `aes()` function, like this: `geom_line(color=\"blue\")`."
 msgstr ""
 ">\n"
-"> So far, we've seen how to use an aesthetic (such as **color**) as a *mapping* to a variable in the data. For example, when we use `geom_line(aes(color=continent))`, ggplot will give a different color to each continent. But what if we want to change the colour of all lines to blue? You may think that `geom_line(aes(color=\"blue\"))` should work, but it doesn't. Since we don't want to create a mapping to a specific variable, we simply move the color specification outside of the `aes()` function, like this: `geom_line(color=\"blue\")`."
+"> これまでは、データの変数のマッピングとしてエステティック属性（**color**など）を使用する方法を見てきました。たとえば、`geom_line(aes(color = continent))`を使用すると、`ggplot`は各大陸に異なる色を与えます。\n"
+"しかし、すべての線の色を青に変更したい場合はどうすればよいでしょうか？\n"
+"'geom_line(aes(color = \"blue\"))'で動作すると思うかもしれませんが、そうではありません。\n"
+"特定の変数へのマッピングを作成したくないので、`geom_line(color=\"blue\")`のように`aes()`関数を除いて色の指定をします。"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:212
 msgid ""
@@ -12720,13 +12714,11 @@ msgid ""
 "> >"
 msgstr ""
 ">\n"
-"> Switch the order of the point and line layers from the previous example. What\n"
-"> happened?\n"
+"> 先の例の点と線のレイヤーの順序を入れ替えてみましょう。何が起こりますか？\n"
 ">\n"
-"> > ## Solution to challenge 3\n"
+"> > ## チャレンジ 3の回答例\n"
 "> >\n"
-"> > Switch the order of the point and line layers from the previous example. What\n"
-"> > happened?\n"
+"> > 先の例の点と線のレイヤーの順序を入れ替えてみましょう。何が起こりますか？\n"
 "> >\n"
 "> > \n"
 "> > ~~~\n"
@@ -12743,15 +12735,15 @@ msgstr ""
 # header
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:235
 msgid "## Transformations and statistics"
-msgstr "## Transformations and statistics"
+msgstr "## 変換と統計"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:237
 msgid ""
 "Ggplot also makes it easy to overlay statistical models over the data. To\n"
 "demonstrate we'll go back to our first example:"
 msgstr ""
-"Ggplot also makes it easy to overlay statistical models over the data. To\n"
-"demonstrate we'll go back to our first example:"
+"ggplot2を使用すると、統計モデルをデータに適用することが容易になります。\n"
+"デモのために、最初の例に戻ります。"
 
 # code block
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:241
@@ -12779,12 +12771,11 @@ msgid ""
 "points, using the *alpha* function, which is especially helpful when you have\n"
 "a large amount of data which is very clustered."
 msgstr ""
-"Currently it's hard to see the relationship between the points due to some strong\n"
-"outliers in GDP per capita. We can change the scale of units on the x axis using\n"
-"the *scale* functions. These control the mapping between the data values and\n"
-"visual values of an aesthetic. We can also modify the transparency of the\n"
-"points, using the *alpha* function, which is especially helpful when you have\n"
-"a large amount of data which is very clustered."
+"現在、1人当たりGDPのいくつかの強い外れ値により、点と点の関係性を見ることが難しくなっています。\n"
+"*scale*関数を用いて、x軸上の単位のスケールを変更することができます。\n"
+"これらは、データの値とエステティックな視覚的値との間のマッピングを制御します。\n"
+"また、*alpha*関数を使用して点の透明度を変更することができます。\n"
+"これは、大量のデータが非常に密集している場合、特に役立ちます。"
 
 # code block
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:257
@@ -12812,17 +12803,15 @@ msgid ""
 "axis and so on. This makes it easier to visualize the spread of data on the\n"
 "x-axis."
 msgstr ""
-"The `log10` function applied a transformation to the values of the gdpPercap\n"
-"column before rendering them on the plot, so that each multiple of 10 now only\n"
-"corresponds to an increase in 1 on the transformed scale, e.g. a GDP per capita\n"
-"of 1,000 is now 3 on the y axis, a value of 10,000 corresponds to 4 on the y\n"
-"axis and so on. This makes it easier to visualize the spread of data on the\n"
-"x-axis."
+"gdpPercap列の値をプロットに描画する前に、`log10`関数による変換を適用したので、\n"
+"10の各倍数は変換されたスケールの1の増加に対応します。\n"
+"例えば、1人当たりGDPの値1,000はy軸の３、10,000はy軸の４に対応します。\n"
+"これにより、x軸上のデータの広がりを視覚化することが容易になります。"
 
 # blockquote, which can be cascaded
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:272
 msgid "> ## Tip Reminder: Setting an aesthetic to a value instead of a mapping"
-msgstr "> ## Tip Reminder: Setting an aesthetic to a value instead of a mapping"
+msgstr "> ## ヒントのリマインダ：エステティック属性に、マッピングの代わりに値を設定する"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:273
 msgid ""
@@ -12830,15 +12819,16 @@ msgid ""
 "> Notice that we used `geom_point(alpha = 0.5)`. As the previous tip mentioned, using a setting outside of the `aes()` function will cause this value to be used for all points, which is what we want in this case. But just like any other aesthetic setting, *alpha* can also be mapped to a variable in the data. For example, we can give a different transparency to each continent with `geom_point(aes(alpha = continent))`."
 msgstr ""
 ">\n"
-"> Notice that we used `geom_point(alpha = 0.5)`. As the previous tip mentioned, using a setting outside of the `aes()` function will cause this value to be used for all points, which is what we want in this case. But just like any other aesthetic setting, *alpha* can also be mapped to a variable in the data. For example, we can give a different transparency to each continent with `geom_point(aes(alpha = continent))`."
+"> `geom_point(alpha = 0.5)`を使用したことに注目してください。\n"
+"先のヒントで触れたように、`aes()`関数以外の設定を使用すると、この値がすべての点で使用されます。\n"
+"この場合、この値が必要です。しかし、他のエステティック設定と同様に、*alpha*はデータ内の変数にマッピングすることもできます。\n"
+"たとえば、`geom_point(aes(alpha = continent))`を使用して、各大陸に異なる透明度を与えることができます。"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:277
 msgid ""
 "We can fit a simple relationship to the data by adding another layer,\n"
 "`geom_smooth`:"
-msgstr ""
-"We can fit a simple relationship to the data by adding another layer,\n"
-"`geom_smooth`:"
+msgstr "`geom_smooth`という別のレイヤーを追加することで、データに単純な関係を当てはめることができます。"
 
 # code block
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:281
@@ -12862,8 +12852,8 @@ msgid ""
 "We can make the line thicker by *setting* the **size** aesthetic in the\n"
 "`geom_smooth` layer:"
 msgstr ""
-"We can make the line thicker by *setting* the **size** aesthetic in the\n"
-"`geom_smooth` layer:"
+"`geom_smooth`レイヤーで**size**エステティック属性を設定することによって、\n"
+"線を太くすることができます。"
 
 # code block
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:293
@@ -12889,15 +12879,14 @@ msgid ""
 "lesson we've used the `aes` function to define a *mapping* between data\n"
 "variables and their visual representation."
 msgstr ""
-"There are two ways an *aesthetic* can be specified. Here we *set* the **size**\n"
-"aesthetic by passing it as an argument to `geom_smooth`. Previously in the\n"
-"lesson we've used the `aes` function to define a *mapping* between data\n"
-"variables and their visual representation."
+"エステティック属性を指定する方法は2つあります。\n"
+"ここでは、**size**エステティック属性の設定を'geom_smooth'の引数として渡しています。\n"
+"これまでのレッスンでは、データの変数とその視覚表現の間のマッピングを定義するために`aes`関数を使用しました。"
 
 # blockquote, which can be cascaded
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:306
 msgid "> ## Challenge 4a"
-msgstr "> ## Challenge 4a"
+msgstr "> ## チャレンジ 4a"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:307
 msgid ""
@@ -12925,17 +12914,17 @@ msgid ""
 "> > <img src=\"../fig/rmd-08-ch4a-sol-1.png\" title=\"plot of chunk ch4a-sol\" alt=\"plot of chunk ch4a-sol\" style=\"display: block; margin: auto;\" />"
 msgstr ""
 ">\n"
-"> Modify the color and size of the points on the point layer in the previous\n"
-"> example.\n"
+">前の例を用いて、点レイヤー上の点の色とサイズを変更して下さい。\n"
 ">\n"
-"> Hint: do not use the `aes` function.\n"
 ">\n"
-"> > ## Solution to challenge 4a\n"
+">ヒント：'aes'関数を使用しないでください。\n"
+">\n"
+"> > ## チャレンジ 4aの回答例\n"
 "> >\n"
-"> > Modify the color and size of the points on the point layer in the previous\n"
-"> > example.\n"
+"> >前の例を用いて、点レイヤー上の点の色とサイズを変更して下さい。\n"
 "> >\n"
-"> > Hint: do not use the `aes` function.\n"
+"> >\n"
+"> > ヒント：'aes'関数を使用しないでください。\n"
 "> >\n"
 "> > \n"
 "> > ~~~\n"
@@ -12950,7 +12939,7 @@ msgstr ""
 # blockquote, which can be cascaded
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:333
 msgid "> ## Challenge 4b"
-msgstr "> ## Challenge 4b"
+msgstr "> ## チャレンジ 4b"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:334
 msgid ""
@@ -12977,16 +12966,16 @@ msgid ""
 "> ><img src=\"../fig/rmd-08-ch4b-sol-1.png\" title=\"plot of chunk ch4b-sol\" alt=\"plot of chunk ch4b-sol\" style=\"display: block; margin: auto;\" />"
 msgstr ""
 ">\n"
-"> Modify your solution to Challenge 4a so that the\n"
-"> points are now a different shape and are colored by continent with new\n"
-"> trendlines.  Hint: The color argument can be used inside the aesthetic.\n"
+"> 点を異なる形にし、また大陸毎に色分けと傾向線の描画をするために、\n"
+"> チャレンジ4aの回答を変更して下さい。\n"
+"> ヒント：color引数は、aes関数内で使用することができます。\n"
 ">\n"
-"> > ## Solution to challenge 4b\n"
+"> > ## チャレンジ 4bの回答例\n"
 "> >\n"
-"> > Modify Challenge 4 so that the points are now a different shape and are\n"
-"> > colored by continent with new trendlines.\n"
+"> > 点を異なる形にし、また大陸毎に色分けと傾向線の描画をするために、\n"
+"> > チャレンジ4aの回答を変更して下さい。\n"
 "> >\n"
-"> > Hint: The color argument can be used inside the aesthetic.\n"
+"> > ヒント：color引数は、aes関数内で使用することができます。\n"
 "> >\n"
 "> >\n"
 "> >~~~\n"
@@ -13001,7 +12990,7 @@ msgstr ""
 # header
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:359
 msgid "## Multi-panel figures"
-msgstr "## Multi-panel figures"
+msgstr "## 複数パネルの図"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:361
 msgid ""
@@ -13010,17 +12999,16 @@ msgid ""
 "by adding a layer of **facet** panels. Focusing only on those countries with\n"
 "names that start with the letter \"A\" or \"Z\"."
 msgstr ""
-"Earlier we visualized the change in life expectancy over time across all\n"
-"countries in one plot. Alternatively, we can split this out over multiple panels\n"
-"by adding a layer of **facet** panels. Focusing only on those countries with\n"
-"names that start with the letter \"A\" or \"Z\"."
+"先の例では、すべての国の平均余命の変化を1つのプロットで視覚化しました。\n"
+"一方、**facet**パネルのレイヤーを追加することで、複数のパネルに分割することができます。\n"
+"名前が“A”または“Z”で始まる国にのみ焦点を当てます。"
 
 # blockquote, which can be cascaded
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:366
 #: r-novice-gapminder/_episodes/10-functions.md:92
 #: r-novice-gapminder/_episodes/10-functions.md:631
 msgid "> ## Tip"
-msgstr "> ## Tip"
+msgstr "> ## ヒント"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:367
 msgid ""
@@ -13034,13 +13022,11 @@ msgid ""
 "> `starts.with == \"A\" | starts.with == \"Z\"`)"
 msgstr ""
 ">\n"
-"> We start by subsetting the data.  We use the `substr` function to\n"
-"> pull out a part of a character string; in this case, the letters that occur\n"
-"> in positions `start` through `stop`, inclusive, of the `gapminder$country`\n"
-"> vector. The operator `%in%` allows us to make multiple comparisons rather\n"
-"> than write out long subsetting conditions (in this case,\n"
-"> `starts.with %in% c(\"A\", \"Z\")` is equivalent to\n"
-"> `starts.with == \"A\" | starts.with == \"Z\"`)"
+">データのサブセットからスタートします。 \n"
+">`substr`関数を使って文字列の一部を抜き出します。\n"
+">この場合、`gapminder$country`ベクトルの`start`から`stop`の位置にある文字が抜き出されます。\n"
+">演算子`％in％`では、長いサブセット条件を書き出すのではなく、複数の比較を行うことができます。\n"
+">（この場合、`starts.with %in% c(\"A\", \"Z\")`は`starts.with == \"A\" | starts.with == \"Z\"`です。）"
 
 # code block
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:379
@@ -13069,14 +13055,13 @@ msgid ""
 "(~). This tells R to draw a panel for each unique value in the country column\n"
 "of the gapminder dataset."
 msgstr ""
-"The `facet_wrap` layer took a \"formula\" as its argument, denoted by the tilde\n"
-"(~). This tells R to draw a panel for each unique value in the country column\n"
-"of the gapminder dataset."
+"`facet_wrap`レイヤーは引数として“formula”をとり、チルダ(~)で表記されます。\n"
+"これは、gapminderデータセットのcountry列にある各々の一意な値のパネルを描画するようRに指示します。"
 
 # header
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:393
 msgid "## Modifying text"
-msgstr "## Modifying text"
+msgstr "## テキストの変更"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:395
 msgid ""
@@ -13084,9 +13069,8 @@ msgid ""
 "elements. The x-axis is too cluttered, and the y axis should read\n"
 "\"Life expectancy\", rather than the column name in the data frame."
 msgstr ""
-"To clean this figure up for a publication we need to change some of the text\n"
-"elements. The x-axis is too cluttered, and the y axis should read\n"
-"\"Life expectancy\", rather than the column name in the data frame."
+"分析結果の発表に向けてこの図を整理するにあたり、いくつかのテキスト要素を変更する必要があります。 \n"
+"x軸はあまりにも雑然としており、y軸はデータフレームの列名ではなく、“Life expectancy”と読み替えるべきです。"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:399
 msgid ""
@@ -13097,12 +13081,12 @@ msgid ""
 "the color legend title is set using `color = \"Continent\"`, while the title \n"
 "of a fill legend would be set using `fill = \"MyTitle\"`. "
 msgstr ""
-"We can do this by adding a couple of different layers. The **theme** layer\n"
-"controls the axis text, and overall text size. Labels for the axes, plot \n"
-"title and any legend can be set using the `labs` function. Legend titles\n"
-"are set using the same names we used in the `aes` specification. Thus below\n"
-"the color legend title is set using `color = \"Continent\"`, while the title \n"
-"of a fill legend would be set using `fill = \"MyTitle\"`. "
+"これを行うには、いくつかのレイヤーを追加する必要があります。\n"
+"**theme** レイヤーは、軸テキストと全体のテキストサイズを制御します。\n"
+"軸、プロットタイトル、および任意の凡例のラベルは、`labs`関数を使用して設定できます。\n"
+"凡例のタイトルは、`aes`関数で使用したものと同じ名前を設定します。\n"
+"したがって、color凡例のタイトルは`color = \"Continent\"`を用いて設定され、\n"
+"fill凡例のタイトルは`fill = \"任意のタイトル\"`を使用して設定されます。"
 
 # code block
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:407
@@ -13138,11 +13122,17 @@ msgstr "<img src=\"../fig/rmd-08-theme-1.png\" title=\"plot of chunk theme\" alt
 # header
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:423
 msgid "## Exporting the plot"
-msgstr "## Exporting the plot"
+msgstr "## プロットのエクスポート"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:425
 msgid "The `ggsave()` function allows you to export a plot created with ggplot. You can specify the dimension and resolution of your plot by adjusting the appropriate arguments (`width`, `height` and `dpi`) to create high quality graphics for publication. In order to save the plot from above, we first assign it to a variable `lifeExp_plot`, then tell `ggsave` to save that plot in `png` format to a directory called `results`. (Make sure you have a `results/` folder in your working directory.)"
-msgstr "The `ggsave()` function allows you to export a plot created with ggplot. You can specify the dimension and resolution of your plot by adjusting the appropriate arguments (`width`, `height` and `dpi`) to create high quality graphics for publication. In order to save the plot from above, we first assign it to a variable `lifeExp_plot`, then tell `ggsave` to save that plot in `png` format to a directory called `results`. (Make sure you have a `results/` folder in your working directory.)"
+msgstr ""
+"`ggsave()`関数を使用すると、ggplotで作成したプロットをエクスポートすることができます。\n"
+"出版、公開のための高品質グラフィックを作成するために、\n"
+"適切な引数（`width`、`height`、および`dpi`）を調整してプロットの寸法と解像度を指定できます。\n"
+"上記のように、そのプロットを保存するには、最初にそのプロットを変数`lifeExp_plot`に割り当て、\n"
+"`ggsave`にそのプロットを`png`形式で`results`というディレクトリに保存するよう指示します。\n"
+"（作業ディレクトリに'results /'フォルダがあることを確認してください。）"
 
 # code block
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:428
@@ -13188,7 +13178,11 @@ msgstr ""
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:450
 msgid "There are two nice things about `ggsave`. First, it defaults to the last plot, so if you omit the `plot` argument it will automatically save the last plot you created with `ggplot`. Secondly, it tries to determine the format you want to save your plot in from the file extension you provide for the filename (for example `.png` or `.pdf`). If you need to, you can specify the format explicitly in the `device` argument."
-msgstr "There are two nice things about `ggsave`. First, it defaults to the last plot, so if you omit the `plot` argument it will automatically save the last plot you created with `ggplot`. Secondly, it tries to determine the format you want to save your plot in from the file extension you provide for the filename (for example `.png` or `.pdf`). If you need to, you can specify the format explicitly in the `device` argument."
+msgstr ""
+"`ggsave`には素晴らしい点が二つあります。\n"
+"一つ目は、最後のプロットがデフォルトになるので、`plot`引数を省略すると、`ggplot`で作成した最後のプロットが自動的に保存されることです。\n"
+"二つ目は、ファイル名に指定したファイル拡張子（例：`.png`または`.pdf`）からプロットを保存するフォーマットを決定しようとします。\n"
+"必要な場合は、`device`引数に明示的にフォーマットを指定できます。"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:452
 msgid ""
@@ -13199,12 +13193,11 @@ msgid ""
 "usually send you to a relevant question and answer on Stack Overflow with reusable\n"
 "code to modify!"
 msgstr ""
-"This is a taste of what you can do with `ggplot2`. RStudio provides a\n"
-"really useful [cheat sheet][cheat] of the different layers available, and more\n"
-"extensive documentation is available on the [ggplot2 website][ggplot-doc].\n"
-"Finally, if you have no idea how to change something, a quick Google search will\n"
-"usually send you to a relevant question and answer on Stack Overflow with reusable\n"
-"code to modify!"
+"これまで学んできたことは、ggplot2でできることの一部です。\n"
+"RStudioは、利用可能な様々なレイヤーについて、とても便利なチートシートを提供しています。\n"
+"更なる詳細なドキュメントは、[ggplot2のwebサイト][ggplot-doc]で入手できます。\n"
+"最後に、何を変更すればよいかわからない場合、Google検索を実行してみて下さい。\n"
+"大抵の場合、Stack Overflow(スタックオーバーフロー)上で適切な質問と回答が、再利用可能なコードと共に見つかります！"
 
 #: r-novice-gapminder/_episodes/08-plot-ggplot2.md:459
 msgid ""
@@ -13241,19 +13234,19 @@ msgid ""
 "> > <img src=\"../fig/rmd-08-ch5-sol-1.png\" title=\"plot of chunk ch5-sol\" alt=\"plot of chunk ch5-sol\" style=\"display: block; margin: auto;\" />"
 msgstr ""
 ">\n"
-"> Create a density plot of GDP per capita, filled by continent.\n"
+"> 大陸で塗りつぶされた、1人当たりGDPの密度プロットを作成して下さい。\n"
 ">\n"
-"> Advanced:\n"
-">  - Transform the x axis to better visualise the data spread.\n"
-">  - Add a facet layer to panel the density plots by year.\n"
+"> 上級編\n"
+">  - データの広がりをより良く視覚化するためにx軸を変換して下さい。\n"
+">  - １年毎の密度プロットをパネルに追加して下さい。\n"
 ">\n"
-"> > ## Solution to challenge 5\n"
+"> > ## チャレンジ 5の回答例\n"
 "> >\n"
-"> > Create a density plot of GDP per capita, filled by continent.\n"
+"> > 大陸で塗りつぶされた、1人当たりGDPの密度プロットを作成して下さい。\n"
 "> >\n"
-"> > Advanced:\n"
-"> >  - Transform the x axis to better visualise the data spread.\n"
-"> >  - Add a facet layer to panel the density plots by year.\n"
+"> >上級編\n"
+">>  - データの広がりをより良く視覚化するためにx軸を変換して下さい。\n"
+">>  - １年毎の密度プロットをパネルに追加して下さい。\n"
 "> >\n"
 "> > \n"
 "> > ~~~\n"