在数据框列表上使用数据框的名称

Question

我尝试从我之前发布的问题中解决问题looping inside list in r

有没有办法获取数据框列表中的数据框的名称？ 我列出了一系列数据帧以及我想应用myfunction 的每个数据帧。但是我不知道如何获取每个数据框的名称以便在myfunction 的nameofprocesseddf 上使用它。

这是我获取数据框列表和到目前为止获得的代码的方式。有什么建议可以让我完成这项工作吗？

library(missForest)
library(dplyr)

myfunction <- function (originaldf, proceseddf, nonproceseddf, nameofprocesseddf=character){
NRMSE <- nrmse(proceseddf, nonproceseddf, originaldf)
comment(nameofprocesseddf) <- nameofprocesseddf
results <- as.data.frame(list(comment(nameofprocesseddf), NRMSE))
names(results) <- c("Dataset", "NRMSE")
return(results)
}
a <- data.frame(value = rnorm(100), cat = c(rep(1,50), rep(2,50)))
da1 <- data.frame(value = rnorm(100,4), cat2 = c(rep(2,50), rep(3,50)))

dataframes <- dir(pattern = ".txt") 
list_dataframes <- llply(dataframes, read.table, header = T, dec=".", sep=",")
n <- length(dataframes)

# Here is where I do not know how to get the name of the `i` dataframe 
for (i in 1:n){
modified_list <- llply(list_dataframes, myfunction, originaldf = a, nonproceseddf = da1, proceseddf = list_dataframes[i], nameof processeddf= names(list_dataframes[i]))
write.table(file = sprintf("myfile/%s_NRMSE20%02d.txt", dataframes[i]), modified_list[[i]], row.names = F, sep=",")
}

Answer 1

事实上，数据框的名称并不是数据框的属性。它只是一个用于调用对象的表达式。因此数据框的name确实是'list_dataframes[i]'。

由于我假设您希望将数据框命名为文本文件没有扩展名，因此我建议您使用类似（它需要库 stringr）：

nameofprocesseddf = substr(dataframes[i],start = 1,stop = str_length(dataframes[i])-4)