使用lapply将数据帧放入列表并保留数据框名称

Question

我使用TwitteR循环遍历推文句柄列表并使用以下代码创建多个数据帧。

for(user in twitter_handles$`Official Twitter`){
    twitter=userTimeline(user,n=100,includeRts=TRUE)
    assign(paste0("df.",user),twListToDF(twitter))
}

这会创建100个数据框，其中包含每个推文句柄的推文和附带信息。这会创建一个非常混乱的全局环境，因此我使用lapply（）将数据帧放入列表中，然后使用rm（）删除它们，如下所示：

twitter_data <- lapply(ls(pattern="df"), function(x) get(x))
rm(list = ls(pattern="df"))

但是这个列表中的数据框失去了名字。有没有办法在使用lapply将数据帧放入列表然后遍历数据帧以执行以下转换时保留数据帧的名称？

for(df in twitter_data){
    df$created <- format(df$created, tz="America/New_York",usetz=TRUE)
    df$day_created <-format(as.Date(df$created, format="%Y-%m-%d"), "%Y-%m-%d")
    df$day_created <- as.Date(df$day_created)
}