请求将指定SQL查询转换为三种R实现方式（基础函数、dplyr、data.table）

你的SQL查询核心是提取CreationDate的年份，按年份分组统计记录总数，以下是三种对应实现：

1. 仅使用R基础函数 #

如果CreationDate不是日期/时间类型，先转换格式，再提取年份并分组统计：

# 转换日期格式（若原始数据为字符型）
Posts$CreationDate <- as.POSIXct(Posts$CreationDate)

# 提取年份并统计数量
year_counts <- table(format(Posts$CreationDate, "%Y"))
result_base <- data.frame(
  Year = names(year_counts),
  TotalNumber = as.integer(year_counts),
  row.names = NULL
)

也可以用aggregate函数实现：

Posts$Year <- format(Posts$CreationDate, "%Y")
result_base <- aggregate(
  list(TotalNumber = Posts$Year),
  by = list(Year = Posts$Year),
  FUN = length
)

2. 使用dplyr包 #

借助tidyverse风格的语法，步骤更贴合SQL逻辑：

library(dplyr)

result_dplyr <- Posts %>%
  # 转换日期格式（若需要）
  mutate(CreationDate = as.POSIXct(CreationDate)) %>%
  # 提取年份
  mutate(Year = format(CreationDate, "%Y")) %>%
  # 按年份分组
  group_by(Year) %>%
  # 统计每组数量
  summarize(TotalNumber = n(), .groups = "drop")

.groups = "drop"用于取消分组状态，避免后续操作受影响。

3. 使用data.table包 #

data.table的语法更简洁高效，适合处理大数据集：

library(data.table)

# 将数据框转换为data.table
setDT(Posts)

result_dt <- Posts[, 
  # 统计每组数量
  .(TotalNumber = .N), 
  # 按提取的年份分组
  by = .(Year = format(as.POSIXct(CreationDate), "%Y"))
]

如果CreationDate已经是日期类型，可省略as.POSIXct转换。

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