獲取日期的列表的最大值發生的歷史價值

Question

我有日期的向量：

> (dput(head(list$date, 35))) 
c("18.12.2003", "06.04.2005", "06.04.2005", "07.04.2005", "27.05.2005", 
"16.06.2009", "16.06.2009", "21.12.2009", "22.12.2009", "09.06.2011", 
"14.06.2011", "20.12.2011", "20.12.2011", "04.02.2008", "27.03.2009", 
"01.04.2009", "15.12.2009", "23.09.2005", "19.06.2005", "20.06.2005", 
"20.06.2005", "20.06.2005", "21.06.2005", "31.05.2005", "24.01.2007", 
"24.01.2007", "24.01.2007", "15.05.2007", "16.05.2007", "16.05.2007", 
"18.05.2007", "21.05.2007", "21.05.2007", "22.05.2007", "22.05.2007" 
) 

通過繪製這個我可以看到最大值：

hist_data <- hist(as.Date(list$date, '%d.%m.%Y'), breaks="days", freq=TRUE) 

的occurency可以通過以下方式獲得：

(max(hist_data$counts, '%d.%m.%Y')) 

但是，我想要得到這個最大發生值的日期。是否有可能使日期直方圖的最大值爲max(...)？

我很感謝您的回答！

Answer 1

可以使用table功能：

tab <- table(as.Date(list$date, '%d.%m.%Y')) 
names(tab)[tab == max(tab)] 
# [1] "2005-06-20" "2007-01-24"