如何在ggplot中创建部分斜体轴标题

问题描述

我正在尝试使我的标题以斜体（M.alfredi）的形式出现，但无法弄清楚怎么做？有人可以帮忙吗？谢谢。

library(tidyverse) 
library(reshape2)
dat <- read_xlsx("ReefPA.xlsx")
names(dat) <- str_replace_all(names(dat)," ","_") 
dat1 <- dat d
at1$Date <- format(dat1$Date,"%Y/%m")

dat1 %>% 
  group_by(Date) %>% 
  tally() %>% 
  filter(Date > '2014-01-01') %>% 
  ggplot() + 
  geom_bar(aes(x = Date,y = n),stat = 'identity') + 
  theme(axis.text.x = element_text(angle = 90,vjust = 0.5,hjust = 1)) + 
  ylab("Total Number of M.alfredi Encounters Per Month")

解决方法

您可以使用plotmath表达式标记轴。这里没有示例数据，但此模型应足够：

ggplot(data = data.frame(x = 1:30,y = round(runif(30,20,50))),aes(x,y)) + 
  geom_col() +
  labs(y = expression("Total Number of "~italic(M.alfredi)~"Encounters Per Month"))

ggplot2 r r