R语言中如何根据数值列取值为对应非数值列赋值季节标签

默认你的数据集为R中标准数据框结构：其中取值1-12的数值列代表月份，待填充的列初始值全为NA，以下两种方法都可以直接实现需求，按需选择即可。

方法1：基础R实现（无需安装额外包） #

先构造和你描述结构一致的测试数据，你可以替换成自己的真实数据集：

# 示例测试数据
df <- data.frame(
  month_col = 1:12, # 替换成你自己的数值列名
  season_col = NA_character_ # 替换成你自己待填充的列名
)

# 按规则逐类赋值
df$season_col[df$month_col %in% c(1,2,3,4,11,12)] <- "Winter"
df$season_col[df$month_col %in% c(5,6,7,8)] <- "Summer"
df$season_col[df$month_col %in% c(9,10)] <- "Fall"

赋值完成后直接查看df就能看到填充结果，逻辑直白不容易出错，适合不想额外装包的场景。

方法2：dplyr包实现（适合tidyverse工作流） #

如果你平时用tidyverse生态处理数据，用case_when写条件分支可读性更强：

# 没装包先运行安装命令：install.packages("dplyr")
library(dplyr)

df <- df %>% 
  mutate(
    season_col = case_when(
      month_col %in% c(1,2,3,4,11,12) ~ "Winter",
      month_col %in% c(5,6,7,8) ~ "Summer",
      month_col %in% c(9,10) ~ "Fall",
      TRUE ~ NA_character_ # 异常值统一保留NA
    )
  )

注意事项 #

• 代码里的month_col、season_col请替换成你自己表格里的真实列名
• 如果数值列存在1-12以外的异常值，两种方法都会默认保留NA，不会产生错误赋值
• 赋值完成后可直接运行head(df,12)核对结果，确认匹配规则是否正确

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