我有多个数据框如下，格式相同。
'17509_10842_10842_40005'
'17509_10842_10842_40006'
'17509_10842_10842_40007'
'17533_10842_10842_40001'
'17540_10842_10842_40001'
s <- setNames(split(Data, Data$ID), paste0(unique(Data$ID)))
list2env(s, globalenv())
这些数据框是从一个大的数据集生成的（请参阅下面的大数据集示例），我使用列ID中可用的唯一值进行拆分
Data <- read.table(header = TRUE, text = "
ID End_Date Value
17509_10842_10842_40005 5/22/2016 0.99
17509_10842_10842_40005 5/29/2016 0.96
17509_10842_10842_40005 6/5/2016 0.98
17509_10842_10842_40005 6/12/2016 0.87
17509_10842_10842_40005 6/19/2016 0.95
17509_10842_10842_40005 6/26/2016 0.91
17509_10842_10842_40005 7/3/2016 0.96
17509_10842_10842_40005 7/10/2016 0.92
17509_10842_10842_40005 7/17/2016 0.9
17509_10842_10842_40006 5/22/2016 0.91
17509_10842_10842_40006 5/29/2016 0.96
17509_10842_10842_40006 6/5/2016 0.95
17509_10842_10842_40006 6/12/2016 0.87
17509_10842_10842_40006 6/19/2016 0.99
17509_10842_10842_40006 6/26/2016 0.95
17509_10842_10842_40006 7/3/2016 0.99
17509_10842_10842_40006 7/10/2016 0.93
17509_10842_10842_40006 7/17/2016 0.94
17509_10842_10842_40007 5/22/2016 0.99
17509_10842_10842_40007 5/29/2016 0.96
17509_10842_10842_40007 6/5/2016 0.98
17509_10842_10842_40007 6/12/2016 0.87
17509_10842_10842_40007 6/19/2016 0.95
17509_10842_10842_40007 6/26/2016 0.91
17509_10842_10842_40007 7/3/2016 0.96
17509_10842_10842_40007 7/10/2016 0.92
17509_10842_10842_40007 7/17/2016 0.9
17533_10842_10842_40001 5/22/2016 0.91
17533_10842_10842_40001 5/29/2016 0.96
17533_10842_10842_40001 6/5/2016 0.95
17533_10842_10842_40001 6/12/2016 0.87
17533_10842_10842_40001 6/19/2016 0.99
17533_10842_10842_40001 6/26/2016 0.95
17533_10842_10842_40001 7/3/2016 0.99
17533_10842_10842_40001 7/10/2016 0.93
17533_10842_10842_40001 7/17/2016 0.94
17540_10842_10842_40001 5/22/2016 0.91
17540_10842_10842_40001 5/29/2016 0.96
17540_10842_10842_40001 6/5/2016 0.95
17540_10842_10842_40001 6/12/2016 0.87
17540_10842_10842_40001 6/19/2016 0.99
17540_10842_10842_40001 6/26/2016 0.95
17540_10842_10842_40001 7/3/2016 0.99
17540_10842_10842_40001 7/10/2016 0.93
17540_10842_10842_40001 7/17/2016 0.94
")
> str(`17509_10842_10842_40005`)
'data.frame': 7 obs. of 7 variables:
我想在for循环中对这些数据框执行相同的分析，我尝试分配for循环但无法获得结果
for (i in unique(Data$ID))
{
data1 <- as.data.frame[i]
}