ggplot(df, aes(x, y, color = grp)) + geom_point() + labs(color = expression(italic(x[0])))
legend_label <- "𝒙₀" ggplot(df, aes(x, y, color = grp)) + geom_point() + scale_color_discrete(name = legend_label)