如何计算数据框或 xlsx 文件的频率？

Question

How to calculate the frequency of each year and it should be daywise 
frequency of each year in a single excel or data frame?
library("readxl")
my_data <- read_excel("NE_hillM.xlsx")
str(my_data)

my_data = as.data.frame(my_data)
str(my_data)


f20 = as.data.frame(table(my_data$Year20))
f20$Var1 = as.Date(f20$Var1, "%Y%m%d")
f20$Var1 = format(f20$Var1, format="%m%d")

使用上面的代码我可以计算出每列的频率，但稍后 由于数据集不均匀，我面临加入表格的问题 分发[！[我试图附上一个文件的链接，请帮助我]enter link description here

Answer 1

您可以从每列中提取月份和日期，使用table 将其转换为数据框和merge 将所有列表一起使用Reduce 计算它们的频率。

Reduce(function(x, y) merge(x, y, by = 'Var1', all = TRUE), 
        lapply(names(my_data), function(x) {
              tab <- as.data.frame(table(substr(my_data[[x]], 1, 5)))
              names(tab)[2] <- x
              tab
})) -> result
result