当将 csv 表列表与 purrr 绑定在一起作为数据框时，我想在每个 csv 中包含一个以字符串为条件的标签列
When binding together a list of csv tables with purrr as dataframe i want to include a tag column conditional on a string in each csv
我使用以下代码将来自 33 个 csv 文件的参与者原始数据绑定在一起
filenames <- list.files(pattern = '*.csv', recursive = TRUE)
result <- purrr::map_df(filenames, read.csv, .id = 'id')
效果很好。现在我需要在最终数据框中为每个参与者添加一个标签 (csv)，以明确他们处于几种随机条件中的哪一种。
我想让它以每个 .csv 的第一列中的第一个单词为条件，因为每个参与者都得到几个随机单词序列中的一个。
我想到了 ifelse() 的东西，但不确定如何将其包含在上面的代码中。我是一个完全的 R 菜鸟，感谢任何帮助！
我认为这应该可以达到您的要求：
result <- lapply(result, function(x) { x$tag <- x[1, 1]; x })
do.call(rbind, result)
我使用以下代码将来自 33 个 csv 文件的参与者原始数据绑定在一起
filenames <- list.files(pattern = '*.csv', recursive = TRUE)
result <- purrr::map_df(filenames, read.csv, .id = 'id')
效果很好。现在我需要在最终数据框中为每个参与者添加一个标签 (csv)，以明确他们处于几种随机条件中的哪一种。
我想让它以每个 .csv 的第一列中的第一个单词为条件，因为每个参与者都得到几个随机单词序列中的一个。
我想到了 ifelse() 的东西，但不确定如何将其包含在上面的代码中。我是一个完全的 R 菜鸟，感谢任何帮助！
我认为这应该可以达到您的要求：
result <- lapply(result, function(x) { x$tag <- x[1, 1]; x })
do.call(rbind, result)