R:tidyr::spread 的编程替代方案？

Question

我有 R data.frames 有不同数量的列。最后一列是数字，其余是字符串。我需要对它们进行排列，以便展开最后一个非数字列。困难在于我想以编程方式执行此操作，因为我不知道列名。

例如

df <- data.frame(varA = c("A1", "A1", "A2", "A2"),
                 varB = c("B1", "B2", "B1", "B2"),
                 val = c(1, 2, 3, 4))

我到达我想去的地方

tidyr::spread(df, varB, val)

但是当传播变量的名称未知时，我不知道如何实现这一点。

例如这行不通:

tidyr::spread(df, names(df)[ncol(df) - 1], val)

我已经尝试过 tidyverse 解决方案，但基础 R 对我来说同样适用。

Answer 1

spread_ 从 tidyr 0.7.0 开始被弃用，tidyr 中的编程已切换到 tidy 评估。参见 this article了解更多背景。

要在 spread 中使用字符串，您需要 rlang 包中的 sym 函数以及 !! 取消引用以进行评估。

spread(df, !!rlang::sym(names(df)[ncol(df) - 1]), val)

  varA B1 B2
1   A1  1  2
2   A2  3  4