我正在尝试在情节中使用女性符号♀。这是非常模糊的(嗯,在我的实际图形上看起来是模糊的),所以我希望将其变为大胆的面孔。

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")


r - 使用注释将粗体女性符号添加到ggplot2-LMLPHP

我已经尝试了以下方法,但似乎都没有效果:

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中使用?

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

最佳答案

@Axeman的评论帮助我找到了答案-我不知道您可以加载其他软件包来获取ggplot2的更多字体。谢谢!我使用以下代码:

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")


r - 使用注释将粗体女性符号添加到ggplot2-LMLPHP

08-26 16:34
查看更多