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