绘制按R中唯一ID分组的每日时间序列汇总图

# 导入必要的库
library(dplyr)
library(ggplot2)

# 导入数据
data <- read.csv("data.csv") # 数据文件路径

# 对数据进行预处理和准备
data$Date <- as.Date(data$Date) # 将日期列转换为日期格式
data <- data %>% group_by(ID, Date) %>% summarise(Sum_Value = sum(Value)) # 按唯一ID和日期进行分组，并计算每日数值的总和

# 绘制时间序列汇总图
plot <- ggplot(data, aes(x = Date, y = Sum_Value, group = ID)) +
  geom_line() +
  facet_wrap(~ ID, nrow = 3) +  # 将图表按唯一ID分组展示，每行显示3个图表
  labs(x = "日期", y = "每日数值总和")  # 设置坐标轴标签

# 输出图表
print(plot)