R语言ggplot2作图的时候给坐标轴添加文本π

用户7010445

发布于 2021-08-31 17:39:11

1.5K0

发布于 2021-08-31 17:39:11

文章被收录于专栏：小明的数据分析笔记本

image.png

今天用ggplot2作图y轴的标题想实现上图红框里的形式，查了一下如何实现记录一下代码

首先是构造一份数据集

df<-data.frame(x=1,y=1)

R语言ggplot2散点图并添加文本

library(extrafont)
fonts()
library(ggplot2)
ggplot(data=df,aes(x=x,y=y))+
  geom_text(label="\u03c0",size=30,
            family="Times New Roman",
            fontface="italic")

family参数设置具体使用哪种字体fontface参数设置斜体

这里\u03c0 是Unicode字符，对应关系可以在链接 https://www.rapidtables.com/code/text/unicode-characters.html 查看

设置横坐标的标题

library(ggstar)
ggplot(data=df,aes(x=x,y=y))+
  geom_text(label="\u03c0",size=30,
            family="Times New Roman",
            fontface="italic",
            hjust=4)+
  geom_star(starshape=16,size=40,fill="red")+
  theme_bw()+
  labs(x=expression(Nucleotide~diversity~'('~italic('\u03c0')~'\u00d7'~10^{-3}~")"))+
  theme(axis.title.x = element_text(family="Times New Roman"))

结果如下