dplyr::select单独可用但嵌套其他函数时报错的原因与解决

问题根源 #

• select()是dplyr中针对数据框级操作的函数，它的第一个参数必须是数据框对象。
• 当你在across()或pivot_longer()的参数中直接嵌套select()时，当前上下文并没有将完整数据框传递给select()，反而传递了列名对应的数值/向量类型参数，导致select()接收到的不是数据框，而是integer/numeric类型，因此触发错误：

  error in UseMethod():
  no applicable method for 'select' applied to an object of class "c('integer', 'numeric')"

解决方法 #

1. 直接在目标函数中使用tidyselect选择器 #

across()和pivot_longer()本身支持所有tidyselect语法（比如matches()、starts_with()等），不需要额外嵌套select()：

# mutate + across 场景
test |> mutate(across(-matches("^[0-9]"), as.factor))

# pivot_longer 场景
test |> pivot_longer(matches("^[0-9]"), names_to = "Numbers", values_to = "Sample")

2. 先筛选列再执行后续操作 #

如果需要明确先筛选列再处理，可以将select()放在管道的前置步骤，再传递给后续函数：

# 先选列再转因子
test |> select(-matches("^[0-9]")) |> mutate(across(everything(), as.factor))

# 先选列再宽转长
test |> select(matches("^[0-9]")) |> pivot_longer(everything(), names_to = "Numbers", values_to = "Sample")

内容的提问来源于stack exchange，提问作者Bryce Hunt