使用ggrepel包可以实现标签颜色与气泡填充颜色相同的效果。以下是一个代码示例：

library(ggplot2)
library(ggrepel)

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

# 绘制散点图
p <- ggplot(df, aes(x, y, label = label)) +
  geom_point(size = 5, aes(fill = label)) +  # 气泡填充颜色与标签相同
  scale_fill_manual(values = c("A" = "red", "B" = "blue", "C" = "green", "D" = "orange", "E" = "purple")) +  # 设置气泡颜色
  theme_classic()

# 使用ggrepel添加标签
p + geom_text_repel(aes(label = label), 
                    size = 4, 
                    color = "white",  # 标签颜色与气泡填充颜色相同
                    box.padding = 0.5,
                    point.padding = 0.3)

在这个示例中，我们首先使用geom_point()来创建散点图，并使用fill参数将气泡的填充颜色与标签进行映射。然后，使用scale_fill_manual()函数设置气泡的颜色。最后，使用geom_text_repel()函数添加标签，并将color参数设置为"white"，以使标签颜色与气泡填充颜色相同。