如何在R中为15分钟间隔气象数据添加每日日期行及空行？

以下是实现每日数据后添加两行空行（第一行标注对应日期）的具体代码和步骤：

核心代码实现 #

使用dplyr包处理分组和行添加操作，代码如下：

library(dplyr)

# 处理数据：按日期分组，每组后追加日期标注行和空行
formatted_df <- df %>%
  # 生成日期字符串作为分组键
  mutate(date_group = as.Date(date) %>% format("%Y-%m-%d")) %>%
  group_by(date_group) %>%
  group_modify(~ {
    # 保留当前日期的原始数据
    original_data <- .x %>% select(-date_group)
    # 创建日期标注行（仅date列填充日期，其余列留空）
    date_label_row <- tibble(
      date = .y$date_group,
      temperature = NA,
      precipitation = NA,
      wind_speed = NA
    )
    # 创建完全空行
    blank_row <- tibble(date = NA, temperature = NA, precipitation = NA, wind_speed = NA)
    # 合并原始数据、日期行、空行
    bind_rows(original_data, date_label_row, blank_row)
  }) %>%
  ungroup() %>%
  select(-date_group)  # 移除临时分组列

代码说明 #

• date_group：从原始date列提取年月日作为分组依据，确保同一日期的15分钟数据被归为一组。
• group_modify：对每个日期分组单独处理，依次拼接原始数据、日期标注行、空行。
• 最终生成的formatted_df就是符合要求的格式化数据框。

导出为文本文件（可选） #

如果需要将格式化后的数据导出为可读的文本文件，可使用write.table：

# 导出为制表符分隔的文本，NA替换为空字符串
write.table(formatted_df, "weather_formatted.txt", sep = "\t", na = "", row.names = FALSE)

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