purrr有几个超级有用的函数，用于遍历向量和列表，并将自定义函数应用于每个项目。下面的示例代码不会将JSON转换为 Dataframe ，因此您需要尝试一下。

# Path to folders which contain JSON files.
path <- 'my_path'

# List folders, excluding the containing folder.
folders <- list.dirs(path) %>%
    .[. != path ]

# Traverse folders, reading JSON contents of each folder.
json_list <- folders %>%
    purrr::map(function(folder) {
        json_files <- list.files(
            folder,
            '\\.json$', # pattern that identifies .json files
            full.names = TRUE
        )

        # ingest JSON data - note further processing required to convert list to data frame here
        json_data <- json_files %>%
            purrr::map(~jsonlite::fromJSON(readLines(.x)))

        return(json_data)
    }) %>%
    rlang::set_names(
        purrr::map_chr(folders, ~strsplit(.x, '/')[[1]] %>% tail(1)) # set names of list items to folder names
    )
})