If you are trying to use Computer Modern fonts because the R graphics will be included in a LaTeX report, you could try the TikZ Device Cameron Bracken and I wrote: http://r-forge.r-project.org/projects/tikzdevice
The tikzDevice translates R graphics instructions into a LaTeX-friendly format that can be included directly into documents where the font used in the figure will match that used in the rest of the text. <http://r-forge.r-project.org/projects/tikzdevice>It can be installed from R with the following command: install.packages( 'tikzDevice', repos='http://r-forge.r-project.org') The package is still in beta but we have had very good results so far- tests we have run with the persp function look great. For your case, you would replace the call to pdf() with: pdf("snxsm.tex") And inside your tex document the figure code stored in snxsm.tex is included using the \input{} command: \documentclass{whatever} ... \usepackage{tikz} ... \begin{document} \begin{figure} \input{snxsm} \end{figure} ... \end{document} Note you will need the TikZ package installed in your LaTeX distribution. Installation of LaTeX packages is covered in Part 2 of the tikzDevice vignette: vignette( 'tikzDevice' ) Hope this helps! -Charlie On Sun, Aug 30, 2009 at 1:14 PM, Friedericksen Hope < friedericksen.h...@gmail.com> wrote: > Hello all, > > I am trying to use computer modern fonts in my r grahics. I tried to do, as > described here: http://www.stat.auckland.ac.nz/~paul/R/CM/CMR.html but > unfortunately, it does not work. > > First of all I downloaded the cm-lgc package and the AFM and PFB-files from > the page and put them in my R working directory, so far, so good. > > Then I tried to run the following code: > > sn <- seq(1,7,length=100) >> sm <- seq(0,4,length=100) >> f <- function(x,y) {5.64080973 + 0.12271038*x - 0.27725481 * y + >> 0.29281216*x*y} >> z <- outer(sn,sm,f) >> >> nrz <- nrow(z) >> ncz <- ncol(z) >> jet.colors <- colorRampPalette( c("yellow", "red") ) nbcol <- 100 >> color <- jet.colors(nbcol) >> zfacet <- z[-1, -1] + z[-1, -ncz] + z[-nrz, -1] + z[-nrz, -ncz] >> facetcol <- cut(zfacet, nbcol) >> >> CM <- Type1Font("CM", >> c("cm-lgc/fonts/afm/public/cm-lgc/fcmr8a.afm", >> "cm-lgc/fonts/afm/public/cm-lgc/fcmb8a.afm", >> "cm-lgc/fonts/afm/public/cm-lgc/fcmri8a.afm", >> "cm-lgc/fonts/afm/public/cm-lgc/fcmbi8a.afm", >> "cmsyase.afm")) postscriptFonts(CM=CM) >> pdf("snxsm.pdf") >> par(family="CM") >> persp(sn,sm,z,xlab="SN", >> ylab="SM",zlab="VI",theta=-20,phi=20,r=5,shade=0.01,col=color[facetcol]) >> dev.off() >> > > It works fine, until the persp() function, there I get: > > persp(sn,sm,z,xlab="SN", >> ylab="SM",zlab="VI",theta=-20,phi=20,r=5,shade=0.01,col=color[facetcol]) >> Error in persp.default(sn, sm, z, xlab = "SN", ylab = "SM", zlab = "VI", >> : Invalid font type >> In addition: Warning messages: >> 1: In persp.default(sn, sm, z, xlab = "SN", ylab = "SM", zlab = "VI", : >> font family not found in PostScript font database >> 2: In persp.default(sn, sm, z, xlab = "SN", ylab = "SM", zlab = "VI", : >> font family not found in PostScript font database >> 3: In persp.default(sn, sm, z, xlab = "SN", ylab = "SM", zlab = "VI", : >> font family not found in PostScript font database >> 4: In persp.default(sn, sm, z, xlab = "SN", ylab = "SM", zlab = "VI", : >> font family not found in PostScript font database >> 5: In persp.default(sn, sm, z, xlab = "SN", ylab = "SM", zlab = "VI", : >> font family not found in PostScript font database >> > > Any help is appreciated! Also a hint/link how to install the CM fonts under > R for general use, so that I don't have to have it in my wd all the time. > > Thank you very much! > > Greetings, > Friedericksen > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide > http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. > [[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
