我可以从顶部到底部更改ggplot中条带标签的位置吗？

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  category = c("A", "B", "C"),
  value = c(10, 20, 30)
)

# 绘制条带图
p <- ggplot(data, aes(x = category, y = value, fill = category)) +
  geom_bar(stat = "identity") +
  geom_text(aes(label = value), 
            position = position_stack(vjust = 0.5), 
            hjust = 0.5, vjust = 1)

# 打印图形
print(p)