有時ggplot作圖時希望某些字變成斜體，可以導(dǎo)入Unicode包實現(xiàn)：

library(Unicode)
p.val <- ' < 1e-4'
italic_p <- u_char_inspect(u_char_from_name("MATHEMATICAL ITALIC SMALL P"))["Char"]

cairo_pdf('~/Downloads/tmp/test.pdf', height=5, width=8)
ggplot(data=controls, aes(x = control_num)) + geom_histogram(stat="count", fill='#888888', color='white') +
  labs(x='', title = 'ENCFF001HIA') +
  geom_vline(xintercept = 47, color='#FF5511') +
  geom_vline(xintercept = mean(controls$control_num), color='#0066FF') +
   theme_bw() + theme(plot.title = element_text(hjust=0.5)) +
  annotate("text", x = -Inf, y = Inf, label = paste(italic_p, p.val, sep=''), hjust = -.2, vjust = 2)
dev.off()

可以實現(xiàn)p為斜體：

注意保存的時候，要使用cairo_pdf()而不是pdf()，否則p有可能顯示不出來。

參考：
1). https://www.codenong.com/30673470/
2). https://www.coder.work/article/6252692