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

Question

我试图用斜体（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")

Answer 1

您可以使用 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"))