Dear R users
I'm having problems in putting special characters (like á, ã, ç ) in my plots,
as much in titles, as in axis names, as in legend...when I save them as a pdf
document. They don't appear...
I don't know if it is because I'm using a linux platform...
The script is the following:
library(grDevices) jpeg(file="Fronteira/FronteiraNova.jpeg", bg="white", quality=100,width = 600, height = 480)
grafico.fe<-function(varFA,retFA,varC,retC,covRF,retRF,varD,retD) {
minx<-min(100*sqrt(varFA),100*varC,100*sqrt(covRF[1,1]),100*sqrt(covRF[2,2]),100*sqrt(covRF[3,3]),100*sqrt(covRF[4,4]),100*varD)
maxx<-max(100*sqrt(varFA),100*varC,100*sqrt(covRF[1,1]),100*sqrt(covRF[2,2]),100*sqrt(covRF[3,3]),100*sqrt(covRF[4,4]),100*varD)
miny<-min(100*retFA,retC,retRF,retD) maxy<-max(100*retFA,retC,retRF,retD)
plot(100*sqrt(varFA),100*retFA,type="l",lwd=2,col=2,xlab="Risco %", ylab="Retorno % (anualizado)", xlim=c(minx-0.01,maxx),
ylim=c(miny,maxy),main="Fronteira Eficiente") points(100*varC,retC,pch=16,cex=0.6, col=3)
points(100*sqrt(covRF[1,1]),retRF[1],pch=16,cex=0.6,col=4) points(100*sqrt(covRF[2,2]),retRF[2],pch=16,cex=0.6,col=5)
points(100*sqrt(covRF[3,3]),retRF[3],pch=16,cex=0.6,col=6) points(100*sqrt(covRF[4,4]),retRF[4],pch=16,cex=0.6,col=7)
points(100*varD,retD,pch=16,cex=0.6,col=1) legend(c(0.91,1.11),c(17.97,18.156),c("Fronteira Eficiente"),lwd=2,cex=0.6, col=2)
legend(0.93,18.13,c("Consolidado","Brad","AB","It","Uni","Ot"),pch=16, bty="n", cex=0.6,
col=c(3,4,5,6,7,1), ncol=1) } grafico.fe(varFA,retFA,varC,retC,covRF,retRF,varD,retD) dev.off()
Do someome have a problem like this?
Thanks
Alexandra Almeida
Alexandra R. Mendes de Almeida
---------------------------------
[[alternative HTML version deleted]]