将文本添加到符合条件的ggplot geom_jitter点

library(ggplot2)

# 创建一个数据集
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(2, 4, 6, 8, 10),
  label = c("A", "B", "C", "D", "E")
)

# 创建一个基本的ggplot图形
p <- ggplot(data, aes(x = x, y = y))

# 添加geom_jitter几何对象
p <- p + geom_jitter(size = 3, color = "blue")

# 添加geom_text几何对象，将文本添加到符合条件的点上
p <- p + geom_text(aes(label = label), vjust = -1)

# 显示图形
print(p)