1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
library(ggplot2)
td<-read.csv('C:/Users/Vadim/Documents/R/groupcommit/nobattery.txt',sep='\t',header=T)
td<-read.csv('C:/Users/Vadim/Documents/R/groupcommit/battery.txt',sep='\t',header=T)
td<-read.csv('C:/Users/Vadim/Documents/R/groupcommit/nobattery.sync0.txt ',sep='\t',header=T)
colnames(td)<-c("thread","no fix", "Group commit fix")
dv=as.data.frame(td)
dvn <- melt(dv, 1)
colnames(dvn)<-c("thread","Version", "value")
gr<-ggplot(data=dvn,aes(x=thread,y=value,color=Version))
gr+geom_point(size=3)+geom_line()+scale_x_continuous(breaks = dvn$thread)+ylim(0,2100)+xlab("Threads")+ylab("Transactions/sec")+opts(legend.position = "bottom") + opts(legend.direction = "horizontal")
library(xtable)
print(xtable(td),type="html",include.rownames=F)
|