csong@42: library(ggplot2)
csong@42: 
csong@42: df <- read.csv("newall.csv", header = T)
csong@42: 
csong@42: 
csong@42: t<-theme(
csong@42:   plot.background = element_blank(), 
csong@42: #  panel.grid.major = element_blank(), 
csong@42: #  panel.grid.minor = element_blank(), 
csong@42:   panel.border = element_blank(), 
csong@42:   panel.background = element_blank(),
csong@42:   axis.line = element_line(size=.5),
csong@42:   axis.text.x = element_text(family = "sans", size=10, color = "black"),
csong@42:   axis.text.y = element_text(family = "sans", size=10, color = "black"),	                             
csong@42:   axis.title.x = element_text(family="sans", color="black", size=15, vjust = -0.7),
csong@42:   axis.title.y = element_text(family="sans", color="black", size=15, vjust = 0.4),
csong@42:   legend.position = "none"
csong@42:  )
csong@42: 
csong@42: 
csong@42: p <- qplot(Index,Syncopation, data = df, geom = c("point","line"), color = Model)
csong@42: p+t