Rendez-vous
# Generating sample data
set.seed(1)
test=round(runif(200,0,1))
temp=rep(as.Date("2021-01-01"),200)
temp[which(as.logical(test))]=as.Date("2022-05-01")
# Displaying frequency of each year
table(format(temp,"%Y"))
# Displaying frequency of each year as a percentage
table(format(temp,"%Y"))/length(temp)
Itchy Ibex