在R中旋转x轴标签以显示条形图

# 安装和加载 ggplot2 包
install.packages("ggplot2")
library(ggplot2)

# 数据准备
data <- data.frame(category = c("A", "B", "C", "D"),
                 value = c(30, 40, 20, 50))

# 创建条形图
p <- ggplot(data, aes(x = fct_reorder(category, value), y = value))
p <- p + geom_bar(stat = "identity", width = 1, color = "white")
p <- p + coord_flip()
p <- p + theme_bw()

# 旋转 x 轴标签
p <- p + theme(axis.text.x = element_text(angle = 90, hjust = 1))

# 显示图形
print(p)