如何用R将日期行转换为列名并整理数据集？

可以按以下步骤实现你的需求：

1. 生成目标列名：从scores列的前两行提取月份和年份，处理成may_2022的格式
2. 替换列名：将df的第二列名替换为生成的目标名称
3. 删除冗余行：移除前两行数据
4. 修正数据类型：确保新的分数列是数值类型

具体代码如下：

# 创建数据框
df <- data.frame(student=c('A', 'B', 'C', 'D', 'E'),
                 scores=c('May, 30', 2022, 31, 39, 35),
                 stringsAsFactors = FALSE)

# 提取月份并处理：去掉逗号和日期，转小写
month_part <- tolower(gsub(",\\s*\\d+", "", df$scores[1]))
# 提取年份
year_part <- df$scores[2]
# 拼接成目标列名
new_colname <- paste(month_part, year_part, sep = "_")

# 修改列名
colnames(df)[2] <- new_colname

# 删除前两行
df <- df[-c(1,2), ]

# 修正分数列的数据类型（可选，确保是数值型）
df[[new_colname]] <- as.numeric(df[[new_colname]])

# 查看结果
df

运行后得到的结果与你期望的一致：

student may_2022
3       C       31
4       D       39
5       E       35

原代码问题说明 #

你直接将第二行数据赋值给列名，会把student列名错误改为B，且只删除了第二行，完全没处理第一行的日期信息，因此结果不符合预期。上面的方法精准提取了日期部分生成正确列名，同时移除了不需要的前两行。

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