R中的sql查询，比较两个日期

library(sqldf)

# 创建一个包含日期的数据框
data <- data.frame(date1 = c("2022-01-01", "2022-02-01", "2022-03-01"),
                   date2 = c("2022-02-01", "2022-03-01", "2022-04-01"))

# 使用sqldf执行SQL查询，比较两个日期
result <- sqldf("SELECT date1, date2, 
                        CASE WHEN date1 < date2 THEN 'date1 < date2'
                             WHEN date1 = date2 THEN 'date1 = date2'
                             ELSE 'date1 > date2'
                        END AS comparison
                 FROM data")

# 打印查询结果
print(result)