如何在ggplot中绘制带有日期和时间轴的折线图？

install.packages("ggplot2")

library(ggplot2)

p <- ggplot(data = df, aes(x = date, y = value))

p <- p + geom_line()

p <- p + scale_x_datetime(date_labels = "%Y-%m-%d", time_labels = "%H:%M:%S")

p <- p + geom_point()  # 添加点图层
p <- p + theme(axis.text.x = element_text(angle = 45, hjust = 1))  # 调整x轴标签角度
p <- p + labs(title = "折线图", x = "日期", y = "数值")  # 添加标题和轴标签

print(p)