如何使用lubridate的duration对象在x轴上绘制天而不是小时

install.packages("lubridate")

library(lubridate)

hours_duration <- hours(24)  # 创建一个24小时的duration对象
days_duration <- as.duration(hours_duration, "days")  # 将24小时的duration对象转换为天

dates <- seq(as.Date("2022-01-01"), as.Date("2022-01-10"), by = "day")  # 创建一个日期时间序列
plot_data <- data.frame(date = dates, value = 1:length(dates))  # 创建用于绘图的数据框

plot <- ggplot(plot_data, aes(x = date, y = value)) +
  geom_line() +
  scale_x_continuous(breaks = seq(as.Date("2022-01-01"), as.Date("2022-01-10"), by = "day"),
                     labels = as.character(seq(as.Date("2022-01-01"), as.Date("2022-01-10"), by = "day")),
                     sec.axis = dup_axis()  # 使用重复的x轴作为副坐标轴
                     ) +
  theme(axis.text.x = element_text(angle = 90))  # 将x轴刻度标签旋转90度

print(plot)