如何在R中格式化ISO日期列并按天统计对应数据行数

你使用的2021-09-24T09:06:24.565Z属于ISO 8601标准的UTC时间格式，其中T为日期和时间的分隔符，Z代表UTC零时区，R语言内置工具和第三方包都可以直接识别该格式完成转换。

格式转换操作 #

方法1：base R原生实现 #

无需安装额外包，直接调用内置函数即可完成转换：

# 假设你的数据框命名为df
# 第一步：将字符型时间列转为Date类（可自动识别ISO 8601格式）
df$date_utc <- as.Date(df$Date)
# 第二步：转为你需要的YYYY/MM/DD格式
df$date_formatted <- format(df$date_utc, "%Y/%m/%d")

方法2：lubridate包实现（推荐，时区处理更灵活） #

属于tidyverse生态常用工具，对各类时间格式兼容性更强：

# 首次使用先安装：install.packages("lubridate")
library(lubridate)
# 解析时间+格式转换一步完成
df$date_formatted <- ymd_hms(df$Date) %>% 
  as.Date() %>% 
  format("%Y/%m/%d")

注意：如果你需要按北京时间而非UTC时间统计日期，可在解析时间时指定时区参数tz = "Asia/Shanghai"，避免跨零点的时间出现日期偏移，示例：ymd_hms(df$Date, tz = "Asia/Shanghai")

按天统计行数 #

转换完日期格式后直接统计即可，两种常用实现方式：

base R统计 #

# 方法1：用table函数快速统计
count_result <- as.data.frame(table(df$date_formatted))
# 自定义列名
colnames(count_result) <- c("日期", "对应行数")

# 方法2：用aggregate函数聚合统计
count_result <- aggregate(. ~ date_formatted, data = df["date_formatted"], FUN = length)

dplyr包统计 #

# 首次使用先安装：install.packages("dplyr")
library(dplyr)
count_result <- df %>%
  mutate(date_formatted = ymd_hms(Date) %>% as.Date() %>% format("%Y/%m/%d")) %>%
  count(date_formatted, name = "对应行数")

针对你提供的示例数据，最终统计结果如下：

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