Revise Chapter 9 for new ggplot2 argument style

swhustla · Jul 31, 2013 · f73651f · f73651f
1 parent 81e061e
commit f73651f
Showing 1 changed file with 22 additions and 21 deletions.
diff --git a/09-MDS/chapter09.R b/09-MDS/chapter09.R
@@ -183,13 +183,14 @@ head(rollcall.mds[[1]])
 cong.110 <- rollcall.mds[[9]]
 
 base.110 <- ggplot(cong.110, aes(x = x, y = y)) +
-  scale_size(to = c(2,2), legend = FALSE) +
-  scale_alpha(legend = FALSE) + theme_bw() +
-  opts(axis.ticks = theme_blank(),
-       axis.text.x = theme_blank(),
-       axis.text.y = theme_blank(),
-       title = "Roll Call Vote MDS Clustering for 110th U.S. Senate",
-       panel.grid.major = theme_blank()) +
+  scale_size(range = c(2,2), guide = 'none') +
+  scale_alpha(guide = 'none') +
+  theme_bw() +
+  theme(axis.ticks = element_blank(),
+        axis.text.x = element_blank(),
+        axis.text.y = element_blank(),
+        panel.grid.major = element_blank()) +
+  ggtitle("Roll Call Vote MDS Clustering for 110th U.S. Senate") +
   xlab("") +
   ylab("") +
   scale_shape(name = "Party", breaks = c("100", "200", "328"),
@@ -213,14 +214,14 @@ print(base.110 + geom_text(aes(color = party,
 all.mds <- do.call(rbind, rollcall.mds)
 all.plot <- ggplot(all.mds, aes(x = x, y = y)) +
   geom_point(aes(shape = party, alpha = 0.75, size = 2)) +
-  scale_size(to = c(2, 2), legend = FALSE) +
-  scale_alpha(legend = FALSE) +
+  scale_size(range = c(2, 2), guide = 'none') +
+  scale_alpha(guide = 'none') +
   theme_bw() +
-  opts(axis.ticks = theme_blank(),
-       axis.text.x = theme_blank(),
-       axis.text.y = theme_blank(),
-       title = "Roll Call Vote MDS Clustering for U.S. Senate (101st - 111th Congress)",
-       panel.grid.major = theme_blank()) +
+  theme(axis.ticks = element_blank(),
+        axis.text.x = element_blank(),
+        axis.text.y = element_blank(),
+        panel.grid.major = element_blank()) +
+  ggtitle("Roll Call Vote MDS Clustering for U.S. Senate (101st - 111th Congress)") +
        xlab("") +
        ylab("") +
        scale_shape(name = "Party",
@@ -243,14 +244,14 @@ for(i in 1:length(rollcall.mds))
 
   # Build base plot
   mds.plot <- ggplot(mds, aes(x = x, y = y)) +
-    scale_size(to = c(2, 2), legend = FALSE) +
-    scale_alpha(legend = FALSE) +
+    scale_size(range = c(2, 2), guide = 'none') +
+    scale_alpha(guide = 'none') +
     theme_bw() +
-    opts(axis.ticks = theme_blank(), 
-         axis.text.x = theme_blank(),
-         axis.text.y = theme_blank(),
-         title = plot.title,
-         panel.grid.major = theme_blank()) +
+    theme(axis.ticks = element_blank(), 
+          axis.text.x = element_blank(),
+          axis.text.y = element_blank(),
+          panel.grid.major = element_blank()) +
+    ggtitle(plot.title) +
     xlab("") +
     ylab("")