提交: 3412b2355e0d4a4d3101c2e63cab8766e1dc8de8 - myprojects-hg-reborn (hg)

Commit MetaInfo

• 修订版: 3412b2355e0d4a4d3101c2e63cab8766e1dc8de8 (tree)
• 时间: 2011-01-28 01:55:17
• 作者: lorenzo
• Commiter: lorenzo

Log Message

Simple modifications to one of the generated plots.

更改概述

• modified: R-codes/big_box_plot_extra.R

差异

diff -r 44cdd328242d -r 3412b2355e0d R-codes/big_box_plot_extra.R
--- a/R-codes/big_box_plot_extra.R	Wed Jan 26 14:58:04 2011 +0000
+++ b/R-codes/big_box_plot_extra.R	Thu Jan 27 16:55:17 2011 +0000
@@ -153,11 +153,17 @@
   geom_crossbar(aes(y = q95, ymin = q95, ymax = q95)) +
   geom_crossbar(aes(y = q5, ymin = q5, ymax = q5)) +
 
-  geom_point(data=fo_res,aes(x=role,y=count_norm), size=2, color="red")+
+  geom_point(data=fo_res,aes(x=role,y=count_norm),  color="red", shape=1, size=6)+
+  geom_point(data=fo_res,aes(x=role,y=count_norm),  color="red", shape=1, size=5.8)+
+  geom_point(data=fo_res,aes(x=role,y=count_norm),  color="red", shape=1, size=5.6)+
 
-  geom_point(data=fr_res,aes(x=role,y=count_norm), size=2, color="blue")+
+  geom_point(data=fr_res,aes(x=role,y=count_norm),  color="blue", shape=2, size=6)+
+  geom_point(data=fr_res,aes(x=role,y=count_norm),  color="blue", shape=2, size=5.8)+
+  geom_point(data=fr_res,aes(x=role,y=count_norm),  color="blue", shape=2, size=5.6)+
 
-  geom_point(data=fu_res,aes(x=role,y=count_norm), size=2, color="black")+
+  geom_point(data=fu_res,aes(x=role,y=count_norm),  color="darkgreen", shape=4, size=6)+
+  geom_point(data=fu_res,aes(x=role,y=count_norm),  color="darkgreen", shape=4, size=5.8)+
+  geom_point(data=fu_res,aes(x=role,y=count_norm),  color="darkgreen", shape=4, size=5.6)+
 
   
   
@@ -177,7 +183,7 @@
  geom_errorbar(limits2)+
 
   xlab("Role Triples")+
-  ylab("Normalized triples number")+
+  ylab("Normalized number triples")+
   opts(axis.title.x = theme_text(size = 20))+
   opts(axis.title.y = theme_text(size = 20, angle=90))+
   ## opts(axis.text.x = theme_text(size=15, colour="gray",vjust=1))+
@@ -189,6 +195,9 @@
 
 }
 
+gpl_list[[1]] <- gpl_list[[1]] +
+  opts(title = expression(paste("Aggregation on 5 min, 24 hour cutoff")))+
+  opts(plot.title = theme_text(size = 20))
 
 
 fn <- paste("panel-quantiles-role-shuffling-normalized.tex")