plot log of data instead of rescaling axis

swhustla · Sep 16, 2012 · e7c134a · e7c134a
1 parent 50d8046
commit e7c134a
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/03-Classification/email_classify.R b/03-Classification/email_classify.R
@@ -302,11 +302,9 @@ class.df$Class <- as.logical(as.numeric(class.df$Class))
 class.df$Type <- as.factor(class.df$Type)
 
 # Create final plot of results
-class.plot <- ggplot(class.df, aes(x = Pr.HAM, Pr.SPAM)) +
+class.plot <- ggplot(class.df, aes(x = log(Pr.HAM), log(Pr.SPAM))) +
     geom_point(aes(shape = Type, alpha = 0.5)) +
     stat_abline(yintercept = 0, slope = 1) +
-    scale_x_log10() +
-    scale_y_log10() +
     scale_shape_manual(values = c("EASYHAM" = 1,
                                   "HARDHAM" = 2,
                                   "SPAM" = 3),