library(ggplot2)
dataset.tic.comp.4c.I<-read.table("dataframe.tic.comp.4c.processed.I")
dataset.tic.comp.4b.I<-read.table("dataframe.tic.comp.4b.processed.I")

d<-data.frame(elements=dataset.tic.comp.4b.I$V3,
              time=dataset.tic.comp.4b.I$V4,
              time.min=dataset.tic.comp.4b.I$V5,
              time.max=dataset.tic.comp.4b.I$V6,
              inst=dataset.tic.comp.4c.I$V4*1000,
              inst.min=dataset.tic.comp.4c.I$V5*1000,
              inst.max=dataset.tic.comp.4c.I$V6*1000)

ggplot(d, aes(x=inst, y=time, color=elements)) + geom_point()

ggplot(d, aes(x=inst, y=time, color=elements)) + geom_point() + scale_x_log10() + scale_y_log10()

plot of chunk unnamed-chunk-1

ggplot(d, aes(x=inst, ymin=time.min, lower=time*0.25, middle=time*0.5, upper=time*0.75, ymax=time.max, fill=elements)) + geom_boxplot(stat='identity') + theme_bw() + xlab('Instructions') + ylab('Time')

plot of chunk unnamed-chunk-1

ggplot(d, aes(x=time, ymin=inst.min, lower=inst*0.25, middle=inst*0.5, upper=inst*0.75, ymax=inst.max, fill=elements)) + geom_boxplot(stat='identity') + theme_bw() + ylab('Instructions') + xlab('Time') + coord_flip()

## Warning: position_dodge requires constant width: output may be incorrect

plot of chunk unnamed-chunk-1

ggplot(d, aes(x=as.character(inst), ymin=time.min, lower=time*0.25, middle=time*0.5, upper=time*0.75, ymax=time.max, fill=elements)) + geom_boxplot(stat='identity') + theme_bw() + xlab('Instructions') + ylab('Time')

## Warning: position_dodge requires constant width: output may be incorrect

plot of chunk unnamed-chunk-1

ggplot(d, aes(x=as.character(time), ymin=inst.min, lower=inst*0.25, middle=inst*0.5, upper=inst*0.75, ymax=inst.max, fill=elements)) + geom_boxplot(stat='identity') + theme_bw() + ylab('Instructions') + xlab('Time') + coord_flip()

## Warning: position_dodge requires constant width: output may be incorrect

plot of chunk unnamed-chunk-1

#ggplot(d, aes(x=(inst), ymin=time.min, lower=time*0.25, middle=time*0.5, upper=time*0.75, ymax=time.max)) + geom_boxplot(stat='identity')

#ggplot(d, aes(x=(time), ymin=inst.min, lower=inst*0.25, middle=inst*0.5, upper=inst*0.75, ymax=inst.max)) + geom_boxplot(stat='identity') + coord_flip()