title: Changing the Font of ggplot text?
body: <p>So I'm trying to change the font in ggplot of my graph title and labels. I want to set the font to calibri but no matter what I do I keep getting the following error message:</p>
  <pre><code>1: In grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y,  :
    font family 'Calibri' not found, will use 'sans' instead
  </code></pre>
  <p>I've done the following to try and load fonts</p>
  <pre><code>library(extrafont)
  font_import()
  loadfonts(device = &quot;win&quot;)
  </code></pre>
  <p>But when I'm making the graph using the following code I get the error message</p>
  <pre><code>churchplot &lt;- ggplot(church, aes(x = year, y = Great.deal.Quite.a.lot, color = Great.deal.Quite.a.lot)) + geom_line(size = 1.5, color = &quot;palegreen4&quot;) +
     theme(axis.line = element_blank(),
          panel.grid.minor.x = element_blank(),
          panel.grid.major.x = element_blank(),
          panel.grid.major.y = element_line(color = &quot;gray85&quot;),
          panel.border = element_blank(),
          panel.background = element_blank()) +
    geom_hline(aes(yintercept = 0), size = .5) +
    expand_limits(y = 0) +
    scale_y_continuous(expand = c(NA, 0), limits = c(0, 85)) +
    theme(axis.text.x = element_text(vjust = 1, size = 11),
          axis.text.y = element_text(size = 11),
          axis.title.x = element_text(vjust = -1, hjust = .01 ,size = 15),
          plot.title = element_text(size = 16, face = &quot;bold&quot;)) +
    ggtitle(&quot;Trust in the Church and Organized Religion&quot;) +
    ylab(&quot;&quot;) +
    xlab(&quot;Year&quot;) +
    labs(color = &quot;Trust in Church&quot;) +
    annotate(geom=&quot;text&quot;, x = 2011, y = 58, label = &quot;Title&quot;,
             color=&quot;forestgreen&quot;, size = 5, fontface = &quot;bold&quot;, family = &quot;Calibri&quot;)
  churchplot
  </code></pre>
  <pre><code>dput(church)
  structure(list(year = c(2020L, 2019L, 2018L, 2017L, 2016L, 2015L, 
  2014L, 2013L, 2012L, 2011L, 2010L, 2009L, 2008L, 2007L, 2006L, 
  2005L, 2004L, 2003L, 2002L, 2001L, 2000L, 1999L, 1998L, 1997L, 
  1996L, 1995L, 1994L, 1993L, 1991L, 1991L, 1990L, 1989L, 1988L, 
  1987L, 1986L, 1985L, 1984L, 1983L, 1981L, 1979L, 1977L, 1975L, 
  1973L), Great.deal = c(25L, 21L, 20L, 23L, 20L, 25L, 25L, 25L, 
  25L, 25L, 25L, 29L, 26L, 24L, 28L, 31L, 26L, 27L, 26L, 32L, 28L, 
  32L, 34L, 35L, 30L, 32L, 29L, 29L, 31L, 33L, 33L, 30L, 35L, 35L, 
  34L, 42L, 41L, 39L, 40L, 40L, 38L, 44L, 43L), Quite.a.lot = c(17L, 
  15L, 18L, 18L, 21L, 17L, 20L, 23L, 19L, 23L, 23L, 23L, 22L, 22L, 
  24L, 22L, 27L, 23L, 19L, 28L, 28L, 26L, 25L, 21L, 27L, 25L, 25L, 
  24L, 25L, 26L, 23L, 22L, 24L, 26L, 23L, 24L, 23L, 23L, 24L, 25L, 
  26L, 24L, 22L), Some = c(31L, 36L, 33L, 29L, 31L, 32L, 29L, 32L, 
  29L, 29L, 30L, 29L, 31L, 30L, 26L, 28L, 28L, 30L, 32L, 24L, 26L, 
  28L, 26L, 28L, 27L, 28L, 29L, 29L, 27L, 26L, 26L, 26L, 27L, 28L, 
  27L, 21L, 22L, 26L, 20L, 21L, 20L, 20L, 21L), Very.little = c(23L, 
  25L, 24L, 25L, 24L, 20L, 20L, 17L, 22L, 20L, 18L, 14L, 15L, 21L, 
  19L, 16L, 15L, 17L, 18L, 13L, 14L, 12L, 12L, 12L, 13L, 11L, 14L, 
  14L, 12L, 12L, 14L, 17L, 11L, 10L, 12L, 11L, 13L, 9L, 11L, 11L, 
  13L, 9L, 7L), None..vol.. = c(3L, 4L, 3L, 3L, 3L, 3L, 4L, 2L, 
  4L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 1L, 1L, 2L, 
  2L, 2L, 2L, 3L, 2L, 1L, 2L, 3L, 2L, 1L, 3L, 1L, NA, 1L, 5L, 1L, 
  1L, 1L, 4L), No.opinion = c(1L, 0L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 
  1L, 2L, 2L, 3L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 2L, 1L, 
  2L, 1L, 1L, 3L, 2L, 2L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 2L, 3L, 
  2L, 2L), Great.deal.Quite.a.lot = c(42L, 36L, 38L, 41L, 41L, 
  42L, 45L, 48L, 44L, 48L, 48L, 52L, 48L, 46L, 52L, 53L, 53L, 50L, 
  45L, 60L, 56L, 58L, 59L, 56L, 57L, 57L, 54L, 53L, 56L, 59L, 56L, 
  52L, 59L, 61L, 57L, 66L, 64L, 62L, 64L, 65L, 64L, 68L, 65L)), class = &quot;data.frame&quot;, row.names = c(NA, 
  -43L))
  </code></pre>