如何在ggplot2中给特定X轴元素绘制圆圈高亮标记

现有与绘图数据关联的序列myseq，以及用于对比的序列checkseq。需求是绘制以myseq为X轴标签的折线图，高亮myseq中与checkseq对应位置不同的字符。由于实际场景中已通过element_markdown实现其他颜色效果，无法再用该方法修改字符颜色，因此希望给这类差异字符添加圆圈或方框标记。

以下是最小可复现代码：

myseq <- "AGAATATTATACATTCATCT"
set.seed(123)
mydata <- data.frame(time=1:100, value=rnorm(100, mean=10, sd=2))
indices <- seq(5, 100, length.out=20)
mysplit <- unlist(strsplit(myseq, ""))
#
checkseq <- "AGATTATTATAGGTTCATAT"
checksplit <- unlist(strsplit(checkseq, ""))
#
ind_df <- data.frame(call=mysplit, check=checksplit, time=indices)
ind_df$highlight <- ifelse(ind_df$call!=ind_df$check, TRUE, FALSE)
#
finaldf <- dplyr::left_join(mydata, ind_df, by="time")

P <- ggplot2::ggplot(finaldf, ggplot2::aes(x=time, y=value)) +
  ggplot2::geom_line(linewidth=0.5) +
  ggplot2::scale_x_continuous(breaks=indices, labels=mysplit) +  # 修正原代码笔误：seqsplit改为mysplit
  ggplot2::theme_light()
grDevices::pdf(file="test.pdf", height=4, width=10)
print(P)
grDevices::dev.off()

当前图表：X轴显示序列单个字符，无差异标记；期望效果：X轴中与checkseq不同的字符被圆圈或方框包围。

利用ggtext的element_markdown支持HTML样式的特性，给需要高亮的字符添加边框样式（圆圈或方框），既不影响已有的颜色设置，又能实现标记效果。具体操作：

• 处理X轴标签文本，根据highlight逻辑为差异字符添加带边框的HTML标签
• 在theme中保留ggtext::element_markdown()（你已在实际场景中使用此元素，无需额外修改）
• 更新scale_x_continuous的labels为处理后的文本

修改后的完整代码：

library(ggplot2)
library(ggtext)
library(dplyr)

myseq <- "AGAATATTATACATTCATCT"
set.seed(123)
mydata <- data.frame(time=1:100, value=rnorm(100, mean=10, sd=2))
indices <- seq(5, 100, length.out=20)
mysplit <- unlist(strsplit(myseq, ""))

checkseq <- "AGATTATTATAGGTTCATAT"
checksplit <- unlist(strsplit(checkseq, ""))

ind_df <- data.frame(call=mysplit, check=checksplit, time=indices)
ind_df$highlight <- ind_df$call != ind_df$check

# 生成带样式的标签：圆圈边框（如需方框则删除border-radius属性）
ind_df$label_text <- ifelse(
  ind_df$highlight,
  sprintf('<span style="border: 1px solid black; border-radius: 50%; padding: 0 2px;">%s</span>', ind_df$call),
  ind_df$call
)

finaldf <- left_join(mydata, ind_df, by="time")

P <- ggplot(finaldf, aes(x=time, y=value)) +
  geom_line(linewidth=0.5) +
  scale_x_continuous(breaks=indices, labels=ind_df$label_text) +
  theme_light() +
  theme(axis.text.x = element_markdown())  # 启用markdown解析渲染轴标签

ggsave("test.pdf", plot=P, height=4, width=10)

关键说明 #

• 调整HTML样式参数可切换标记类型：border-radius: 50%实现圆形边框，删除该参数则变为方形边框；padding用于调整边框与字符的间距
• element_markdown()会自动解析HTML样式，渲染出带边框的字符，不会干扰你已有的颜色设置
• 代码中使用ggsave替代原有的pdf()+print()，更符合ggplot2的常规用法

内容的提问来源于stack exchange，提问作者DaniCee