For my ggplot figure, I want to label categories on a barplot with the first word being italicized, while the following words are non-italicized. I want the category labels
I would use the glue and ggtext packages.
library(tidyverse)
library(ggtext)
library(glue)
data <- data.frame(
bactname = c("Staphylococcaceae", "Moraxella", "Streptococcus", "Acinetobacter"),
OTUname = c("OTU_1", "OTU_2", "OTU_3", "OTU_4"),
value = c(-0.5, 0.5, 2, 3)
)
data %>% mutate(
name = glue("*{bactname}* ({OTUname})"),
name = fct_reorder(name, value)
) %>%
ggplot(aes(name, value)) +
geom_col() + coord_flip() +
theme(axis.text.y = element_markdown())
Created on 2020-01-29 by the reprex package (v0.3.0)