如何在ggplot2中校正条形图标号

# 导入ggplot2包
library(ggplot2)

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

# 创建绘图对象
p <- ggplot(data, aes(x = category, y = value))

# 添加条形图的图层
p <- p + geom_bar(stat = "identity")

# 调整x轴和y轴的刻度
p <- p + scale_x_discrete(position = "top")  # 将x轴标签放在图形的顶部
p <- p + scale_y_continuous(expand = c(0, 0))  # 去除y轴的空白部分

# 设置图形的主题
p <- p + theme(
  axis.text.x = element_text(angle = 90, hjust = 1),  # 将x轴标签旋转90度，并靠右对齐
  axis.title = element_blank()  # 去除坐标轴标题
)

# 显示图形
print(p)