R语言dplyr管道for循环用动态变量出现强制转换NA错误如何修复？

• 代码的核心错误是在dplyr管道的mutate环境中，直接对保存列名的字符串变量i_tlag_baseline用eval()无法正确指向数据框内的对应列，实际是对"df1_timediff"这类字符串本身做数值转换，自然会生成NA并触发"NAs introduced by coercion"报错，外层加as.numeric()也无法解决这个取值逻辑错误。
• 手动操作时是直接指定了列名，不存在字符串转列名的取值问题，所以可以正常运行。

采用tidyverse推荐的动态列引用方式，用.data[[字符串列名]]来读取对应列的值，修改后代码如下：

names.dfs <- c("df1", "df2", "df3")

for (i in names.dfs){
  df_i <- get(i)  
  i_t_210 <- paste0(i,"_t_210")
  i_tlag_baseline <- paste0(i,"_timediff")
  # 用.data[[i_tlag_baseline]]读取动态列
  df_i <- df_i %>%
          mutate({{i_t_210}} := cut(.data[[i_tlag_baseline]], breaks = c(-2,0,10,22,34,46,58,70), labels = c("baseline","Timepoint0.5", "Timepoint1", "Timepoint2", "Timepoint3","Timepoint4","Timepoint5")))
  assign(i, df_i)
}

你提供的示例数据中所有*_timediff值都在0~0.5之间，运行后新生成的*_t_210列，值为0的行对应标签baseline，大于0的行对应标签Timepoint0.5，没有NA值。

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