如何在R中完成一个变量在其因子级别上的相关性，并按日期进行匹配

install.packages("tidyverse")  # 安装tidyverse包，其中包含了许多常用的数据处理和可视化工具
library(tidyverse)  # 加载tidyverse包

data <- data.frame(
  date = as.Date(c("2022-01-01", "2022-01-02", "2022-01-03", "2022-01-01", "2022-01-02", "2022-01-03")),
  factor_var = as.factor(c("A", "B", "A", "B", "A", "B")),
  numeric_var = c(1, 2, 3, 4, 5, 6)
)

result <- data %>%
  group_by(date, factor_var) %>%
  summarize(correlation = cor(numeric_var))

ggplot(result, aes(x = date, y = correlation, color = factor_var)) +
  geom_line() +
  labs(x = "Date", y = "Correlation", color = "Factor Level")