R语言中如何仅修改分类列的部分值（避免其余值变为NA）

你的代码出现NA的原因是：当用shortNames[df$Country]索引时，只有df$Country中存在于shortNames名称里的元素能匹配到对应值，其余元素因为找不到匹配项，会被返回NA。下面是几种正确实现仅修改指定值的方法：

方法1：使用dplyr的case_when（推荐，可读性强） #

如果已经使用tidyverse工具链，case_when可以清晰定义多条件替换规则，未匹配的项保留原值：

library(dplyr)
df <- df %>%
  mutate(Country = case_when(
    Country == "China" ~ "CHN",
    Country == "France" ~ "FR",
    TRUE ~ Country  # 所有未匹配的情况，保持原Country值
  ))

方法2：Base R的嵌套ifelse #

如果不想加载额外包，用base R的ifelse也能实现，适合少量替换规则：

df$Country <- ifelse(df$Country == "China", "CHN",
                     ifelse(df$Country == "France", "FR", df$Country))

方法3：基于匹配位置的批量替换 #

当需要替换的规则较多时，可以先定位匹配位置，再批量替换，避免写大量条件：

shortNames <- c("China" = "CHN", "France" = "FR")
# 筛选出需要替换的行位置
replace_rows <- df$Country %in% names(shortNames)
# 仅对匹配的行执行替换
df$Country[replace_rows] <- shortNames[df$Country[replace_rows]]

执行上述任意一种方法后，df的结果会是：

# A tibble: 6 × 1
  Country   
  <chr>     
1 Bangladesh
2 India     
3 Nigeria   
4 CHN       
5 FR        
6 Canada    

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