gg-latex-image.md

library(tidyverse)
library(palmerpenguins)
library(latex2exp)

ggplot(na.omit(penguins),
       aes(x = bill_length_mm,
           y = bill_depth_mm,
           colour = sex)) + 
  geom_line() +
  scale_colour_discrete(
    name = "Cross validation with", 
    labels = lapply(c(
      '$\\textit{I}\\rightarrow\\textit{CV}$',
      '$\\textit{CV} \\circlearrowright \\textit{I}$'
      ), TeX))

^{Created on 2020-08-13 by the reprex package (v0.3.0)}