Chapter 5のggplot2のAPIでdeprecatedなメソッド呼び出しを正しい呼び出しに修正。

Chapter5/s1_sensitivity_analysis.r

@@ -14,13 +14,13 @@ for(i in c(1:9)) {
   p <- ggplot(data = data) +
   scale_colour_grey(name="Legend", start=0, end=0.6) +
   geom_line(aes(x  = V1, y = V2, color = "price")) +
-    scale_y_continuous("price") +
-    scale_x_continuous("time") +
-    opts(
-      title=paste("cons", 10+i, sep=""),
-      plot.title = theme_text(size=10),
-      legend.position = "none"
-    )
+  scale_y_continuous("price") +
+  scale_x_continuous("time") +
+  labs(title=paste("cons", 10+i, sep="")) +
+  theme(
+    plot.title = element_text(size=10),
+    legend.position = "none"
+  )
 
   print(p, vp=vplayout(row, col))
   if (col == 3) {row <- row + 1}