如何为ggplot中的点添加日期和时间？

library(ggplot2)

# 假设数据存储在dataframe中，日期和时间存储在DateTime列
dataframe <- data.frame(DateTime = c("2022-01-01 10:00:00", "2022-01-02 14:30:00", "2022-01-03 09:15:00"),
                        Value = c(10, 20, 15))

# 将字符型数据转换为日期时间格式
dataframe$DateTime <- as.POSIXct(dataframe$DateTime, format = "%Y-%m-%d %H:%M:%S")

# 创建ggplot对象
ggplot(data = dataframe, aes(x = DateTime, y = Value)) +
  geom_point() +
  scale_x_datetime(labels = scales::date_format("%Y-%m-%d %H:%M:%S")) +
  labs(title = "Scatter Plot with Date and Time", x = "Date and Time", y = "Value")