R语言日期转换遇缩写问题：For循环替换月份值异常求助

你的代码核心问题 #

1. 循环逻辑错误：遍历df$left元素时，判断条件用的是整个列df$left == "July"，生成的是布尔向量，而非针对当前循环的单个元素做判断。
2. 赋值覆盖整列：每次执行df$month <- "July"是把整列替换成该值，不是给对应行赋值，循环结束后只会保留最后一次赋值的结果。
3. 语法嵌套混乱：第一个else if的大括号未闭合，后续所有if都被嵌套在里面，逻辑完全错误。
4. 重复冗余判断：多次重复判断"July"和"Aug."，完全没必要。

修复方案 #

方案1：修正for循环（匹配你的思路） #

先初始化新列，遍历每行索引处理单个元素：

# 初始化新列，默认保留原月份值
df$month <- df$left

# 遍历每行索引
for (i in seq(nrow(df))) {
  current_month <- df$left[i]
  if (current_month == "Aug.") {
    df$month[i] <- "August"
  } else if (current_month == "Sept.") {
    df$month[i] <- "September"
  } else if (current_month == "Oct.") {
    df$month[i] <- "October"
  } else if (current_month == "Nov.") {
    df$month[i] <- "November"
  } else if (current_month == "Dec.") {
    df$month[i] <- "December"
  } else if (current_month == "Jan.") {
    df$month[i] <- "January"
  } else if (current_month == "Feb.") {
    df$month[i] <- "February"
  }
  # 其他月份（如July、March等）保持原值，无需额外处理
}

方案2：向量式替换（R语言推荐写法，高效简洁） #

用命名向量建立映射，一次性完成替换：

# 创建带点缩写到全称的映射表
month_map <- c(
  "Jan." = "January",
  "Feb." = "February",
  "Aug." = "August",
  "Sept." = "September",
  "Oct." = "October",
  "Nov." = "November",
  "Dec." = "December"
)

# 替换：匹配到的用全称，未匹配的保留原值
df$month <- ifelse(df$left %in% names(month_map), month_map[df$left], df$left)

方案3：用dplyr的case_when（逻辑更清晰） #

如果习惯tidyverse风格，用case_when写分支逻辑：

library(dplyr)

df <- df %>%
  mutate(month = case_when(
    left == "Jan." ~ "January",
    left == "Feb." ~ "February",
    left == "Aug." ~ "August",
    left == "Sept." ~ "September",
    left == "Oct." ~ "October",
    left == "Nov." ~ "November",
    left == "Dec." ~ "December",
    TRUE ~ left # 其他所有情况保留原月份值
  ))

方案4：跳过拆分，直接解析日期（最优解） #

其实你根本不需要拆分日期列，用lubridate包可以直接识别带点的月份缩写：

library(lubridate)

# 直接将right列的字符串转成日期类型
df$Workout.Date <- mdy(df$right)
# 示例："July 14, 2022"、"Aug. 14, 2022"都能正确解析为日期对象

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