提交: 9f70ca393e028d9cf77f9d13bddeefcade11bdcd - myprojects-hg-reborn (hg)

Commit MetaInfo

• 修订版: 9f70ca393e028d9cf77f9d13bddeefcade11bdcd (tree)
• 时间: 2007-11-10 02:23:28
• 作者: iselllo
• Commiter: iselllo

Log Message

I introduced the scientific notation in the plots in
lognormal_binning.R.

更改概述

• modified: R-codes/lognormal_binning.R

差异

diff -r 01e8736b52e1 -r 9f70ca393e02 R-codes/lognormal_binning.R
--- a/R-codes/lognormal_binning.R	Fri Nov 09 17:11:41 2007 +0000
+++ b/R-codes/lognormal_binning.R	Fri Nov 09 17:23:28 2007 +0000
@@ -650,9 +650,11 @@
 pdf("./binning-plots/experimental-distr-with-error-bars.pdf")
 par( mar = c(4.5,5, 2, 1) + 0.1)
 plot(data_exp[ ,1],data_exp[ ,2],type="b",lty=1,pch=4,lwd=2,col="blue"
-,log="x",ylab = list(expression(paste(dN/dlogD[agg]," ["*cm^-3*"]"))),
-xlab = expression(paste(D[agg]," [nm]")),cex.lab=1.2,cex.axis=1.2, ylim=range(c(0,max(error[ ,2]+data_exp[ ,2]))))
+,log="x",ylab = list(expression(paste(dN/dlogd[agg]," ["*cm^-3*"]"))),
+xlab = expression(paste(d[agg]," [nm]")),cex.lab=1.2,cex.axis=1.2, ylim=range(c(0,2.4e8)),yaxt="n")
 arrows(data_exp[ ,1],error[ ,2]+data_exp[ ,2],data_exp[ ,1],-error[ ,2]+data_exp[ ,2],length=.04,angle=90,code=0,col="blue")
+axis(side=2, at=c( 0, 0.6e8, 1.2e8, 1.8e8, 2.4e8),
+labels=expression(0, 6%*%10^7, 1.2%*%10^8, 1.8%*%10^8,2.4%*%10^8),cex.lab=1.4,cex.axis=1.2)
 lines(data_exp[ ,1],data_exp[ ,3],"b",lwd=2,col="red")
 lines(D_mean_seq,fit_initial,lwd=2,col="black")
 lines(D_mean_seq,fit_final,lwd=2,col="black")