Windows – ggplot字体系列版本之间的变化

fonttable <- read.table(header=TRUE,sep=",",StringsAsFactors=falSE,text='
Short,Canonical,mono,Courier,sans,Helvetica,serif,Times,AvantGarde,Bookman,Helvetica-Narrow,NewCenturySchoolbook,PalaTino,URWGothic,URWBookman,NimbusMon
URWHelvetica,NimbusSan,NimbusSanCond,CenturySch,URWPalladio
URWTimes,NimbusRom
')

fonttable$pos <- 1:nrow(fonttablE)

library(reshape2)
fonttable <- melt(fonttable,id.vars="pos",measure.vars=c("Short","Canonical"),variable.name="NameType",value.name="Font")

# Make a table of faces. Make sure factors are ordered correctly
faCETable <- data.frame(Face = factor(c("plain","bold","italic","bold.italic"),levels = c("plain","bold.italic")))

fullfonts <- merge(fonttable,faCETablE)

library(ggplot2)
pf <- ggplot(fullfonts,aes(x=NameType,y=pos)) + 
             geom_text(aes(label=Font,family=Font,fontface=FacE)) +
             faCET_wrap(~ Face,ncol=2)

pf

你可以这样运行它：

% R
> source ("make_font_table.R")
> pf

注意：只有一些字体(Timea,Courier)实际上被渲染.

此外,您可能想查看extrafont-package.最后这个post显示了如何使用extrafont-package,以便在输出中渲染更好的字体.