如何修改R代码提取openair timeVariation的hour子图数据并导出为CSV

直接调整代码逻辑，提取timeVariation生成的小时尺度统计数据并导出：

library(readxl)
library(tidyverse)
library(openair)

# 读取目标数据
Georgia <- read_excel("C:/Users/TT/Desktop/FT/AA/Daily Average/Georgia.xlsx", 
                   sheet = "Refined Data", col_types = c("text", 
                                                         "text", "date", "numeric", "numeric", 
                                                         "numeric", "numeric", "numeric", 
                                                         "numeric", "text", "numeric", "text", 
                                                         "text", "text"))

# 计算2017年pm2.5的小时维度时间变化数据，指定subset聚焦小时尺度
tv_result <- timeVariation(selectByDate(Georgia, year = 2017), 
                           pollutant = "pm2.5", 
                           group = "month",
                           subset = "hour")

# 提取你需要的tibble统计数据
hour_stats_data <- tv_result$data

# 导出为CSV文件（可自行修改保存路径）
write_csv(hour_stats_data, "C:/Users/TT/Desktop/2017_pm25_hourly_stats.csv")

# 若需要导出为文本格式（比如制表符分隔），使用下面的代码
# write_delim(hour_stats_data, "C:/Users/TT/Desktop/2017_pm25_hourly_stats.txt", delim = "\t")

关键说明： #

• timeVariation返回的是包含绘图对象和统计数据的列表，其中$data字段就是生成子图所用的数据集（对应你需要的tibble内容）
• 将subset = "hour"作为timeVariation的参数传入，直接锁定小时维度的计算结果，无需额外用tail处理
• 导出工具选择：
  • write_csv（tidyverse工具）导出标准CSV文件，适配绝大多数表格软件
  • write_delim可自定义分隔符导出文本文件，满足不同格式需求

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