library(ggplot2)
dataset1<-read.table("dataframe.tic.comp4b.comp4c.lu.c.16.I")
dataset2<-read.table("dataframe.tic.comp4b.comp4c.lu.c.16.II")
dataset3<-read.table("dataframe.tic.comp4b.comp4c.lu.c.16.III")
dataset4<-read.table("dataframe.tic.comp4b.comp4c.lu.c.16.IV")
dataset5<-read.table("dataframe.tic.comp4b.comp4c.lu.c.16.V")

colnames(dataset1)<-c("COMP.4b.avg", "COMP.4c.avg")
colnames(dataset2)<-c("COMP.4b.avg", "COMP.4c.avg")
colnames(dataset3)<-c("COMP.4b.avg", "COMP.4c.avg")
colnames(dataset4)<-c("COMP.4b.avg", "COMP.4c.avg")
colnames(dataset5)<-c("COMP.4b.avg", "COMP.4c.avg")

dataset1$COMP.4b.sec=dataset1$COMP.4b.avg/1e6
dataset2$COMP.4b.sec=dataset2$COMP.4b.avg/1e6
dataset3$COMP.4b.sec=dataset3$COMP.4b.avg/1e6
dataset4$COMP.4b.sec=dataset4$COMP.4b.avg/1e6
dataset5$COMP.4b.sec=dataset5$COMP.4b.avg/1e6

inst_rate<-c(mean(dataset1$COMP.4c.avg/dataset1$COMP.4b.sec),
     mean(dataset2$COMP.4c.avg/dataset2$COMP.4b.sec),
     mean(dataset3$COMP.4c.avg/dataset3$COMP.4b.sec),
     mean(dataset4$COMP.4c.avg/dataset4$COMP.4b.sec),
     mean(dataset5$COMP.4c.avg/dataset5$COMP.4b.sec))

names(inst_rate)<-c('dataset1','dataset2','dataset3','dataset4','dataset5')

ggplot(dataset1,
       aes(y=dataset1$COMP.4c.avg/dataset1$COMP.4b.sec,
           x=1:170, color=dataset1$COMP.4c.avg, size=dataset1$COMP.4c.avg)) +
  geom_point() + xlab("Event") + ylab("Instruction Rate") + ylim(0, 1e8) +
  scale_colour_gradient(low="blue") + geom_hline(yintercept=inst_rate[1])

## Warning: Removed 10 rows containing missing values (geom_point).

plot of chunk unnamed-chunk-1

ggplot(dataset2,
       aes(y=dataset2$COMP.4c.avg/dataset2$COMP.4b.sec,
           x=1:170, color=dataset2$COMP.4c.avg, size=dataset2$COMP.4c.avg)) +
  geom_point() + xlab("Event") + ylab("Instruction Rate") + ylim(0, 1e8) +
  scale_colour_gradient(low="blue") + geom_hline(yintercept=inst_rate[2])

## Warning: Removed 10 rows containing missing values (geom_point).

plot of chunk unnamed-chunk-1

ggplot(dataset3,
       aes(y=dataset3$COMP.4c.avg/dataset3$COMP.4b.sec,
           x=1:170, color=dataset3$COMP.4c.avg, size=dataset3$COMP.4c.avg)) +
  geom_point() + xlab("Event") + ylab("Instruction Rate") + ylim(0, 1e8) +
  scale_colour_gradient(low="blue") + geom_hline(yintercept=inst_rate[3])

## Warning: Removed 10 rows containing missing values (geom_point).

plot of chunk unnamed-chunk-1

ggplot(dataset4,
       aes(y=dataset4$COMP.4c.avg/dataset4$COMP.4b.sec,
           x=1:170, color=dataset4$COMP.4c.avg, size=dataset4$COMP.4c.avg)) +
  geom_point() + xlab("Event") + ylab("Instruction Rate") + ylim(0, 1e8) +
  scale_colour_gradient(low="blue") + geom_hline(yintercept=inst_rate[4])

## Warning: Removed 10 rows containing missing values (geom_point).

plot of chunk unnamed-chunk-1

ggplot(dataset5,
       aes(y=dataset5$COMP.4c.avg/dataset5$COMP.4b.sec,
           x=1:170, color=dataset5$COMP.4c.avg, size=dataset5$COMP.4c.avg)) +
  geom_point() + xlab("Event") + ylab("Instruction Rate") + ylim(0, 1e8) +
  scale_colour_gradient(low="blue") + geom_hline(yintercept=inst_rate[5])

## Warning: Removed 10 rows containing missing values (geom_point).

plot of chunk unnamed-chunk-1

print(inst_rate)

## dataset1 dataset2 dataset3 dataset4 dataset5 
## 82702363 82830020 82959085 82891398 82443052