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