使用 dfList 在多个数据框中创建新列

Question

我有几个数据框都具有相同的列名。 我想在每列中合并两列以创建一个新列。

数据框如下所示：

我希望输出看起来像这样：

通常我会很容易地为一个数据框做到这一点：

a$XY_ID <- paste(a$X,ak$Y,sep=":")

如何对列表中的所有数据框执行此操作？

谢谢您的帮助！

Answer 1

您可以在lapply使用paste命令：

dfList <- lapply(dfList, function(x) transform(x, XY_ID = paste(X,Y,sep=":")))

在tidyverse您可以使用map迭代列表并unite组合列。

dfList <- purrr::map(dfList, ~tidyr::unite(.x, XY_ID, X, Y, sep = ":", remove = FALSE))

Answer 2

我们可以将do.call与paste一起使用，如果有很多列要连接，它也可以使用

dfList <- lapply(dfList, function(x) {
         x$XYID <- do.call(paste, c(x[c('X', 'Y')], sep=":"))
         x })