ggplot2 annotate文本设置意大利斜体ggplot2 annotate文本设置意大利斜体

生信编程日常

发布于 2021-09-07 16:41:46

1.4K0

发布于 2021-09-07 16:41:46

文章被收录于专栏：生物信息学、python、R、linux生物信息学、python、R、linux

有时ggplot作图时希望某些字变成斜体，可以导入Unicode包实现：

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

可以实现p为斜体：