R 访问数据框：这里发生了什么？

Question

R 新手，所以可能是一个菜鸟问题。考虑以下代码，尤其是 for 循环：

library(lubridate)
#Read in all site files in the directory
sitefiles <- list.files(pattern = "\\.csv$")   #Get a list of all csv's in dir
sites <- list()                                #Create an empty list.
sites <- lapply(sitefiles, read.csv)          
names(sites) <- gsub("\\.csv$", "", sitefiles)  #Rename the list

for (site in names(sites)){
  site$time <-  dmy_hms(site$timestamp)
      #Error: $ operator is invalid for atomic vectors
}

好的，让我们试试这个：

for (site in sites){
  site$time <-  mdy_hms(site$timestamp)
}

它似乎对sites 列表中的数据框什么都不做。特别是命令 colnames(sites[[1]]) 在运行 for 循环之前和之后是相同的 - 没有添加任何列。

但是，发生了变化。 Rstudio 告诉我有一个新变量，一个名为site 的数据框，它确实添加了列时间。什么鬼？？？

这里发生了什么？如何成功执行此命令？

Answer 1

lapply 的解决方案如下所示：

sites <- lapply(sites, function(x) { 
  x$time <-  dmy_hms(x$timestamp)
  x
})

This summary 帮助您处理所有不同数据类型的子集。

这个案例的基本知识是：

• sites 是一个包含多个 data.frames 的列表
• lapply 获取所有这些 data.frames 并应用相同的功能
• 然后返回这些修改后的 data.frames 的列表

小注：如果您以后依赖这些名称，您可能需要再次命名列表...

Answer 2

我找不到这方面的任何来源，但在本地对其进行测试，for 循环似乎正在为您正在迭代的列表中的项目创建本地副本。也许这就是推荐迭代 names 或者更确切地说是 apply 的原因。

> a <- list(mtcars$cyl)
> b <- list(mtcars$mpg)
> x <- c(a, b)
> tracemem(a)
[1] "<0000000014731C68>"
> tracemem(b)
[1] "<00000000147711D8>"
> for(myList in x) { print(tracemem(myList)) }
[1] "<000000000C37E650>"
[1] "<00000000096AED50>"

site 变量保留是因为索引变量保留在周围环境中是标准行为。