在R中获取多个列的月平均值的有效方法

library(tidyverse)

# 创建示例数据框
data <- data.frame(
  date = seq(as.Date("2022-01-01"), as.Date("2022-12-31"), by = "day"),
  value1 = runif(365),
  value2 = runif(365),
  value3 = runif(365)
)

# 将日期列转换为年月格式
data <- data %>%
  mutate(year_month = format(date, "%Y-%m"))

# 使用group_by和summarize函数计算每个月的平均值
monthly_avg <- data %>%
  group_by(year_month) %>%
  summarize(avg_value1 = mean(value1),
            avg_value2 = mean(value2),
            avg_value3 = mean(value3))

# 打印结果
print(monthly_avg)

# 创建示例数据框
data <- data.frame(
  date = seq(as.Date("2022-01-01"), as.Date("2022-12-31"), by = "day"),
  value1 = runif(365),
  value2 = runif(365),
  value3 = runif(365)
)

# 将日期列转换为年月格式
data$year_month <- format(data$date, "%Y-%m")

# 使用aggregate函数计算每个月的平均值
monthly_avg <- aggregate(. ~ year_month, data = data, mean)

# 打印结果
print(monthly_avg)