如何在ggplot中正确显示x轴？

library(ggplot2)

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

# 将x轴的数据类型转换为字符型
data$x <- as.character(data$x)

# 创建ggplot对象并设置x轴的标签格式和刻度
ggplot(data, aes(x = x, y = y)) +
  geom_bar(stat = "identity") +
  scale_x_discrete(labels = c("Label A", "Label B", "Label C", "Label D"))

# 设置x轴的范围和刻度
ggplot(data, aes(x = x, y = y)) +
  geom_bar(stat = "identity") +
  scale_x_discrete(limits = c("A", "B", "C", "D"), breaks = c("A", "C", "D"))

# 横向显示x轴
ggplot(data, aes(x = x, y = y)) +
  geom_bar(stat = "identity") +
  coord_flip()