如何在ggplot的geom_text_repel或geom_text标签中包含斜体文本？

library(ggplot2)
library(ggrepel)

# 创建一个示例数据集
data <- data.frame(x = c(1, 2, 3), y = c(1, 2, 3), label = c("标签1", "标签2", "标签3"))

# 创建一个基础的散点图
p <- ggplot(data, aes(x, y)) +
  geom_point()

# 在geom_text_repel中包含斜体文本
p + geom_text_repel(aes(label = paste0("<i>", label, "</i>")), 
                    family = "Arial", 
                    segment.color = "transparent",
                    segment.size = 0.5,
                    size = 4,
                    parse = TRUE) +
  theme(text = element_text(face = "italic"))