R语言基于其他列值生成新列时出现全NA问题求助

错误原因分析 #

你的代码出现全NA结果，核心问题有三个：

• 地区数据集未提取有效向量：Middle_East_and_North_Africa这类对象是数据框，直接用toupper()处理会把整个数据框转成大写，而非提取列中的国家名称向量用于匹配
• 大小写不匹配：internet$Entity是首字母大写格式（如Afghanistan），但你把地区列表转成全大写（如AFGHANISTAN），导致字符串匹配完全失败
• 无兜底处理分支：case_when未设置默认匹配规则，不在任何地区列表的国家会直接返回NA

修正后的代码 #

# 从各地区数据框中提取国家名称向量
mena_countries <- Middle_East_and_North_Africa %>% pull(1)
lac_countries <- Latin_America_and_Caribbean %>% pull(1)
eap_countries <- East_Asia_and_Pacific %>% pull(1)
sa_countries <- South_Asia %>% pull(1)
na_countries <- North_America %>% pull(1)
eca_countries <- Europe_Central_Asia %>% pull(1)

# 统一大小写匹配，添加兜底分支
internet_n <- internet %>%
  mutate(Region = case_when(
    tolower(Entity) %in% tolower(mena_countries) ~ "Middle East and North Africa",
    tolower(Entity) %in% tolower(lac_countries) ~ "Latin America and Caribbean",
    tolower(Entity) %in% tolower(eap_countries) ~ "East Asia and Pacific",
    tolower(Entity) %in% tolower(sa_countries) ~ "South Asia",
    tolower(Entity) %in% tolower(na_countries) ~ "North America",
    tolower(Entity) %in% tolower(eca_countries) ~ "Europe Central Asia",
    TRUE ~ "Other" # 兜底处理，避免未匹配国家返回NA
  ))

关键改动说明 #

• 提取国家向量：用pull(1)从每个地区数据框中提取第一列的国家名称，得到可用于匹配的字符向量
• 统一大小写：用tolower()把Entity和地区国家名转成小写，彻底规避大小写差异导致的匹配失败
• 添加兜底分支：TRUE ~ "Other"确保所有国家都能得到对应地区值，不会出现NA（若不需要可删除，但建议保留）

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