使用ggplot2对齐条形图的文本注释

Question

我正在尝试将星号（*）添加到条形图的条形图中，以使用ggplot2指示值的重要性。类似问题2还有其他答案，但我无法确定要添加到geom_text（）的参数。

这是数据框'数据'：

group <- c(rep(1, 3), rep(2, 3), rep(3, 3), rep(4, 3))
n <- runif(12, 0, 25)
sig <- c("*", rep("", 11))
cluster <- rep(c("1", "2", "3"), 4)

data <- data.frame(group, n, sig, cluster)

我使用geom_text（）创建了带星号的图，但它不是在第一个栏上，而是在第一个栏上：

plot <- ggplot(data, aes(x = group, y = n, fill = cluster)) + 
    geom_bar(position = "dodge", stat = "identity", width = .75) + 
    geom_text(aes(label = sig))

如何将星号对齐到第一个栏的正上方？