comparison SMC2015latex/R/modelsprediction.R @ 47:4110da08bca9

Refined the diagrams

 library(ggplot2)
 
 df <- read.csv("newall.csv", header = T)
 
-
 t<-theme(
   plot.background = element_blank(), 
-#  panel.grid.major = element_blank(), 
-#  panel.grid.minor = element_blank(), 
+  panel.grid.major = element_blank(),
+  panel.grid.minor = element_blank(), 
   panel.border = element_blank(), 
   panel.background = element_blank(),
   axis.line = element_line(size=.5),
-  axis.text.x = element_text(family = "sans", size=10, color = "black"),
-  axis.text.y = element_text(family = "sans", size=10, color = "black"),	                             
-  axis.title.x = element_text(family="sans", color="black", size=15, vjust = -0.7),
-  axis.title.y = element_text(family="sans", color="black", size=15, vjust = 0.4),
-  legend.position = "none"
+  axis.title.x = element_blank(),
+  axis.title.y = element_blank(),
+  #axis.title.x = element_text(family="sans", color="black", size=15, vjust = -0.7),
+  #axis.title.y = element_text(family="sans", color="black", size=15, vjust = 0.4),
+  #legend.position = "none"
  )
 
+xbreaks <- c(1,16,28,64,111)
+ybreaks <- c(0,1,1.5,2.5,3,4,4.5,5.5,6,7,7.5,8.5,9,10)
 
-p <- qplot(Index,Syncopation, data = df, geom = c("point","line"), color = Model)
-p+t
+p <- qplot(Index,Syncopation, data = df, geom = c("point","line"), color = Model)+ scale_x_continuous(breaks=xbreaks) + scale_y_continuous(breaks= ybreaks)+ t
+
+ggsave(p, file = "predictions.pdf", dpi = 600,useDingbats=FALSE)