diff --git a/scripts/Chap3.graphics.R b/scripts/Chap3.graphics.R
index 71575d8..95d57ca 100644
--- a/scripts/Chap3.graphics.R
+++ b/scripts/Chap3.graphics.R
@@ -16,7 +16,7 @@ hof$MidCareer <- with(hof, (From + To) / 2)
 
 hof$Era <- cut(hof$MidCareer,
         breaks = c(1800, 1900, 1919, 1941, 1960, 1976, 1993, 2050),
-        labels = c("19th Century", "Lively Ball", "Dead Ball",
+        labels = c("19th Century", "Dead Ball", "Lively Ball", 
                     "Integration", "Expansion", "Free Agency", 
                     "Long Ball"))
 
@@ -186,4 +186,4 @@ text(10440, 65, "62")
 legend(10440, 20, legend=c("McGwire (70)", "Sosa (66)"),
        lwd=2, col=c("black", "grey"))
 
-#########################################################
\ No newline at end of file
+#########################################################