R help - Aug 2009 - font size on graphics question (correction in example,sorry)

Dear R users,

My question is about finding the proper font size for graphics.

For this i had written a code that creats 4 diferent graphics and saves 
them as a png file.
>From these PNG.graphics , i select one of the proper size and past it to a 
word document.
I have experimented with lots of settings yet:nd lost my track a bit.
there are cex; cexaxis cexlabes and so on, i lost track of wich cex does 
what exactly.

Fruthermore, these graphs work well in an R window, yet when i open the 
png file it did not print the labels of bottom x axis.

One other problem i have is that often '10' on the botom x axis is not 
printed.
I tried to patch it up this way (below), yet its unsatisfactory, sometimes 
it works sometimes it don't. 
 axis(1,at=c(28:30),c('','10','') , padj=-1.5 , 
cex.axis=ifelse((rol==1),setting[rol,8]-0.15,setting[rol,8]-0.1))

And finaly, when creating the graphs, i prefer the size of  graf_1_small 
it pastes easaly to a word documentn ( 2 one one line),
yet the labels are not always clear to read, so i copy the one without 
suffix to word then i size it to 75%, wich means it loses some quality.
The question here is, can anyone help me with the right cex sizes?

I gues that that is the question in general, since it are the cex that are 
eighter printed or not, on all these graph's.

Thaks in advance,
T

here is my example:


# saving Directory

WinDir <- "C:/Documents and Settings/Project"
dir.create(file.path("C:/Documents and Settings","Project"))



# data

trials <- rep(1:10,3)
test <-
c(rep("Low",10),rep("Normal",10),rep("Randomised",10))
means <- rbeta(1:30,11,3)+rbeta(1:30,8,3)
ci <- rbeta(1:30,1,2)

meanstable <- data.frame(
"Trial"=trials,"Test"=test,"Means"=
means,"Upper"=means+ci ,"Lower"=means-ci)

graf_1     <- "Means 1"

graf_2     <- "Means 2"

# settings for different graph's

setting <- 
data.frame('adname'=c(paste(graf_1,'_small'),graf_1,paste(graf_1,'_big')),'width'=c(300,400,500),'height'
= c(300,400,500), 'pointsetting' =
c(10,12,14),'Directory'=rep(WinDir,3),
'cex.lab'=  c(0.85,0.9,1),'cexsize'=  c(0.8,1,1.2),
'cex.axis'=
c(0.6,0.9,1))

# loop for different graph's

for(rol in 1:3){
save_at <-WinDir
setwd( save_at)
x11()
png(filename =
paste(graf_1,setting[rol,1],".png",sep=""),width =
setting[rol,2], height = setting[rol,3],pointsize = setting[rol,4], bg = 
"white", res = NA)

 plot(1:nrow(meanstable),meanstable$Mean, xlim=c(0,nrow(meanstable)),ylim= 
ylimits, xaxt='n', pch = 19, 
frame.plot=F,xlab='',ylab=lg10_label,cex.lab=setting[rol,6],cex.axis=setting[rol,8])
  arrows(1:nrow(meanstable) , meanstable$Upper , 1:nrow(meanstable) , 
meanstable$Lower, lty=3, code = 3,  angle = 45, length = .1)

  axis(3,at=1:2,unique(meanstable$Test)[c(1,2)],las=1 ,hadj=0.5, 
padj=c(1,0),cex.axis=setting[rol,8])   # upper X axis
  axis(3,at=2:3,unique(meanstable$Test)[c(2,2)],las=1 ,hadj=0.5, 
padj=c(0,-1),cex.axis=setting[rol,8])
  axis(3,at=3,unique(meanstable$Test)[3],las=1, 
hadj=0,padj=-1,cex.axis=setting[rol,8])

  axis(1,at=c(1:3),c('','1','') , padj=-1 ,
cex.axis=setting[rol,8])   #
lopwer x axis this does not show on the png files, yet it works in an r 
graphic
  axis(1,at=c(4:6),c('','2','') , padj=-1 ,
cex.axis=setting[rol,8])
  axis(1,at=c(7:9),c('','3','') , padj=-1 ,
cex.axis=setting[rol,8])
  axis(1,at=c(10:12),c('','4','') , padj=-1 ,
cex.axis=setting[rol,8])
  axis(1,at=c(13:15),c('','5','') , padj=-1 ,
cex.axis=setting[rol,8])
  axis(1,at=c(16:18),c('','6','') , padj=-1 ,
cex.axis=setting[rol,8])
  axis(1,at=c(19:21),c('','7','') , padj=-1 ,
cex.axis=setting[rol,8])
  axis(1,at=c(22:24),c('','8','') , padj=-1 ,
cex.axis=setting[rol,8])
  axis(1,at=c(25:27),c('','9','') , padj=-1 ,
cex.axis=setting[rol,8])
  axis(1,at=c(28:30),c('','10','') , padj=-1 ,
cex.axis=setting[rol,8])


dev.off()
}

#

graphics.off()


End of example.




Disclaimer: click here


Disclaimer: click here
	[[alternative HTML version deleted]]