R语言：将15分钟间隔DataFrame插值为分钟级数据的问题

别发愁啦，完全不需要把数据转成文本文件！咱们用R里的工具就能轻松完成这个插值需求，我给你两种实用的方法，你可以选自己顺手的来～

方法一：使用zoo包（专注时间序列处理） #

zoo是R中处理时间序列的经典包，针对你的场景，我们只需要把数据转成zoo对象，构造目标时间序列后插值即可：

1. 首先加载zoo包：

library(zoo)

2. 将你的DataFrame转换为zoo对象，用time列作为时间索引：

dat_zoo <- zoo(dat$radiation, order.by = dat$time)

3. 创建每分钟间隔的目标时间序列，覆盖原数据的整个时间范围：

minutely_times <- seq(start(dat_zoo), end(dat_zoo), by = "min")

4. 执行线性插值（如果需要非线性插值，可以用na.spline()替代na.approx()）：

dat_minutely_zoo <- na.approx(dat_zoo, xout = minutely_times)

5. 最后转换回DataFrame格式，方便后续分析：

dat_minutely <- data.frame(
  time = index(dat_minutely_zoo),
  radiation = coredata(dat_minutely_zoo)
)

方法二：使用tidyverse生态（适合数据框操作习惯） #

如果你更习惯用dplyr、lubridate这类工具，也可以用这套流程：

1. 加载所需包：

library(tidyverse)
library(lubridate)

2. 构造完整的时间序列并完成插值：

dat_minutely <- dat %>%
  # 将时间转换为数值格式（从原点开始的秒数），方便插值计算
  mutate(time_num = as.numeric(time)) %>%
  # 生成每分钟的完整时间序列，自动填充缺失的时间点
  complete(time = seq(min(time), max(time), by = "min")) %>%
  # 对辐射值执行线性插值，匹配到每分钟的时间点
  mutate(radiation = approx(time_num, radiation, xout = as.numeric(time))$y) %>%
  # 移除辅助计算列
  select(-time_num)

验证结果 #

你可以通过查看结果的前几行或者行数来确认插值是否成功：

# 查看前6条记录
head(dat_minutely)
# 检查总行数（原数据15分钟间隔，每分钟数据行数约为原数据的15倍）
nrow(dat_minutely)

内容的提问来源于stack exchange，提问作者Maximilian Hüttner