从存储库中读取选定数据集的构建函数

Question

编码新手 - 我收集了来自多个传感器的数据。

出于分析目的，我想构建一个函数，它接收传感器编号列表并将变量创建/命名为数据框。

目前我写的：

    # establish directory
    setwd("C:/Users/thoma/Desktop/Files/Programming/R/timeseries_sensor_data/")

    # define function
    read_censor_data <- function(id = 1:99){
            for(i in id){

                    # create a variable name for every sensor || read csv
                    assign(paste0("sensor_",i),read.csv(paste0(i,'.csv')))
                    print(paste0("Sensor_",i," has been succesfully read."))
            }
    }
    read_censor_data(12:19)

for 循环正在遍历选定的输入 12 到 19，但尚未创建任何数据帧变量。

谁能建议我哪里出了问题以及如何解决这个问题？

Answer 1

您需要适当地设置环境，因为数据仅在函数中创建。

read_censor_data <- function(id = 1:99){
   for(i in id){
    assign(paste0("sensor_",i),read.csv(paste0(i,'.csv')), envir = parent.frame())
    print(paste0("Sensor_",i," has been succesfully read."))
  }
}

read_censor_data(12:19)

但是，从一个函数在全局环境中创建大量数据框通常不是一个好习惯。考虑使用更易于管理的列表。

read_censor_data <- function(id = 1:99){
   lapply(paste0("sensor_", id), read.csv)
}

list_df <- read_censor_data(12:19)

然后您可以使用list_df[[1]]、list_df[[2]] 等访问每个单独的数据帧。