smoothScatter from fields

cc<-read.table("TAIR10_chr_all.win2k.hdp2_rep1.hdp2-2-1_dmc_CXX_cutp1.res");

library("fields");

colramp = colorRampPalette(c('white', 'blue', 'green', 'yellow', 'red'));

smoothScatter(cc[,9],cc[,11], colramp=colramp, postPlotHook = fudgeit, ylim=c(0,100));

abline(h=mean(cc[,11]),lty="dashed",col="red");

abline(v=0,lty="dashed",col="red");