R中基于两列条件替换数据框指定列字符串的问题咨询

你的代码存在4个核心错误：

• 数据框索引语法错误：直接在[里写列名Street、Street_Category时，R会默认查找全局环境下的变量，而不是数据框df内的列
• 匹配逻辑错误：==是完全匹配字符串，你需要的是包含指定子串，应该用字符串检测函数而非全等判断
• 赋值符号用错：你在赋值位置写了==（逻辑判断运算符），应该用<-或者=完成赋值
• 此前生成Street_Type的代码存在逻辑错误：mutate返回的是完整数据框，不能直接赋值给单个列df$Street_Type，同时匹配规则顺序错误，St的匹配优先级高于State Route会导致后者无法命中，还多写了不必要的空格前缀

以下两种方案均默认大小写敏感，完全符合你要求的匹配规则，也适配大型数据集的批量处理需求。

dplyr 方案（性能更优，适合大数据量） #

需提前加载dplyr和stringr包：

library(dplyr)
library(stringr)

# 1. 修正Street_Type列生成逻辑
df <- df %>%
  mutate(Street_Type = case_when(
    # 优先级更高的规则放在前面
    str_detect(Street, "State Route") ~ "State Highways",
    str_detect(Street, "Route") ~ "State Highways",
    str_detect(Street, "Pkwy") ~ "Parkway",
    str_detect(Street, "St") ~ "Street",
    TRUE ~ "No type"
  ))

# 2. 按规则替换Street_Category
df <- df %>%
  mutate(Street_Category = case_when(
    str_detect(Street, "State Route") & Street_Type == "Street" ~ "State Highways",
    str_detect(Street, "Pkwy") & Street_Type == "Street" ~ "Parkway",
    # 其余情况保留原有值
    TRUE ~ Street_Category
  ))

base R 方案（无需额外依赖包） #

# 1. 修正Street_Type列
df$Street_Type <- ifelse(grepl("State Route|Route", df$Street), "State Highways",
                         ifelse(grepl("Pkwy", df$Street), "Parkway",
                                ifelse(grepl("St", df$Street), "Street", "No type")))

# 2. 替换Street_Category值
df$Street_Category[grepl("State Route", df$Street) & df$Street_Type == "Street"] <- "State Highways"
df$Street_Category[grepl("Pkwy", df$Street) & df$Street_Type == "Street"] <- "Parkway"

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