将总计添加到ggplot直方图中

library(ggplot2)

# 创建一个数据框
data <- data.frame(category = c("A", "B", "C", "D"),
                   value = c(10, 20, 15, 25))

# 创建直方图
plot <- ggplot(data, aes(x = category, y = value)) +
  geom_bar(stat = "identity") +
  labs(x = "Category", y = "Value")

# 计算总计值
total <- sum(data$value)

# 在直方图上添加总计值标签
plot <- plot + geom_text(aes(label = total), 
                         x = 1:length(data$category), 
                         y = data$value + 1, 
                         vjust = -0.5)

# 显示直方图
print(plot)