当我使用以下功能时：
lapply(reg_results, function(model) {predict(model,newdata=subset(df, date=="12/15/2016 12:00:00 AM" & key=="1"))})
我根据df。
中包含的x变量得到特定日期的回归结果输出但是，我的df有几天key==1。我想根据所有日期导出回归结果，并打印到“df_results”。我的问题是，当我执行以下操作时：
lapply(reg_results, function(model) {predict(model,newdata=subset(DataNP, scenario_ID=="1", id=date))})
它输出所有日期的所有预测变量，但日期显示为随机数。它们甚至看起来都不是数字存储的。有没有办法为每个预测输出引入列日期？
示例数据集：
Key Date y x1 x2 x3
1 1/10/2018 12:00:00 AM 2 3 2 5
1 1/11/2018 12:00:00 AM 3 5 7 2
1 1/12/2018 12:00:00 AM 5 7 4 7
1 1/13/2018 12:00:00 AM 7 2 7 6
2 1/10/2018 12:00:00 AM 2 6 3 8
2 1/11/2018 12:00:00 AM 3 7 7 3
2 1/12/2018 12:00:00 AM 3 2 3 4
2 1/13/2018 12:00:00 AM 7 6 2 7
基本上，我希望我的回归预测函数能够显示每个预测输出旁边的关键字和日期，这样我就可以回到样本数据进行比较。