如何将DataFrame列转行并按月份计算均值重塑数据格式？

AI 小北

2026-8-7

问题解决：将年度月度数据重塑为宽表并计算月均值

需求说明

给定R语言DataFrame dat，其中：

V2 代表年份
V3 代表月份
V14 为待分析的数值列

需将数据重塑为年份为行、1-12月英文缩写为列的宽表，每个单元格填入对应年份-月份的V14均值，期望输出格式如下：

year jan feb mar apr may jun jul aug sep oct nov dec
2004 NA  NA  NA  NA  NA  NA  NA  NA  NA  NA  NA  NA

给定数据集

dat=structure(list(V1 = c(1, 1.5, 2, 2.5, 3, 3.5, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA), V2 = c(2004, 2004, 2004, 2004, 
2004, 2004, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), 
    V3 = c(4, 4, 4, 4, 4, 4, NA, NA, NA, NA, NA, NA, NA, NA, 
    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
    NA, NA, NA, NA, NA, NA), V4 = c(2, 2, 3, 3, 4, 4, NA, NA, 
    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), V5 = c(0, 
    12, 0, 12, 0, 12, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
    NA, NA, NA, NA), V6 = c(NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_), V7 = c(NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_), V8 = c(NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_), V9 = c(NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_), V10 = c(NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_), V11 = c(NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_), V12 = c(NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_), V13 = c(NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_), V14 = c(NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
    NA_real_, NA_real_, NA_real_, NA_real_)), row.names = c("1", 
"2", "3", "4", "5", "6", "NA", "NA.1", "NA.2", "NA.3", "NA.4", 
"NA.5", "NA.6", "NA.7", "NA.8", "NA.9", "NA.10", "NA.11", "NA.12", 
"NA.13", "NA.14", "NA.15", "NA.16", "NA.17", "NA.18", "NA.19", 
"NA.20", "NA.21", "NA.22", "NA.23", "NA.24", "NA.25", "NA.26", 
"NA.27", "NA.28", "NA.29", "NA.30", "NA.31", "NA.32", "NA.33", 
"NA.34", "NA.35", "NA.36", "NA.37", "NA.38", "NA.39", "NA.40", "NA.41", "NA.42", "NA.43"), class = "data.frame")

解决方案

方法1：使用tidyverse工具链（dplyr + tidyr）

这是目前R中数据重塑最常用的方式，代码可读性高：

# 加载依赖包
library(dplyr)
library(tidyr)

# 处理流程：过滤有效行 → 按年月分组计算均值 → 转为宽表 → 补全所有月份列
result <- dat %>%
  filter(!is.na(V2) & !is.na(V3)) %>%
  group_by(V2, V3) %>%
  summarise(mean_v14 = mean(V14, na.rm = TRUE), .groups = "drop") %>%
  mutate(month = month.abb[V3]) %>%
  pivot_wider(names_from = month, values_from = mean_v14) %>%
  rename(year = V2) %>%
  complete(year, fill = setNames(rep(NA, 12), month.abb)) %>%
  select(year, all_of(month.abb))

# 输出结果
print(result)

方法2：使用base R原生函数

无需额外安装包，适合轻量场景：

# 1. 筛选有效数据并计算年月均值
valid_dat <- dat[!is.na(dat$V2) & !is.na(dat$V3), c("V2", "V3", "V14")]
mean_df <- aggregate(V14 ~ V2 + V3, data = valid_dat, FUN = function(x) mean(x, na.rm = TRUE))

# 2. 转换月份为英文缩写并重塑为宽表
mean_df$month <- month.abb[mean_df$V3]
result_base <- reshape(mean_df[, c("V2", "month", "V14")], 
                       idvar = "V2", 
                       timevar = "month", 
                       direction = "wide")

# 3. 重命名列并补全缺失月份
colnames(result_base) <- sub("V14\\.", "", colnames(result_base))
result_base <- rename(result_base, year = V2)

all_months <- month.abb
for(month in all_months){
  if(!month %in% colnames(result_base)){
    result_base[[month]] <- NA
  }
}

# 4. 按指定顺序排列列
result_base <- result_base[, c("year", all_months)]

# 输出结果
print(result_base)

说明

由于提供的dat中V14列全部为NA，因此最终结果中所有月份的均值均为NA，完全符合期望输出格式。

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

如何将DataFrame列转行并按月份计算均值重塑数据格式？

需求说明 #

给定数据集 #

解决方案 #

方法1：使用tidyverse工具链（dplyr + tidyr） #

方法2：使用base R原生函数 #

说明 #

需求说明

给定数据集

解决方案

方法1：使用tidyverse工具链（dplyr + tidyr）

方法2：使用base R原生函数

说明