Mercurial > hg > syncopation-dataset

annotate SMC2015latex/R/modelsprediction.R @ 42:121d0e1f1748

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added the R plots
author csong <csong@eecs.qmul.ac.uk>
date Thu, 23 Apr 2015 22:08:48 +0100
parents
children 4110da08bca9
rev   line source
csong@42 1 library(ggplot2)
csong@42 2
csong@42 3 df <- read.csv("newall.csv", header = T)
csong@42 4
csong@42 5
csong@42 6 t<-theme(
csong@42 7 plot.background = element_blank(),
csong@42 8 # panel.grid.major = element_blank(),
csong@42 9 # panel.grid.minor = element_blank(),
csong@42 10 panel.border = element_blank(),
csong@42 11 panel.background = element_blank(),
csong@42 12 axis.line = element_line(size=.5),
csong@42 13 axis.text.x = element_text(family = "sans", size=10, color = "black"),
csong@42 14 axis.text.y = element_text(family = "sans", size=10, color = "black"),
csong@42 15 axis.title.x = element_text(family="sans", color="black", size=15, vjust = -0.7),
csong@42 16 axis.title.y = element_text(family="sans", color="black", size=15, vjust = 0.4),
csong@42 17 legend.position = "none"
csong@42 18 )
csong@42 19
csong@42 20
csong@42 21 p <- qplot(Index,Syncopation, data = df, geom = c("point","line"), color = Model)
csong@42 22 p+t