format(as.Date(df$x,format="%Y-%m-%d"), format = "%d") # or format(df_meas$Time, format= %d") # where df_meas$Time is of as.POSIXlt class
> strptime(paste("1976", 53), format="%Y %j") [1] "1976-02-22"