如何在ggplot中将日期指定为x轴标签？尝试使用geom_vline() R匹配日期

library(ggplot2)
library(scales)

# 创建一个包含日期和数值的数据框
data <- data.frame(
  date = as.Date(c("2022-01-01", "2022-01-02", "2022-01-03", "2022-01-04")),
  value = c(10, 15, 8, 12)
)

# 创建ggplot对象，并指定x轴为日期
p <- ggplot(data, aes(x = date, y = value)) +
  geom_line() +
  geom_vline(xintercept = as.Date("2022-01-02"), linetype = "dashed", color = "red")  # 添加垂直线

# 设置x轴标签为日期格式
p <- p + scale_x_date(labels = date_format("%Y-%m-%d"))

# 打印图形
print(p)