注釈を使用してggplot2に太字の女性記号を追加してください

Question

私のプロットでは、女性記号♀を使用しようとしています。それはかなりかすかなものです（私の実際のグラフではうんざりしています）ので、私はそれを大胆な顔にしたいと考えていました。

df <- data.frame(x = c(0, 1), y = c(0, 1)) 
ggplot(df, aes(x, y)) + geom_point() + 
    theme_bw() + 
    annotate("text", x = 0.5, y = 0.7, label = "2016 ♀", 
    size = 7, hjust = 0, colour = "grey50") 

私は次のことを試してみたが、どれも動作していない：

ggplot(df, aes(x, y)) + geom_point() + 
    annotate("text", x = 0.5, y = 0.7, label = "2016~bold(♀)", 
    size = 7, hjust = 0, parse = TRUE) 

# error message: Error in parse(text = as.character(lab)) : <text>:1:11: unexpected '<' 
#1: 2016~bold(< 
      ^

ggplot(df, aes(x, y)) + geom_point() + 
    annotate("text", x = 0.5, y = 0.7, label = "2016~bold(u2640)", 
    size = 7, hjust = 0, parse = TRUE) 

ggplot(df, aes(x, y)) + geom_point() + 
    annotate("text", x = 0.5, y = 0.7, label = "2016~bold(\u2640)", 
    size = 7, hjust = 0, parse = TRUE) 

私もthis postを見つけたが、私は、私は次のコードを変更することができるかどうかわからないんだけどggplot内で作業するには？ Axemanさんのコメント@

plot(df) 
text(locator(1), "\\VE", vfont=c("sans serif","bold"), xpd=TRUE) # Venus 

Answer 1

私は答えを見つける助け - 私はあなたがggplot2のためのより多くのフォントを取得するために他のパッケージに読み込むことができます実現しませんでした。ありがとう！あなたは `annotate`コールに` fontface =」bold'`を追加することができ、そして `2016`が太字になりますが、`♀`は上と同じに見える

install.packages("extrafont") 
library(extrafont) 
font_import() # Prepare for this to take several minutes 
loadfonts(device = "win") 

ggplot(df, aes(x, y)) + geom_point() + 
    theme_bw() + 
    annotate("text", x = 0.5, y = 0.7, label = "2016 ♀", 
    size = 7, hjust = 0, colour = "grey50", family = "Calibri", fontface = "bold")