减少ggplot2中离散轴刻度之间的间距

library(ggplot2)

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

# 创建一个基础的散点图
plot <- ggplot(data, aes(x = category, y = value)) +
  geom_point()

# 调整x轴刻度的间距
plot <- plot + scale_x_discrete(expand = c(0, 0))

# 调整y轴刻度的间距
plot <- plot + scale_y_discrete(expand = c(0, 0))

# 显示图形
print(plot)