R中如何通过指向水平向量的变量使用fct_relevel重设因子水平

你遇到的问题核心是this_level是字符串类型的变量名，而非实际存储因子顺序的向量对象，fct_relevel会默认将传入的字符串识别为待调整的单个因子水平，而非顺序向量，因此无法生效。以下是两种可行解法：

解法1：用get()函数直接提取全局环境中的向量 #

get()函数可以传入字符串形式的变量名，返回当前环境中对应变量的实际内容，直接修改你代码中重排因子的行即可：

df_foo <- tibble(id = c(1:6),
                 q_a1 = c(rep("Excellent", 3), rep("Poor",3)),
                 q_a2 = c(rep("Fair", 3), rep("Poor",2), NA)) %>% 
  mutate(q_a1 = fct_relevel(q_a1, level_1),
         q_a2 = fct_relevel(q_a2, level_1)) %>% 
  pivot_longer(-id, names_to = "key", values_to = "response") %>% 
  # 用get()将字符串转为对应向量
  mutate(response = fct_relevel(response, get(this_level)))

验证结果：

levels(df_foo$response)
# 输出为 "Excellent" "Fair"      "Poor"

解法2：用命名列表存储所有水平向量（更推荐） #

把所有因子水平向量统一存到一个命名列表中，避免全局环境变量污染，适配多分组批量处理场景：

# 统一存储所有水平向量
level_list <- list(
  level_1 = c("Excellent", "Fair", "Poor"),
  level_2 = c("Positive", "Neutral", "Negative"),
  level_3 = c("Happy", "Indifferent", "Sad")
)

# 调用时通过列表名+字符串索引提取向量
df_foo <- tibble(id = c(1:6),
                 q_a1 = c(rep("Excellent", 3), rep("Poor",3)),
                 q_a2 = c(rep("Fair", 3), rep("Poor",2), NA)) %>% 
  mutate(q_a1 = fct_relevel(q_a1, level_list[["level_1"]]),
         q_a2 = fct_relevel(q_a2, level_list[["level_1"]])) %>% 
  pivot_longer(-id, names_to = "key", values_to = "response") %>% 
  mutate(response = fct_relevel(response, level_list[[this_level]]))

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