在ggplot2图表的小平面标题中组合文本和可爱的图标？

install.packages("ggtext")

library(ggplot2)
library(ggtext)

library(ggplot2)
library(ggtext)

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

# 创建一个ggplot2图表
plot <- ggplot(data, aes(x, y)) +
  geom_point() +
  labs(title = "在ggplot2图表的小平面标题中组合文本和可爱的图标") +
  theme(plot.title = element_markdown())

# 在标题中组合文本和图标
plot + theme(plot.title = element_markdown(text = "<span style='color:red;'>这是一个示例标题</span> <img src='https://example.com/icon.png' width='20' height='20'>"))