标签位于R条形图中的条形图下方

# 安装并加载必要的包
if (!require(ggplot2)) install.packages('ggplot2')
library(ggplot2)

# 创建示例数据
data <- data.frame(
  Category = c('A', 'B', 'C', 'D'),
  Value = c(30, 45, 55, 20)
)

# 绘制条形图并添加标签
ggplot(data, aes(x = Category, y = Value)) +
  geom_bar(stat = "identity", fill = "steelblue") +
  geom_text(aes(label = Value), vjust = -0.5) +  # 标签位于条形下方
  theme_minimal()

# 安装并加载ggrepel包
if (!require(ggrepel)) install.packages('ggrepel')
library(ggrepel)

# 使用geom_text_repel避免标签重叠
ggplot(data, aes(x = Category, y = Value)) +
  geom_bar(stat = "identity", fill = "steelblue") +
  geom_text_repel(aes(label = Value), direction = "y") +
  theme_minimal()