如何将geom_sina点的位置与geom_text_repel对齐

install.packages("ggplot2")

library(ggplot2)

data <- data.frame(x = c(1, 2, 3), y = c(1, 2, 3), label = c("A", "B", "C"))

p <- ggplot(data, aes(x = x, y = y))

p <- p + geom_point()

p <- p + geom_label_repel(aes(label = label), nudge_x = 0, nudge_y = 0)

p <- p + theme_void()

library(ggplot2)

data <- data.frame(x = c(1, 2, 3), y = c(1, 2, 3), label = c("A", "B", "C"))

p <- ggplot(data, aes(x = x, y = y))
p <- p + geom_point()
p <- p + geom_label_repel(aes(label = label), nudge_x = 0, nudge_y = 0)
p <- p + theme_void()

print(p)