调整条形图ggplot2上的标签，不依赖于数据值

library(ggplot2)

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

# 创建条形图
plot <- ggplot(data, aes(x = category, y = value)) +
  geom_bar(stat = "identity") +
  ylim(0, 50)  # 设置y轴范围

# 添加标签
plot <- plot + geom_text(aes(label = value), vjust = -0.5)

# 调整标签位置
plot <- plot + theme(axis.text.x = element_blank(),  # 隐藏x轴刻度标签
                     axis.ticks.x = element_blank(),  # 隐藏x轴刻度线
                     panel.grid.major.y = element_blank(),  # 隐藏y轴网格线
                     panel.grid.minor.y = element_blank(),  # 隐藏y轴网格线
                     plot.margin = margin(0.5, 0.5, 0.5, 0.5, "cm"))  # 调整图表边距

# 显示图表
print(plot)