Dear Paul,
thank you very much for your answer. You are right, pdfFonts() solved
the "problem". :-) I also will try to install the fonts on my system.
Thank you!
Greetings,
basil
Paul Murrell wrote:
Hi
Friedericksen Hope 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
Looks like you are trying to produce PDF output, but you've set up the
fonts in the PostScript font database. Try using pdfFonts() instead.
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.
The cm-lgc package should have instructions for installing the fonts on
your system
(e.g., http://www.ctan.org/tex-archive/fonts/ps-type1/cm-lgc/INSTALL)
but you would then need to adjust the paths that you specify in the call
to Type1Font().
You could then add the calls to Type1Font() and pdfFonts() to your
.Rprofile so that this font is defined every time you start an R session
(see ?Startup).
Paul
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.
______________________________________________
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.
