本节介绍通过bquote函数给图标签添加上下标
library(tidyverse)
library(patchwork)
iris %>% as_tibble()
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
<dbl> <dbl> <dbl> <dbl> <fct>
1 5.1 3.5 1.4 0.2 setosa
2 4.9 3 1.4 0.2 setosa
3 4.7 3.2 1.3 0.2 setosa
4 4.6 3.1 1.5 0.2 setosa
5 5 3.6 1.4 0.2 setosa
p1 <- iris %>% as_tibble() %>%
ggplot(aes(Sepal.Length,Sepal.Width,fill=Species))+
geom_point(size=4,pch=21,color="white")+
xlab(bquote(CO[2]^-2))
p2 <- iris %>% as_tibble() %>%
ggplot(aes(Sepal.Length,Sepal.Width,fill=Species))+
geom_point(size=4,pch=21,color="white")+
xlab(bquote(Assimilation (mu~ mol ~CO[2]~ m^-2~s^-1)))
p1+p2+plot_layout(guides = 'collect')
欢迎关注我的公众号
R语言数据分析指南
本公众号主要分享数据可视化的一些经典案例及一些生信相关的知识供大家学习
