如何在R中对指定列汇总并正确展示Date列的统计结果

我正在完成大学作业，在R语言中遇到了指定列汇总的问题。现有自定义函数complete可读取对应ID的CSV文件，当参数summarise为TRUE时调用summary()函数，但输出中Date列仅展示Length、Class、Mode信息，我需要让Date列显示各日期的出现次数及(Other)汇总项，尝试选择部分列会遗漏Date列，寻求解决办法。

现有函数代码：

complete <- function(id= 1:332, summarise=F) {
  kek<- read.csv(paste("00", id,".csv", sep=""))
  if(summarise==T) {summary(kek)} else{return(kek)}
}

当前输出：

Date              sulfate          nitrate             ID
Length:1461        Min.   : 0.613   Min.   :0.1180   Min.   :1    
Class :character   1st Qu.: 2.210   1st Qu.:0.2835   1st Qu.:1
Mode  :character   Median : 2.870   Median :0.4530   Median :1
                   Mean   : 3.881   Mean   :0.5499   Mean   :1
                   3rd Qu.: 4.730   3rd Qu.:0.6635   3rd Qu.:1
                   Max.   :19.100   Max.   :1.8300   Max.   :1
                   NA's   :1344     NA's   :1339

期望输出：

Date              sulfate          nitrate             ID
   2003-01-01:    1   Min.   : 0.613   Min.   :0.1180   Min.   :1    
   2003-01-02:     1   1st Qu.: 2.210   1st Qu.:0.2835   1st Qu.:1
   2003-01-03:     1   Median : 2.870   Median :0.4530   Median :1
   2003-01-04:     1   Mean   : 3.881   Mean   :0.5499   Mean   :1
   2003-01-05:     1   3rd Qu.: 4.730   3rd Qu.:0.6635   3rd Qu.:1
   2003-01-06:     1   Max.   :19.100   Max.   :1.8300   Max.   :1
(Other)      : 1455    NA's   :1344     NA's   :1339

问题核心是read.csv读取后Date列是字符型（character），summary()对字符型变量只会输出长度、类型和存储模式，不会统计频次。要实现期望输出，需先将Date列转为因子（factor）或日期型（Date），这样summary()会自动统计各日期的出现次数。

修改后的函数代码：

complete <- function(id = 1:332, summarise = FALSE) {
  # 优化文件路径生成，自动补零适配不同位数的ID
  file_path <- sprintf("%03d.csv", id)
  kek <- read.csv(file_path)
  
  # 将Date列转换为因子，让summary统计频次
  kek$Date <- factor(kek$Date)
  # 若需要保留日期类型，也可以用：kek$Date <- as.Date(kek$Date)
  
  if (summarise) {
    summary(kek)
  } else {
    return(kek)
  }
}

关键细节说明： #

• 文件路径优化：用sprintf("%03d.csv", id)替代原paste写法，能自动处理1-9（补两位零）、10-99（补一位零）、100+（不补零）的ID，避免生成错误文件名（比如id=10时，原代码会生成"0010.csv"，实际应为"010.csv"）。
• 类型转换：factor(kek$Date)把字符型日期转为因子，summary()会统计每个因子水平的出现次数；当不同日期数量超过6个时，会自动合并低频项为(Other)，完全匹配你的需求。若转成Date类型，summary()也会实现相同的频次统计效果。
• 代码规范：将summarise==T改为summarise，布尔值直接判断更简洁；参数默认值用FALSE而非F，这是R语言的标准写法。

调用修改后的complete(id=1, summarise=TRUE)，即可得到你期望的输出格式。

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