如何删除ggplot2图例中点下的字母？

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  x = 1:10,
  y = c(rep("A", 5), rep("B", 5)),
  z = runif(10)
)

# 绘制散点图
p <- ggplot(data, aes(x = x, y = z, color = y)) +
  geom_point()

# 删除图例中的字母
p <- p + theme(legend.text = element_blank())

# 显示图形
print(p)

p <- p + guides(colour = guide_legend(label.position = "none"))