如何将逻辑型变量自动转换为带友好标签的因子？

你可以结合rlang包捕获变量名称，再转换为带指定标签的因子，实现这个需求。以下是完整的函数实现及测试示例：

函数代码 #

library(rlang)
library(dplyr)

logical_to_labelled_factor <- function(f) {
  # 提取输入变量的名称
  var_name <- as_label(enquo(f))
  # 定义对应标签
  factor_labels <- c(
    FALSE = paste0("not ", var_name),
    TRUE = var_name
  )
  # 将逻辑向量转换为因子
  factor(f, levels = c(FALSE, TRUE), labels = factor_labels)
}

测试示例 #

用你提供的mtcars数据测试：

# 生成逻辑变量并转换为带标签的因子
result <- mtcars |>
  mutate(is_high_gear = gear > 3) |>
  mutate(is_high_gear = logical_to_labelled_factor(is_high_gear))

# 查看转换后的结果前6行
result |> pull(is_high_gear) |> head()

输出结果如下：

[1] not is_high_gear not is_high_gear is_high_gear     is_high_gear     is_high_gear    
[6] is_high_gear    
Levels: not is_high_gear is_high_gear

代码说明 #

• enquo(f)捕获输入的变量表达式，as_label()将其转换为变量名字符串，动态获取你定义的语义化变量名（比如is_high_gear）。
• 构造标签时，直接用变量名生成TRUE和FALSE对应的文本，保证通用性。
• factor()函数指定levels顺序，确保标签与逻辑值一一对应。

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