日期x轴位于y=0，标签位于底部的ggplot

library(ggplot2)

# 准备数据
data <- data.frame(
  date = seq(as.Date("2022-01-01"), as.Date("2022-01-31"), by = "day"),
  value = rnorm(31)
)

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

# 添加线图层
p <- p + geom_line()

# 设置x轴和y轴
p <- p + scale_x_date(date_labels = "%Y-%m-%d", date_breaks = "1 week")
p <- p + scale_y_continuous(limits = c(0, max(data$value)))

# 设置标签位置
p <- p + theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5))

# 显示图表
print(p)