title: ggplot embedded fonts in pdf
body: <p>I have been using the following guide to export plots made with <code>ggplot</code>to pdf: <a href="http://zevross.com/blog/2014/07/30/tired-of-using-helvetica-in-your-r-graphics-heres-how-to-use-the-fonts-you-like-2/.">plot fonts guide</a></p>
  
  <p>It raises the issue at the bottom of the post of some fonts not appearing as they should, which happens in my example below. The text in font Bauhaus 93 appears correctly whilst the text in Calibri is displayed incorrectly.</p>
  
  <p>Has anyone found a way to resolve this issue?</p>
  
  <pre><code>library(ggplot2)
  library(plyr)
  library(grid)
  library(gridExtra)
  library(extrafont)
  
  data1&lt;-as.data.frame(1:5)
  data1[,2]&lt;-as.data.frame(c(1,3,5,7,9))
  data1[,3]&lt;-as.data.frame(c(2,4,6,8,10))
  colnames(data1)&lt;-c("x","y1","y2")
  
  ggplot(data1, aes(x=x)) + 
    geom_line(aes(y = y1, colour = "Taux selon DEF"), size=0.61, colour="black") +  
    geom_line(aes(y = y2, colour = "Taux selon EC"), size=0.61, colour="black", linetype="dashed") + 
    xlab("X axis lab") + ylab("Y axis lab)") +
    annotate("text", x=1, y=4, label="Some text here", size=2, family="Bauhaus 93") +
    annotate("text", x=4, y=1, label="More text here", size=2, family="Calibri") +
    theme_bw() + theme(legend.title = element_blank(),
                       legend.key = element_rect(fill=NA),
                       panel.border = element_blank(), 
                       axis.line = element_line(colour="black", size=0.25),
                       axis.ticks = element_line(size=0.25),
                       panel.grid.major = element_line(colour = "grey80", size=0.25),
                       panel.grid.minor = element_line(colour = "grey80", size=0.25),
                       axis.text.x = element_text(size=5.5 , lineheight=0.9, hjust=0.5, family="Bauhaus 93"),
                       axis.text.y = element_text(size=5.5 , lineheight=0.9, vjust=0.5, family="Calibri"),
                       axis.title.y = element_text(size=6.1, angle=0, vjust=0.975, face="bold", family="Calibri"),
                       axis.title.x = element_text(size=6.1, angle=0, vjust=-0.20, face="bold", family="Calibri")) +
    scale_x_continuous(expand = c(0, 0), limits=c(0,5)) + 
    scale_y_continuous(expand = c(0, 0), limits=c(0,10)) +
    ggtitle("Title") +
    ggsave("Test.pdf", width=7, height=5)
  Sys.setenv(R_GSCMD = "C:/Program Files (x86)/PDF24/gs/bin/gswin32.exe")
  embed_fonts("Test.pdf")
  </code></pre>