R语言对整数型变量执行ifelse操作时报错的问题求助

核心报错原因 #

代码存在变量名拼写笔误：第4层嵌套ifelse的判断条件中，将全局使用的聚类变量colleague_cluster误写为colleague_clust（漏写末尾的er字符），R无法检索到不存在的对象，因此触发运行错误。

排查验证步骤 #

• 逐行核对嵌套判断分支中的变量名，确认所有分支引用的变量名和前置数据处理步骤生成的字段名完全一致
• 若修正拼写后仍有类型相关报错，可执行class(ohyeah$colleague_cluster)确认变量类型：若为因子类型，判断相等前需先通过as.numeric(as.character(colleague_cluster))转为数值型，避免因子整数值映射和预期不符

可用代码方案 #

1. 修正笔误的原逻辑版本 #

仅修正拼写错误，保留原有嵌套ifelse逻辑：

ohyeah = as.data.frame(
  clust_df_full %>% 
    full_join(select(colleague_clust_df, c("employee_id", "colleague_cluster")),
              by = "employee_id") %>% 
    full_join(select(mgr_clust_df, c("employee_id", "mgr_cluster")),
              by = "employee_id") %>% 
    full_join(select(self_clust_df, c("employee_id", "self_cluster")),
              by = "employee_id") %>% 
    full_join(select(promo_clust_df, c("employee_id", "promo_cluster")),
              by = "employee_id") %>% 
    filter(nchar(employee_id) <= 10) %>% 
    
    left_join(colleague_clusters_summary,
              by = c("colleague_cluster" = "Cluster")
    ) %>% 
    select(-"Size") %>% 
    
    rename(avg_col_f1 = col_f1.y,
           avg_col_f2 = col_f2.y,
           avg_col_f3 = col_f3.y,
           avg_col_f4 = col_f4.y,
           avg_col_f5 = col_f5.y
    ) %>% 
    
    mutate(avg_col_f_score = ifelse(colleague_cluster == 1,
                                    avg_col_f1,
                                    ifelse(colleague_cluster == 2,
                                           avg_col_f2,
                                           ifelse(colleague_cluster == 3,
                                                  avg_col_f3,
                                                  ifelse(colleague_cluster == 4,
                                                         avg_col_f4,
                                                         ifelse(colleague_cluster == 5,
                                                                avg_col_f5, NA)
                                                  )
                                           )
                                    )
    )
)

2. 低维护成本优化版本 #

用dplyr::case_when()替代多层嵌套ifelse，逻辑平铺展示，大幅降低拼写笔误概率，同时显式指定NA类型避免后续类型冲突：

ohyeah = as.data.frame(
  clust_df_full %>% 
    full_join(select(colleague_clust_df, c("employee_id", "colleague_cluster")),
              by = "employee_id") %>% 
    full_join(select(mgr_clust_df, c("employee_id", "mgr_cluster")),
              by = "employee_id") %>% 
    full_join(select(self_clust_df, c("employee_id", "self_cluster")),
              by = "employee_id") %>% 
    full_join(select(promo_clust_df, c("employee_id", "promo_cluster")),
              by = "employee_id") %>% 
    filter(nchar(employee_id) <= 10) %>% 
    
    left_join(colleague_clusters_summary,
              by = c("colleague_cluster" = "Cluster")
    ) %>% 
    select(-"Size") %>% 
    
    rename(avg_col_f1 = col_f1.y,
           avg_col_f2 = col_f2.y,
           avg_col_f3 = col_f3.y,
           avg_col_f4 = col_f4.y,
           avg_col_f5 = col_f5.y
    ) %>% 
    
    mutate(avg_col_f_score = case_when(
      colleague_cluster == 1 ~ avg_col_f1,
      colleague_cluster == 2 ~ avg_col_f2,
      colleague_cluster == 3 ~ avg_col_f3,
      colleague_cluster == 4 ~ avg_col_f4,
      colleague_cluster == 5 ~ avg_col_f5,
      TRUE ~ NA_real_
    ))
)

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