如何在dplyr中直接将中位数值拼接至新生成列的列名？

需求说明 #

已知mtcars数据集的mpg字段中位数为19.2，需要生成一个新列，列名为median_dich19.2（将中位数数值直接拼接在median_dich后），新列逻辑为：mpg大于中位数时赋值1，否则赋值0。要求直接获取中位数并动态完成列名拼接。

已尝试的代码 #

# TRY 1
library(dplyr)
mtcars %>% 
  mutate(median_mpg = median(mpg)) %>% 
  mutate(glue("median_dich{median_mpg}") = ifelse(mpg > median_mpg, 1, 0))

# TRY 2
library(dplyr)
library(rlang)

mtcars %>%
  mutate(median_mpg = median(mpg)) %>%
  mutate(!!paste0("median_dich_", median_mpg) := ifelse(mpg > median_mpg, 1, 0))

# TRY 3
library(dplyr)
library(rlang)
library(glue)

mtcars %>%
  mutate(median_mpg = median(mpg)) %>%
  mutate(!!sym(glue("median_dich_{median_mpg}")) := ifelse(mpg > median_mpg, 1, 0))

问题分析 #

上述尝试的核心问题：

• TRY1完全不符合dplyr动态列名的语法规则，不能直接在列名位置使用glue引用列；
• TRY2和TRY3中，在同一管道的mutate环节引用刚生成的median_mpg列时，拿到的是整个列向量而非单个中位数数值，导致列名拼接失败。

正确解法 #

解法1：先计算中位数再动态命名 #

提前提取中位数数值，再用准引用语法拼接列名，逻辑最清晰：

library(dplyr)
library(rlang)

# 提前计算mpg的中位数
mpg_med <- median(mtcars$mpg)

# 动态生成列名并添加新列
result <- mtcars %>%
  mutate(!!paste0("median_dich", mpg_med) := ifelse(mpg > mpg_med, 1, 0))

解法2：同一管道内完成操作 #

如果想在单个管道里完成所有步骤，可用大括号{}创建临时上下文，提取中位数数值：

library(dplyr)
library(rlang)

result <- mtcars %>%
  mutate(median_mpg = median(mpg)) %>%
  {
    # 提取单个中位数数值
    med_val <- .$median_mpg[1]
    mutate(., !!paste0("median_dich", med_val) := ifelse(mpg > median_mpg, 1, 0))
  } %>%
  # 可选：移除临时生成的median_mpg列
  select(-median_mpg)

解法3：结合glue拼接列名 #

如果偏好使用glue拼接字符串，同样需要先拿到单个中位数数值：

library(dplyr)
library(rlang)
library(glue)

mpg_med <- median(mtcars$mpg)

result <- mtcars %>%
  mutate(!!sym(glue("median_dich{mpg_med}")) := ifelse(mpg > mpg_med, 1, 0))

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